VBAのDo Whileステートメントを使って九九の表をつくりたいのですが、何度やっても途中で詰まり、実行に至りません。
For NextとDo untilではできたと思うのですがDo Whileがどうしてもわからなくて…
どなたか助けてください。お願いします。
Sub 九九計算_for()
Dim i, j As Integer
For i = 1 To 9
For j = 1 To 9
Cells(i, j).Value = i * j
Next
Next
End Sub
Sub 九九計算_do_until()
j = 1
Do
i = 1
Do
Cells(j, i).Value = i * j
i = i + 1
Loop Until i = 10
j = j + 1
Loop Until j = 10
End Sub
No.2ベストアンサー
- 回答日時:
Sub 九九計算_do_while()
Dim i As Integer
Dim j As Integer
j = 1
Do While j < 10
i = 1
Do While i < 10
Cells(j, i).Value = i * j
i = i + 1
Loop
j = j + 1
Loop
End Sub
No.4
- 回答日時:
質問の主旨とは違うと思うが、2重ループにしなくても出来る。
Sub test02()
x = 0
Do While x < 81
i = Int(x / 9) + 1
j = (x Mod 9) + 1
'MsgBox i & " " & j
Cells(i, j) = i * j
x = x + 1
Loop
End Sub
No.1
- 回答日時:
'変数宣言の強制。
'http://d.hatena.ne.jp/juku-cho/20090415/1239752983
'VB.NETのものなのでVBAでは殆ど使えないが、非常に参考になるので一読を。
'http://homepage1.nifty.com/rucio/main/dotnet/sho …
Option Explicit 'VB.NETでは通常 Option Explicit Onと書く
Sub 九九計算_do_while()
Dim i As Integer
Dim j As Integer
j = 1
Do
i = 1
Do
Cells(j, i).Value = i * j
i = i + 1
Loop While i <> 10 ' 条件変えただけ
j = j + 1
Loop While j <> 10 ' 条件変えただけ
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Ruby VBA 2 2023/01/14 14:14
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
65536は2の何乗なのでしょうか?
-
mod でうまく
-
めちゃきれい
-
VBAの再計算が反映されない件に...
-
排他的論理和 BCC(水平パリテ...
-
バッチファイルでウインドウを...
-
モジュラス103の計算とは何でし...
-
EXCELなどで「返す」という表現
-
変化させるセルが変化しない
-
60進数の四則計算
-
プログラムの質問
-
VBでReplace
-
数値計算の高速化 (cos, sin, exp)
-
C言語についてです。 再帰を使...
-
Javaを使った行列計算
-
C言語のプログラミングの問題で...
-
エクセルで特定のセルのみを任...
-
matlab計算での進捗状況を知りたい
-
CとFORTRANの計算速度はどちら...
-
matlabで計算終了
おすすめ情報