Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50572 / 76732

←次へ　｜　前へ→


	【31045】注釈(働き)

悠 - 05/11/9(水) 22:48 -


	引用なし

	パスワード

Dim Eto(11), tanzyouseki(11) As String
　Dim n As Integer
　
　For n = 0 To 11 Step 1
　　Eto(n) = Sheet2.Cells(n + 1, 1).Value
　　tanzyouseki(n) = Sheet2.Cells(n + 1, 2).Address
　Next n
　
　With Sheet2.Range(tanzyouseki(Range("B2").Value - 1))
　　Range("D1").Value = Eto(Range("B1").Value Mod 12)
　　Range("D2").Value = .Value
　　Range("D3").Value = .Offset(, 1).Value
　End With
End Sub
のプログラムの一行一行の注釈(働き)を知りたいのですが、
教えてくれませんか？
お願いします
※もし、他の人で同じようなプログラムを聞いている人が
いても、気にしないで下さい

1 hits

▼

【31045】注釈(働き) 悠 05/11/9(水) 22:48

≪