エクセルのマクロで条件によって中断させる方法

質問

例えば、A1のセルが空欄の場合は、マクロを終了して、文字列や数値などのデータが入力されている場合はマクロを実行（例えば範囲選択して合計を算出するなど）するマクロの書き方がわかりません。お願いします。

回答No.3

kuwa_98 · ベストアンサー

A1セルが 空欄 なら　"Exit Sub"（マクロ終了）
そうでなければ、マクロ実行です。

Sub Test()

If Range("A1") ="" Then
Exit Sub
End If

ここに、実行マクロを記述

End Sub

お礼

OKWaveに慣れてなく、お礼の時期を逸しました。
申し訳ございません。

あなたさまのご回答が一番シンプルで、自分に合っていたと思います。

回答No.5

hallo-2007

>A1のセルが空欄の場合は、マクロを終了して
If Range("A1").Value = "" Then Exit Sub
とコードで判断して　マクロを終了させます。

（例えば範囲選択して合計を算出するなど）
一例です。
Sub ボタン1_Click()
If Range("A1").Value = "" Then Exit Sub
MsgBox WorksheetFunction.Sum(Selection.Cells)
End Sub

お礼

OKWaveに慣れてなく、お礼の時期を逸しました。
申し訳ございません。

回答No.4

senbei12

こういうことでしょうか？
(行頭スペースがカットされて見ずらいですが)

Public Sub hoge()
If Range("A1").Value = "" Then
'マクロ終了
Exit Sub
End If

'実行したい処理
MsgBox "ほげほげ"
End Sub

お礼

OKWaveに慣れてなく、お礼の時期を逸しました。
申し訳ございません。

回答No.2

keithin

＞例えば、A1のセルが空欄の場合は、マクロを終了して

よく使う書き方その１
sub macro1()
if worksheets("Sheet1").range("A1")="" then exit sub
worksheets("Sheet1").range("B1").formula = "=SUM(A:A)"
end sub

よく使う書き方その２
sub macro2()
if worksheets("Sheet1").range("A1") <> "" then
worksheets("Sheet1").range("B1") = application.sum(range("A:A"))
end if
end sub

お礼

OKWaveに慣れてなく、お礼の時期を逸しました。
申し訳ございません。

回答No.1

mu2011

一例です。

IF　Range("A1").Value　= ""　Then　Exit　Sub
MsgBox WorksheetFunction.Sum(Range("B1:B10"))

お礼

OKWaveに慣れてなく、お礼の時期を逸しました。
申し訳ございません。