Dim myTorikomibi As Currenc～Next i ご存知のかたご教授願います。

Dim myTorikomibi As Currenc～Next i　ヘルプを見ても言葉が理解しずらくて解読しきれず困っています。ご存知のかたご教授いただきたく投稿しました。
　　Dim myTorikomibi As Currency
If myCityBUNRUINO = 0 Then Cells(myPrefNO + 3, 4) = myTantou
If myCityBUNRUINO = 1 Then Cells(myPrefNO + 3 - 47, 14) = myTantou
If myCityBUNRUINO = 2 Then Cells(myPrefNO + 3 - 47 - myCityNu, 24) = myTantou
For i = 1 To 3
If myCityBUNRUINO = 0 Then Cells(myPrefNO + 3, i + 4) = myTorikomibi
If myCityBUNRUINO = 1 Then Cells(myPrefNO + 3 - 47, i + 14) = myTorikomibi
If myCityBUNRUINO = 2 Then Cells(myPrefNO + 3 - 47 - myCityNu, i + 24) = myTorikomibi
Next i

No.1 回答者： maruru01 回答日時： 2004/09/15 10:39

こんにちは。

maruru01です。

以下の質問では解決出来なかったのでしょうか？

http://oshiete1.goo.ne.jp/kotaeru.php3?q=995169

質問は、回答をしてもらうのが目的ではなくて、その回答で自分の疑問を解決するのが目的ですよね？
解決していないのに締め切ってしまうのは二度手間では？

さて、コードは単純なIf文とForループだけです。

If (条件) Then (実行内容)

という形で、
「もし(条件)が成立していたら、(実行内容)を実行する」
ということです。
例えば、1行目は、

もし変数「myCityBUNRUINO」が「0」なら、
セル（列位置4(=D列)、行位置「myPrefNO」 + 3）に
変数「myTantou」の内容をセットしなさい

ということです。
他に何が分からないのでしょうか？
分からない点があれば、具体的に提示して下さい。

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=995169

この回答への補足

maruru01さま　ご回答ありがとうございます。

質問を2度してしまった部分があり申し訳ないです。

If文については、理解でき興奮して締め切ってしまいました。Forループについてが文字を読んでも理解できずにいます。最初の『Dim myTorikomibi As Currency』のDimやAs Currency、
For i = 1 To 3
Next i　ループについても理解できずにいます。
そこだけとりだしていろいろ試しているのですが方法を間違っているのかうまくいかない状態でございます。

補足日時：2004/09/15 10:57

No.2 回答者： maruru01 回答日時： 2004/09/15 12:05

No.1です。

No.1の補足欄について。
Forループは、同じ処理を繰り返すのに使用します。

For i = 始め To 終わり
　　処理
Next i

この場合は、iに始め～終わりまでの数値を順に代入して、それぞれのiごとにループ内の「処理」を行います。
質問欄の例では、iは1～3までで、ループ内の処理（If文3行）を3回行います。
その時、処理内にこのループカウンタ変数（i）があったら、
その時のiの値を入力します。
したがってループ内の1行目の、
「i + 4」
は、順番に「1 + 4」「2 + 4」「3 + 4」になっていきます。

Dimは、変数の宣言で、これからこの変数を使用しますよ、ということを宣言しています。
Currencyは、変数の種類で、この変数が文字列用なのか、数値用なのか、などを決めます。
Currencyは、通貨型です。とりあえず数値用と思えばいいでしょう。

さて、失礼ですが、あまりVBA（VB）の基本を理解しておられないように見受けられます。
書店で、入門書を購入して熟読された方がいいと思います。
ヘルプは、不親切で初心者には分かりにくいと思います。

なお、技術評論社の本は結構分かりやすいと思います。
（「かんたんプログラミング～」シリーズなど）
以下のページで適当な名前を確認して、書店で実物を確認してみてはいかがですか。

http://www.gihyo.co.jp/

参考URL：http://www.gihyo.co.jp/

この回答への補足

maruru01さま！入門書のご紹介も記入していただきありがとうございます。実は入門書は別のものを2冊持っておりまして・・・読んでも読んでも消化不良でした。先ほど会議に入ってしまうのでとりいそぎお礼をこちらの補足に記入したつもりが入っていなくて自分は落ち着きが足りなかったことを反省しています。早速今から勉強させていただきます！取り急ぎお礼を入力させていただいています。

補足日時：2004/09/15 16:25