E3:N3セルに値を入力後、エンターキーを押すことで、マクロを実行して

質問

E3:N3セルに値を入力後、エンターキーを押すことで、マクロを実行しております。

しかし、セルが空白のままエンターキーを押してしまうと、エラーとなってしまいます。
（フィルタオプションの設定で値を抽出するマクロのため、空白だとエラーになってしまいます。）

できれば、セルが空白のとき、エンターキーを押しても、マクロを実行しないようにしたいです。

言葉足らずで恐縮ですが、何卒よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("E3:N3")) Is Nothing Then
Exit Sub
Else

Application.OnKey Key:="{ENTER}", Procedure:="Macro7"

End If

On Error Resume Next
ActiveSheet.ShowAllData

End Sub

回答No.1

mt2008 · ベストアンサー

一つでも空白があれば終了？
Private Sub Worksheet_Change(ByVal Target As Range)の直後に↓でどうでしょう。
If Application.WorksheetFunction.CountBlank(Range("E3:N3")) <> 0 Then Exit Sub

「全て空白の時終了」にしたいなら、式を「<>0」→「＝10」にしてください。

お礼

うわあああああ

出来ました。

本当にありがとうございました。