ExcelVBAで似たようなプログラムをひとつにまとめたい（クラスモジュールにて？）

Question

3枚のワークシートがあり、それぞれのシートの2行目に検索（絞り込みたい）したい文字を入力、
フィルターオプションで絞り込み・それをリセットするようなプログラムをセルに直接
フォームボタンで作成したのですが、作成したプログラムを見ると同じような処理をボタンごとに
作っています。
無駄に見えるので、これらを効率よく１つのプログラムに収めたいのですが、
どのようにしたらよいかさっぱりで、どうか教えてください。

A	B	C	D	E
検索文字入力	検索文字入力	検索文字入力	検索文字入力	検索文字入力
あ	い	う	え	お
か	き	く	け	こ
…	…	…	…	…

検索ボタン
リセットボタン

Sub reset()
    If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
    End If
End Sub

Sub search(searchRange, searchSource)
    reset
    ActiveSheet.range(range(searchRange), Cells(Rows.Count, 1).End(xlUp)).AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=ActiveSheet.range(searchSource), _
        Unique:=False
End Sub

Sub resetAfter_Click()
    reset
End Sub

Sub resetDevice_Click()
    reset
End Sub

Sub resetParts_Click()
    reset
End Sub

Sub searchParts_Click()
    Call search("A1:I1", "A1:I2")
End Sub

Sub searchDevice_Click()
    Call search("A1:I1", "A1:I2")
End Sub

Sub searchAfter_Click()
    Call search("A1:E1", "A1:E2")

たとえば以下を一つにしたいです。

Sub resetAfter_Click()
    reset
End Sub

Sub resetDevice_Click()
    reset
End Sub

Sub resetParts_Click()
    reset
End Sub

Sub searchParts_Click()
    Call search("A1:I1", "A1:I2")
End Sub

Sub searchDevice_Click()
    Call search("A1:I1", "A1:I2")
End Sub

Sub searchAfter_Click()
    Call search("A1:E1", "A1:E2")

若干調べてみたところ、クラスモジュールを作成すれば、まとめられると伺ったのですが、
調べてもよくわかりませんでした。

勉強のため、ひとつご教授お願いします。

Answer 1

それぞれのシート上にフォームコントロールのボタンを配置したということですね。

なら、リセットボタンに関しては、ボタンを右クリックしてマクロの登録で、reset を選択すればいいだけです。

検索ボタンはシートによって対象範囲が異なるので、Select Caseなどで場合分けする必要がありますので、下記のようなマクロを作成して、マクロの登録でsearch_Clickを選択してください。

Sub search_Click()
    Select Case ActiveSheet.Name
    Case "Parts", "Device"
        Call search("A1:I1", "A1:I2")
    Case "After"
        Call search("A1:E1", "A1:E2")
    End Select
End Sub

シート名は、"Parts", "Device", "After" と推定しています。

ちなみに、クラスモジュールを使えるのは、ActiveXコントロールのボタンになります。
フォームコントロールのボタンの場合は、簡単に一つのマクロを複数のボタンに登録できます。

おまけ

シートが多いので Select Case が長くなる、シートの追加、削除が発生する、というようなときは、
Application.Caller と AlternativeText を使って下記のようにするととメンテナンスが楽になります。

Sub search_Click()
    Dim rngs
    rngs = Split(ActiveSheet.Shapes(Application.Caller).AlternativeText, ",")
    
    Call search(rangs(0), rangs(1))
End Sub

ボタンの書式設定の「代替テキスト」に
A1:I1, A1:I2
と対象のセル範囲を設定しておきます。
シートを追加したり、シート名を変更してもコードの修正は不要になります。

Comments

[morutemu]

複数指定できるのですね！
さすがです！
ありがとうございました。
参考になりました。

Answer 2

たとえば以下を一つにしたいです。

ボタンクリックで呼び出すマクロ関数を選択できるので、どのボタンも同じ関数を呼ぶように設定しておけばいいんじゃないでしょうか。
クラスを使うまでもない。
resetもserchもActiveSheetを対象に処理しているので、上記の変更だけでいいと思います。