輪廻転生
いつだっただろうか？
子供のころに聞いた言葉．．．
人が、何度も生死を繰り返すというような意味と理解している
やたら怖かったことを覚えている
データも、次々と新しいデータにかわって、同じ処理を繰り返す。
*----------------------------------------
For LOOP_F = 1 To 100
処理Ａ
Next
*----------------------------------------
１番目のデータが「処理Ａ」を行って、
２番目のデータが「処理Ａ」を行って、
３番目のデータ．．．
99番目のデータが「処理Ａ」を行って
100番目のデータが「処理Ａ」を行う
*----------------------------------------
自分は、何回目の人生なんだろう？？？
そう考えると、今でもちょっと、ぞぉ～っとする。
終わりは、どこに？？？
すべてのものには、終わりがある。
それは人類が逆らえない事実。
データにだって終わりがある。
その終わりは、どこにあるのだろう．．．
*----------------------------------------
Range("A1").Select
Selection.End(xlDown).Select
Owari = Selection.Row
*----------------------------------------
カーソルを、セル「A1」に移動する
「A列」で、データが入っている最後のセルまで、カーソルを移動する
カーソルの「行」の値、つまり、Ａ列の最後の「行」の値が変数「Owari」に入ります。
．．．つまり、
登録されているデータ件数が、「Owari」に登録されるということです。
どこにあるの？？？
入れたものを使うのはいいけど．．．
それって、どこにいれたんだっけ？
ちゃんと、入れている場所も、言わなきゃダメですよね？
ということで、
*----------------------------------------
１．Windows("Work_File.xlsx").Activate
２．Sheets("Work_Sheet1").Select
３．WORK_DATA = Range("A1").Value
*----------------------------------------
１．値を入れているファイルを教えてあげます。
２．値を入れているシートを教えてあげます。
３．セル「Ａ１」に入れた値が、変数「WORK_DATA」に入ります。
*----------------------------------------
ちゃんと順番を守って、値が入っている場所を教えてあげましょう！
入れたものは．．．使わないと ．．．
入れたものは、もったいないから使わないと．．．
ＥＸＣＥＬに入れた値は、やっぱり使わないと。
*----------------------------------------
WORK_DATA = Range("A1").Value
*----------------------------------------
セル「Ａ１」に入れた値が、変数「WORK_DATA」に入ります。
これで、入れたデータをプログラムで使えるようになります。
