[エクセル]VBA連続処理を途中でストップさせたい

質問

[エクセル]VBAの連続処理を途中で自動的にストップさせるには？

以前にこちらで下記の質問をさせて頂きました。
http://okwave.jp/qa/q3838337.html

最終的にNo.4の回答がベストアンサーとなりました。

----------
Sub kaiseki()

For i = 0 To 9
Sheets("Aシート").Select

If Range("B3").Offset(i, 0).Value = Empty Then GoTo Skip

Worksheets("Bシート").Range("B11:G11").Value = Worksheets("Aシート").Range("B3:G3").Offset(i, 0).Value

Worksheets("Bシート").Calculate

Sheets("Aシート").Range("J3:O3").Offset(i, 0).Value = Worksheets("Bシート").Range("B15:G15").Value　　　'※元のマクロの19行まで

　　'※中略（ここの部分の処理も上を参考にすれば可能です）

Skip:
Next i

End Sub
----------

上記の場合はAシートの９行目（For i = 0 To 9）まで自動的に処理が進むのですが、AシートのB～Gのセルに数値が入っていなかった場合は、その行で処理をストップさせたいと思っています。
例えば、B～Gの３行目まで数値が入っていて、４行目には数値が入っていなかった場合、９行目まで処理を進めるのではなく、数値が入っていない４行目で処理を停止させたいです。

どのように記述を書き加えれば良いのでしょうか？
御教授を頂けると助かります。

よろしくお願い致します。

回答No.1

piroin654 · ベストアンサー

以下のようなこと？

>If Range("B3").Offset(i, 0).Value = Empty Then GoTo Skip

If Range("B3").Offset(i, 0).Value = Empty Then Exit For

回答No.4

imogasi

参考
上から１行ずつ全行処理していくのだと思うが、Offsetを使わずに質問の回答（掲出コード修正を希望）とは別に
Sub test01()
d = Range("B65536").End(xlUp).Row
For i = 3 To d
For j = 2 To 7 'B列からG列まで
x = Worksheets("Sheet1").Cells(i, j)
If x <> "" And IsNumeric(x) Then
Else
MsgBox i & "行以下処理せず　終了"
Exit Sub
End If
Next j
MsgBox i & "行を処理" 'ここに１行分の処理を入れる
Next i
End Sub
のようなのを勉強したら。
ほとんどの場合、この方式で処理できる。
ーー
＞B～Gのセルに数値が入っていなかった場合
・B-G列のすべての列が空白の場合なのか
・１つの列のセルでも空白なのか
質問ではっきりしない。
こういうことをはっきり表現できる思考と表現になれないとだめです。
すべての列の空白を条件にするなら（途中でストップにしてないが）
Sub test02()
d = Range("B65536").End(xlUp).Row
For i = 3 To d
With Range(Cells(i, 2), Cells(i, 7))
If WorksheetFunction.CountBlank(.Cells) = .Count Then
MsgBox i & "行は全て空白です"
Else
MsgBox i & "行を処理"
End If
End With
Next i
End Sub
のような方法もある。
http://park11.wakwak.com/~miko/Excel_Note/15-04_celldata.htm#15-04-64
ーーー
以前の回答の方法は難しい方を選んでいるように思う。自分との相性や自分の力に左右されるものだが。
課題にVBAで当たるには、もう少し勉強してからでないと、質問が続き。回答も質問者に誤解されかれない恐れがある状態のようだ。

お礼

ご回答ありがとうございます。
私にはVBAの知識がないため、自分で記述をする事ができないレベルです。

「B～Gのセルに数値が入っていなかった場合」についてですが、これはB～Gの一部のセルにも空白だった場合と言う事でした。
単純にBのセルのみと言う事でも大丈夫です。

言葉足らずで申訳ありませんでした。

imogasi様が提案された記述の方が処理が早いでしょうか？
空白セルがあった場合の、メッセージボックスは出さなくても良いと思っています。

質問の記述にもありましたように、Aシートの数値を参考にして、Bシートで計算をして、Bシートの結果をAシートに自動に記載する。そして、また次の行も同様に処理していくといった感じです。

より処理速度が早くなる記述があれば、アドバイスを頂けると助かります。

回答No.3

KURUMITO

追加のマクロでカンマが入っていました。次のように訂正します。

If WorksheetFunction.Count(Range(Cells(i,2),Cells(i,7)))=0　Then Exit For

お礼

ご回答ありがとうございます。

-----------------------
Sub kaiseki()

For i = 0 To 9
Sheets("Aシート").Select

If WorksheetFunction.Count(Range(Cells(i,2),Cells(i,7)))=0　Then Exit For
If Range("B3").Offset(i, 0).Value = Empty Then GoTo Skip

Worksheets("Bシート").Range("B11:G11").Value = Worksheets("Aシート").Range("B3:G3").Offset(i, 0).Value
-----------------------
または
-----------------------
Sub kaiseki()

For i = 0 To 9
Sheets("Aシート").Select

If WorksheetFunction.Count(Range(Cells(i,2),Cells(i,7)))=0　Then Exit For

Worksheets("Bシート").Range("B11:G11").Value = Worksheets("Aシート").Range("B3:G3").Offset(i, 0).Value
-----------------------

と、上記のように両方試してみましたが、「アプリケーション定義またはオブジェクト定義～」などとエラー表示され動作しませんでした。

最初にアドバイスして頂いたように、下記のように記述したら空白セルの行で処理がストップしたのですが、No3の回答の記述と何が違うのでしょうか？
一応、下記の記述で途中で処理をストップさせる事ができたのですが、No3では違う記述を提案されているので、どちらが良いのかアドバイスを頂ければ助かります。
-----------------------
Sub kaiseki()

For i = 0 To 9
Sheets("Aシート").Select

If Range("B3").Offset(i, 0).Value = Empty Then Exit For

Worksheets("Bシート").Range("B11:G11").Value = Worksheets("Aシート").Range("B3:G3").Offset(i, 0).Value
-----------------------

回答No.2

KURUMITO

次のように追加すればよいでしょう。

For i = 0 To 9
Sheets("Aシート").Select

If WorksheetFunction.Count(Range(Cells(i,2),Cells(i,7)))=0,Then Exit For