ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】オートフィルターの簡単なサンプルコード。




どうも、ゴリラストロングです。

 

 

今回は、オートフィルターの簡単なサンプルコードを作成してみました。

 

 

<元データ>

f:id:gorilla-strong:20200312102459p:plain

「フィルタ」ボタンをクリックするとB2セルの文字列を含むセルを絞り込みます。

「解除」ボタンをクリックするとフィルターを解除します。

 

 

 

<マクロ実行後>

f:id:gorilla-strong:20200312102704p:plain

キーワードの「営業所」を含むセルだけが絞り込まれています。

動作としては以上です。

 

 

 

 スポンサーリンク

 

 

 

ソースコード

Sub フィルタ()

Dim macro As Object
Set macro = Workbooks("フィルター.xlsm").Worksheets("フィルタ")

Dim key As String
key = macro.Range("B2")

macro.Range("A4").AutoFilter 3, "*" & key & "*"

End Sub



Sub 解除()

Dim macro As Object
Set macro = Workbooks("フィルター.xlsm").Worksheets("フィルタ")

macro.Range("A4").AutoFilter

End Sub



 

<今回参照させていただいたサイト>

http://officetanaka.net/excel/vba/tips/tips155.htm

https://www.sejuku.net/blog/71689

 

 

以上、ゴリラストロングでした。

 

 スポンサーリンク