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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
65536は2の何乗なのでしょうか?
-
EXCELなどで「返す」という表現
-
VBAの再計算が反映されない件に...
-
排他的論理和 BCC(水平パリテ...
-
Visual C++でdebugとreleaseで...
-
C言語の課題で、1年の秒数を計...
-
MATLABの利点と欠点
-
CとFORTRANの計算速度はどちら...
-
なぜオーバーフローになるので...
-
VB6で正確なミリ秒を計測したい...
-
モジュロ
-
CRC8を教えてください
-
モジュラス103の計算とは何でし...
-
エクセルVBA 他の仕事を止...
-
計算式の文字列を解析して自分...
-
バッチファイルでウインドウを...
-
for文である数の倍数になるまで...
-
NW7のチェックディジットについて
-
[ASP]日付と時間の比較
-
めちゃきれい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
65536は2の何乗なのでしょうか?
-
VBAの再計算が反映されない件に...
-
EXCELなどで「返す」という表現
-
変化させるセルが変化しない
-
排他的論理和 BCC(水平パリテ...
-
バッチファイルでウインドウを...
-
Visual C++でdebugとreleaseで...
-
モジュラス103の計算とは何でし...
-
ExcelのマクロVBA動作を軽くす...
-
VBAで関数をつくる
-
CとFORTRANの計算速度はどちら...
-
VBAでの勤務時間計算
-
PHPとJavaでSHA256の結果を同じ...
-
傾いた四角形内の範囲の条件式
-
エクセルで特定のセルのみを任...
-
モジュロ
-
VBでReplace
-
継承元と継承先での変数
-
計算量の少ないn乗根の求め方
-
CRC8を教えてください
おすすめ情報