Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6849 / 76732 ←次へ | 前へ→

【75479】Re:九九を途中で止めるプログラムを作成したいのですが…
発言  γ  - 14/4/13(日) 17:56 -

引用なし
パスワード
   何か勘違いをしていました。九九を復習しなければ・・・。

一回でも55を超えたら終了するのであれば、
Exit Sub ですね。

Sub 掛け算で答えが55以下を表示し、その後はループしない()
  Dim i As Long
  Dim j As Long
  Dim a As Long
  Dim sheetobj As Worksheet
  
  Set sheetobj = ThisWorkbook.Worksheets("Sheet1")
  With sheetobj
    a = 55
    For i = 1 To 9
      For j = 1 To 9
        If i * j > a Then
          Exit Sub
        Else
          .Cells(i + 1, j + 1).Value = i * j
        End If
      Next j
    Next i
  End With
End Sub

2 hits

【75474】九九を途中で止めるプログラムを作成したいのですが… ガイツ 14/4/13(日) 3:19 質問
【75475】Re:九九を途中で止めるプログラムを作成したい... γ 14/4/13(日) 9:07 発言
【75476】Re:九九を途中で止めるプログラムを作成したい... ガイツ 14/4/13(日) 12:11 お礼
【75477】Re:九九を途中で止めるプログラムを作成したい... γ 14/4/13(日) 13:58 発言
【75478】Re:九九を途中で止めるプログラムを作成したい... ガイツ 14/4/13(日) 17:00 お礼
【75479】Re:九九を途中で止めるプログラムを作成したい... γ 14/4/13(日) 17:56 発言
【75490】Re:九九を途中で止めるプログラムを作成したい... ガイツ 14/4/14(月) 20:50 お礼

6849 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free