飛び飛びのオートフィルタ

ちょっとした小技

オートフィルタは連続した列に対して設定するもので、Ａ列とＣ列だけに設定するってことは普通はしません。
でも、やる方法はないこともないです。

　
まず、オートフィルタをかけておきます。
　
次に↓の Macro1 でオートフィルタのドロップダウンの名前を取得します。

Sub Macro1()
　　Dim i As Shape

　　For Each i In ActiveSheet.Shapes
　　　　If i.Type = msoFormControl Then
　　　　　　Debug.Print i.Name
　　　　End If
　　Next i
End Sub

　
そして、消したいドロップダウンを指定して、削除

Sub DeleteDropDown()
　　ActiveSheet.Shapes("Drop Down 2").Delete
End Sub

または非表示

Sub HideDropDown()
　　ActiveSheet.Shapes("Drop Down 2").Visible = msoFalse
End Sub

にします。
　
おそらく、Excel97 〜 2003 で有効です。（Excel2002 でしか試していませんが。）
残念ながら、Excel2007 には使えないようです。
（あんまし動作確認していません。）
　
※.Excel World の 2007年6月25日 00:21 の日記をコピーしています。
http://excel.sns.fc2.com/excel/