No.4ベストアンサー
- 回答日時:
2重ループになっているのでその点心配ありません。
内側のループにあるjの値がループを抜けた後、
再初期化されていません。
つまり、内側のループで1の段の出力が終わり、
外側のループでi=2になった時、j=9のままなので
「While j < 9」に弾かれ内側のループの処理は実行されません。
これが九九が1の段で終わってしまってしまう原因です。
なので、内側のループが終わった時にj=0にしてみれば良いでしょう。
▼補足
変数を使うときは初期化する事をオススメします。
Sub kuku()
Dim i, j As Integer
i = 0
j = 0
Do While i < 9
(省略)
No.3
- 回答日時:
2重のループにしてあげたらよいと思います。
Dim i As Integer
Dim j As Integer
For i = 1 To 9
Debug.Print "-- " & i & "の段 --"
For j = 1 To 9
Debug.Print i & " × " & j & "=" & i * j
Next j
Next i
No.1
- 回答日時:
' 自信なし。
動作するとは思うが、もっと簡潔なソースはありそうSub kuku()
Dim a As Integer
Dim i As Integer
Dim j As Integer
a = 0
i = 0
j = 0
Do While i < 9
i = i + 1
Do
If j < 9 Then
j = j + 1
a = i * j
Debug.Print i; "×"; j; "="; a
Else
j = 0 ' 初期化しないとi=2以降Do Loopに入らない
Exit Do
End If
Loop
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) Excel VBA マクロ ブロック崩しのコードについて。 1 2022/06/22 12:33
- Visual Basic(VBA) 以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。 今回すでに集めてある「ま 1 2022/08/29 20:38
- Visual Basic(VBA) VBA GetAttrについて教えてください 2 2022/12/22 15:25
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
ListBox 複数選択 で オートフ...
-
DOSコマンドのループ内のTIMEコ...
-
範囲指定したセルを1つずつ飛...
-
再帰関数のインライン展開
-
VBAで3秒だけ時間を止めたい
-
VBAでの一時停止と再開の方法
-
乱数の桁数指定、または範囲指定。
-
Do whileでExitせず、ループの...
-
VB.NETで素因数分解のプログラ...
-
VBA for i=1 to lastrow
-
C言語でファクト関数を使わずに...
-
簡単なエクセルVBA
-
GIFアニメをループさせたくない
-
vbscriptでIE自動入力(途中で...
-
XMLファイルをDataSetに読込む...
-
Excel VBAで、アクティブシート...
-
CSVファイルの特定の行だけを読...
-
エクセルの当番表を作っていま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
範囲指定したセルを1つずつ飛...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
vbscriptでIE自動入力(途中で...
-
乱数の桁数指定、または範囲指定。
-
GIFアニメをループさせたくない
-
プログラミングについて。 1つ...
-
テキストボックスの名前に変数...
-
エクセルの当番表を作っていま...
-
ループフリー
-
vb.netからエクセル関数書き込み
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
どなたかこのプログラミングを...
-
Do whileでExitせず、ループの...
おすすめ情報