|
こんにちは。かみちゃん です。
>あの実はこれ学校の課題なんです。なのでどうしてもForNext文でやりたいんです。
ほら〜、そうでしょ?思ったとおりです。
それなら、そうと初めからハッキリそう言いませんか?
そうすると、コメントの書き方も変わってきますから・・・
で、本当は、答えを丸々書きたくないのですが、とりあえず、以下のような感じ「でも」できます。
もっと配列らしいコードの書き方があるでしょうけど、それこそ、「答え」になってしまいますので。
Private Sub CommandButton1_Click()
Dim Eto(11), Isi(11) As String
Dim n As Integer
For n = 0 To 11 Step 1
Eto(n) = Sheet2.Cells(n + 1, 1).Value
Isi(n) = Sheet2.Cells(n + 1, 2).Address '←セル番号を配列に取得
Next n
With Sheet2.Range(Isi(Range("B2").Value - 1))
Range("D1:D3").Value = Application.Transpose(Array(Eto(Range("B1").Value Mod 12), .Value, .Offset(, 1).Value))
End With
End Sub
コードの詳細は、ヘルプで調べましょう。
|
|