VBAでループの学習をして、定番?の掛け算プログラムを作成してみました。
1×1から9×9までですが・・・
以下のtest1()を実行すると、画像の様に、結果が横になってしまいます。
11=1 12=2 1*3=3というように。
vba
1Sub test1() 2'結果が横になってしまう 3 Dim i As Long 4 Dim j As Long 5 6 For i = 1 To 9 7 For j = 1 To 9 8 Cells(i, j) = i & "×" & j & "=" & i * j 9 Next j 10 Next i 11End Sub
本当は、縦に
11=1
12=2
1*3=3としたかったので、考えた末、以下test2の様に書き換えました。
vba
1Sub test2() 2 Dim i As Long 3 Dim j As Long 4 5 For i = 1 To 9 6 For j = 1 To 9 7 Cells(j, i) = i & "×" & j & "=" & i * j 8 Next j 9 Next i 10End Sub
書き方や考え方は、合っていますでしょうか?また、他の書き方はありますでしょうか?ご教授、アドバイスをお願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。