|
γ様。今晩は。最後までお付き合い頂きありがとうございました。
>何か勘違いをしていました。九九を復習しなければ・・・。
→すみません。完全に私の言葉不足でした…
>一回でも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というのも今回教えて頂き、初めて
知りました。
色々とご教授頂き、有難う御座いました。
|
|