If myCityBUNRUINO = 2 Then Cells(myPrefNO + 3 - 47 - myCityNu, 24) = myTantou こちらについて教えていただきたいです。

myTorikomibi = Range("A2").Value
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
マクロを編集しようとしましたところこちらが解読できづに困っています。
こちらだけとりだして実行しながら解読していますが混乱してしまっています。ご存知の方いらっしゃいましたら教えてください。Then以降がわかりません。よろしくお願いいたします。

No.1 回答者： pentaro_2000 回答日時： 2004/09/09 17:27

セルの所定の位置に、変数の値を代入しています。

たとえば、
>>Cells(myPrefNO + 3, 4) = myTantou
は、
myPrefNO = 3
myTantou = "やっほー"
と仮定すると、
Cell(6,4)に"やっほー"を表示しなさい。

ということになります。

Then以降は左のIfの条件式に合致する場合のみ実行されます。
>>If myCityBUNRUINO = 0 Then Cells(myPrefNO + 3, 4) = myTantou

は、
If myCityBUNRUINO = 0 Then
Cells(myPrefNO + 3, 4) = myTantou
End If
と同じです。

この回答へのお礼

さっそくご回答いただきましてありがとうございます！！！！！！（感動中）
やっぽー入れてやってみま！

お礼日時：2004/09/09 17:55

No.2 ベストアンサー 回答者： maruru01 回答日時： 2004/09/09 17:28

こんにちは。

maruru01です。

ヘルプはご覧になりましたか？
特に、Cellsについて。
Cellsは、

Cells(行番号, 列番号)

で、セルを参照します。
なので、各条件の時に、変数「myTantou」や「myTorikomibi」に格納されている値をそれらのセルに代入しているだけですが。
ただし、行番号が、

「myPrefNO + 3 - 47」
「myPrefNO + 3 - 47 - myCityNu」

などとちょっとややこしくなっていますが。
これも、変数「myPrefNO」「myCityNu」に入っている値から行番号が決まるというだけです。
例えば、
myPrefNO=60
myCityNu=2
なら、下の例は、
60+3-47-2=14
で、14行目となるということです。

この回答へのお礼

てんぱってました（恥）ヘルプまだ見てなかったです。
さっそくいろいろ入力して試してみますっ
ありがとうございます！！！！！！

お礼日時：2004/09/09 17:58