引数にコントロール名を使用したい

質問

Excelのシート上にあるコンボボックスの値に応じて
オートフィルタを制御したいと考えています。

コンボボックスは複数あるので、サブルーチン化した
いのですが、コントロール名を引数として使用すると
「オブジェクトが必要です」と表示されます。

Sub 抽出(テーブル名,フィールド名,コントロール名)
Range(テーブル名).AutoFilter フィールド名, コントロール名.Value
End Sub

Private Sub cb条件_Click()
Call 抽出("テーブル1", 1, "コントロール1")
End Sub

回答No.1

papayuka · ベストアンサー

これなら、コントロール名を引数にする必要は無いのでは？

Sub 抽出(テーブル名,フィールド名,コントロール名)
　　Range(テーブル名).AutoFilter フィールド名, コントロール名
End Sub

Private Sub cb条件_Click()
　　Call 抽出("テーブル1", 1, cb条件.value)
End Sub

お礼

そうですね！やってみます。
ありがとうございました。