excel vba の検索ボックスづくり

Question

excelのvba初心者です。
excelのマクロで検索ボックスを作ろうと思い動画を参考にしたのですがrangeクラスのautofilterメソッドが失敗しました。とエラーが出てしまいました。
どのように修正すればよいのかわからないので詳しい方のご指導お願いしたいです。

名前を"cname"
電話番号を"cnumber"
住所を"cadress"
送り先を”cadress2”
とオブジェクト名を付けました

Sub 立ち上げ()
custmor.Show

End Sub

Sub 検索()
If custmor.cname.Text <> "" Then
Range("A1").AutoFilter 2, "" & custmor.cname.Text & ""

Else
    Range("A1").AutoFilter 2
End If

If custmor.cnumber.Text <> "" Then
    Range("A1").AutoFilter 5, custmor.cnumber.Text
Else
    Range("A1").AutoFilter
End If


If custmor.cadress.Text <> "" Then
    Range("A1").AutoFilter 3, "*" & custmor.cadress.Text & "*"
    
Else
    Range("A1").AutoFilter
End If


If custmor.cadress2.Text <> "" Then
    Range("A1").AutoFilter 4, " * " & custmor.cadress2.Text & "*"
    
    
Else
    Range("A1").AutoFilter
End If

End Sub

参考にした動画はこちらです
https://youtu.be/fKVJTrPCuV8**ボールドテキスト**

Answer 1

VBAからフィルターを使ったこと無かったので、
勝手にデバッグしてみました ぉぃぉぃ
https://youtu.be/DG968fWAx78?t=14
↑エラーを強引に出してみました。へんなデバッグ動画ですが、参考となれば・・・

無いとは思いますが
Range("A1").AutoFilter 2, "" & custmor.cname.Text & ""
としているのに、
表の先頭がA1ではなく A3などから？始まっていたりは、
それはないよねぇ。エラーを強引に作り過ぎだって。

A1から表が始まっていたら、すみませんエラー・バグ探しで的を外しました。

ですが、
フィルターの初期範囲の設定が見当たらなかったので、
(検索フォームを立ち上げた時にあるのかな？)

えっと、テストしてほしいのが、
一度フィルターを表のデータ範囲に手動でかけてから
https://youtu.be/DG968fWAx78?t=108
フォームでテストすると、どうなりますか？

また、質問とは違いますが(迷っているときに余計に混乱させるなよ・・・)
フィルターをかける前に
前回条件クリアなど？
^^^^^^^^^^^^^^^
入っているといいのかなぁと
勝手なデバッグ中に思ったり。

読み返すと、的外れな回答だなぁ・・・と自覚しつつ、
(解決の糸口となればいいなぁ)

Comments

[ken3memo]

https://www.youtube.com/watch?v=fKVJTrPCuV8
みました。A1から始まっている表ですね。
私が強引に作ったエラーはスルーしてくださいね。
う～ん、原因は何でしょうね。。。

[ken3memo]

https://www.youtube.com/watch?v=fKVJTrPCuV8
みると
And条件の検索で、検索条件無しの時にクリアされるみたいですね
なので、
私が勝手に妄想した

＞
また、質問とは違いますが(迷っているときに余計に混乱させるなよ・・・)
フィルターをかける前に
前回条件クリアなど？
^^^^^^^^^^^^^^^
入っているといいのかなぁと
勝手なデバッグ中に思ったり。
＜

は、本当に質問とは無関係でした。ああ恥ずかし・・・

[ritun]

動画を交えた具体的な指摘ありがとうございます。
前回条件のクリアは
Dim tbl As ListObject
を検索の前に入れるだけでよろしいのでしょうか？

[ritun]

またクリアボタンを作成する場合はどうすればよいでしょうか？

[ken3memo]

私のヘンテコテスト動画
https://youtu.be/DG968fWAx78?t=213
だと、
Range("A1").AutoFilter でクリアしてテストしてましたが、

チャントした
元の参考動画 ※元動画の解説を見ると
https://youtu.be/fKVJTrPCuV8?t=825
をみると、

'条件1
If custmor.検索条件1.Text <> "" Then
Range("A1").AutoFilter 列, custmor.検索条件1.Text
Else
Range("A1").AutoFilter 1
End If
'条件2
If custmor.検索条件2.Text <> "" Then
Range("A1").AutoFilter 列, custmor.検索条件2.Text
Else
Range("A1").AutoFilter 2
End If
のパターンなので、

Range("A1").AutoFilter 2←この2列目の指定など、列指定が必要なのでは？
この
If テキストボックスに入っているか？ <> "" Then
入っていたら検索 Range("A1").AutoFilter 列, custmor.検索条件1.Text
Else
入っていなかったら Range("A1").AutoFilter 1 ←条件解除
End If
と
やっているので、
特にクリアとかいらないかなぁ。
^^^^^^^^^^^^^^^^^^^^^^
クリアとか気にしない作りになっていると思います

たぶん、テストしているときに、
質問のRangeエラーが出たので、外したのかな？

その質問ソースをみて、私が、クリアあったほうがいいかなぁと
テスト時によけいな事をつぶやいた感じかな。

このコメント欄に画像を貼れなかったので、
https://www.youtube.com/post/UgkxGqWEUE8TwdUEK0ge-260D3iWF6yCLNb5
↑みたいな感じかなぁ。

うまく、検索フォーム機能、検索フィルタが作れるといいですね。

[ritun]

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