エクセル エンター検索 delでクリア

質問

エクセルのマクロで住所録の入っているシートから宛名、概要のはいっている２列からフィルターオプションを使って検索のマクロと検索結果を削除するマクロを作りました
検索用のワードを入れるセルは
宛名用C3、概要用D3
に作っており、そこにワードを入力後にマクロを割り当てたボタンを押して「検索」、「クリア」のマクロを実行させています。
このマクロを検索したいワードをC3またはD3に入力し確定することにより「検索」マクロを実行させ、入力したワードをデリートすることで「クリア」マクロを実行させたいと考えてます
色々な質問サイトを検索して、シートのチェンジをするものを書き込んで試しているのですがマクロが動いてくれません
検索だけをやるためにサイトに載っていたチェンジイベントの書き込みを参考にメッセージボックスでは動かせたのですがマクロ名を入れると何も動きません
色々なサイトの記載を試しては消し、試しては消すを繰り返しています
エクセル初心者でサイトのかじり読みでは先に進まなくなりましたので教えて下さい

回答No.3

kkkkkm · ベストアンサー

マクロの検索でC3とD3を書き換えてるので都度マクロの検索が実行され続けている状態ですね。
Application.EnableEvents = False
でイベント処理を中止して処理が終わった時点で
Application.EnableEvents = True
でイベント処理を有効に戻します。
処理の途中でエラーになった場合中止のままになりますのでイミディエイトウィンドウで
Application.EnableEvents = True
を実行してください。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C3:D3")) Is Nothing Then
If Target.Value = "" Then
クリア
Else
検索
End If
End If
Application.EnableEvents = True
End Sub

お礼

ありがとうございました
なんの問題もなく、希望通り動いてくれました
また、書き込みに対して早急に回答頂きありがとうございました
奥が深いので、これからもネット検索して自分で色々いじりながら勉強していきます
本当にありがとうございました

回答No.2

kkkkkm

> サイトを見ているとmsgbox のところをマクロ名に変えてみれば動くとあり、
> Macro 検索
> Macro "検索"
> など入力方法を試したのですが上手くいきません

サイトに記載されているコードでMsgBoxと書かれているところをマクロ名に変えれば動きますということですね。マクロ名が検索でしたらそのまま検索と記載すればいかがですか。
マクロ名が検索とクリアでしたら(C3またはD3に入力とあるのでその両方を見てます)
たとえば以下のような感じになると思いますが。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:D3")) Is Nothing Then
If Target.Value = "" Then
クリア
Else
検索
End If
End If
End Sub

補足

早速教えていただいたマクロをワークシートに入力しました
検索セルにワード入力してエンターを押したところマクロは起動しているのですが、あらたな問題が発生しました
まずワードを入れエンター押した時に
実行時エラー28
スタック領域が不足しています
とでて、ワードを削除すると
実行時エラー13
型が一致しません
となります
ちなみに検索マクロは
Sub 検索()
Cells(3,"C").Value = "*" & Cells(3,"C").Value & "*"
Cells(3,"D").Value = "*" & Cells(3,"D").Value & "*"
Sheets("住所").Range("A12:I10000").AdvancedFilter Action:=xlFilterCopy,CriteriaRange:=Range("C2:D3"),Copy, CopyToRange:=Range("A8:I8"),Unique:=False
Range("A9").Select
End Sub
クリアはフィルターで検索抽出した回答を選択して、罫線を含め全消去するものです
エラーは検索ワードを❇︎で囲っているのですが、その❇︎が延々と動いてしまっているようです
クリアの方は何が起きているかわかりません
検索のマクロを書き換えないとダメなのですか？
なんどもすいませんが教えて下さい

回答No.1

kkkkkm

どのようなコードなのか不明なので原因がわかりませんが、コードの途中の切れ目となるところ(IFで分岐しているところなどでIFの後とか、実際にマクロが呼ばれているかどうか呼び出すマクロの頭とか、シートチェンジの頭とか)にMsgBoxを入れてどこまで実行されているのか確認してみてはいかがですか。

また、マクロ名をPublic Sub 元のマクロ名()に変更したらどうなるでしょう。

補足

すでに色々と試したものは、消してしまい、新たなものを試すと言う方法でやっていたので、msgboxで動いていたものも消してしまい残っていないんです
サイトを見ているとmsgbox のところをマクロ名に変えてみれば動くとあり、
Macro 検索
Macro "検索"
など入力方法を試したのですが上手くいきません
また、どのサイトを見ても、検索セルにワード入力で検索のような書き込みはあっても、削除でクリアマクロが出来るようなものが見当たりません
まずこれは不可能なんですか？
出来れば、どのように書き込みをすればいいかを教えて下さい