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

質問

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.8

xls88 · ベストアンサー

End If
にしてください。

お礼

ありがとうございます。

おかげさまでやりたいことができました。

しかし、実はもう少し入りこんでおりまして、

あるコマンドボタンを入力すると、セルに自動である文字が入り、検索をかけてくれる構成です。

直接、手入力でも、できるようにと、今回のご依頼をさせていただきました。

その結果、手入力した場合は、うまくいくのですが、

今度は、コマンドボタンを押して、セルに自動入力後、検索がうまくいきません。

型が一致しませんエラーがでてしまいます。

If Target.Value = "" Then

この文が引用されてます。

なぜなのでしょうか。

回答No.9

xls88

≪参考≫
特定のセル範囲が変更されたときに処理を実行する
http://www.moug.net/tech/exvba/0050131.htm
「Change」イベント・・・セルの内容が変更された時にプロシージャを実行する。
http://www9.plala.or.jp/siouxsie/date06.html

回答No.7

xls88

回答番号：No.6で提示したコードですが
よく見ると、If文でEndとするところがElseになっていました。
Endに直してください。
あるいは、1行で
If Intersect(Target, Range("E3:N3")) Is Nothing Then Exit Sub
としても良いと思います。

お礼

ありがとうございます。

全てうまくいきました。

さきほどのエラーも解消できました。

感謝しております。

補足

ご指導ありがとうございます。

ifブロックに対応するend if がありません。

のエラーが出てしまいます。

いかがでしょうか。

回答No.6

xls88

回答番号：No.5の補足
Intersectで、Targetが、Range("E3:N3")内にあることを検出した後
Targetが、空白なら、Exit Subするようにします。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:N3")) Is Nothing Then
Exit Sub
Else
IF Target.Value = "" Then Exit Sub
Call Macro7
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

余談ですが
性急に、結果ばかりを求めず、コードの意味を理解されるようにした方が良いと思いますよ。
VBAのヘルプを活用してください。解りにくい部分もありますが、なかなか充実していると思います。
デバッグ等で、F8キーでコードを1行ずつ実行するのもコードの理解が容易になります。

あと、a26vNvvubさんが建てられたスレが乱立しています。
解決されたなら締め切り処理をよろしくお願いいたします。

回答No.5

xls88

If Application.WorksheetFunction.CountBlank(Range("E3:N3")) <> 0 Then Exit Sub
上記で、E3:N3範囲に、空白セルがひとつでも在ると、Exit Subしています。

回答番号：No.3で示したコードに変えて、試してみてください。
IF Target.Value = "" Then Exit Sub

回答No.4

xls88

下記でキー設定されたままになっています。
Application.OnKey Key:="{ENTER}", Procedure:="Macro7"

どこかで解除してやらなければなりません。
Application.OnKey Key:="{ENTER}", Procedure:=""
しかし、Changeイベントですから、データが変更Enterで確定されたなら動きます。
OnKeyを使うことはないと思います。

下記で試してみてください。
Call Macro7

補足

ありがとうございます。

エンターキーを解除して、下記を試みましたが、
こんどは、マクロが動いてくれません。

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.WorksheetFunction.CountBlank(Range("E3:N3")) <> 0 Then Exit Sub

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

Call Macro7

End If

On Error Resume Next
ActiveSheet.ShowAllData

End Sub

回答No.3

xls88

下記で試してみてください。
IF Target.Value = "" Then Exit Sub

補足

やはりだめでした。

補足ですが、

他のセルでも、どこかのセル上でエンターキーを押すと、マクロが動き出します。

シートにマクロを設定したはずなのですが・・・

回答No.2

mt2008

前回の回答では解決しませんでしたか？
何が問題だったか補足してください。

参考URL：

http://oshiete1.watch.impress.co.jp/qa5737554.html

補足

前回はありがとうございました。

そのときはできたのですが、

なぜか、その後、突然できなくなりました。

下記のマクロです。

ちなみに、再生すると、マクロ名を聞かれますので、macro7を選択しております。

どうか今回もよろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.WorksheetFunction.CountBlank(Range("E3:N3")) <> 0 Then Exit Sub

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

mo2yakko

COUNTAかループでチェックするしか思いつきませんでした。(^^;

'COUNTAで判断
If Application.WorksheetFunction.CountA(Range("E3:N3")) < 10 Then
Exit Sub
End If

'ループで判断
For Each c In Range("E3:N3")
If c.Value = vbNull Or c.Value = vbEmpty Then
Exit Sub
End If
Next

補足

ありがとうございます。

ちなみに、どの位置にいれるのでしょうか。

お手数ですが、ご教示のほどよろしくお願いします。