Excel VBA質問箱 IV

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

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


6841 / 76735 ←次へ | 前へ→

【75490】Re:九九を途中で止めるプログラムを作成したいのですが…
お礼  ガイツ  - 14/4/14(月) 20:50 -

引用なし
パスワード
   γ様。今晩は。最後までお付き合い頂きありがとうございました。

>何か勘違いをしていました。九九を復習しなければ・・・。
→すみません。完全に私の言葉不足でした…

>一回でも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
→やはりこの場合Exit Subで終わらせるのが筋ということですね。
 実はお恥ずかしながらExit Subというのも今回教えて頂き、初めて
 知りました。

 色々とご教授頂き、有難う御座いました。

1 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 お礼

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