今年の干支 Silver - RightWay 今年の干支

有償ボランティア活動(愛知県瀬戸市・尾張旭市 域内限定)

☆☆ Excel VBA マクロでフィルター操作を自動化 ☆☆

Excel VBA マクロでフィルター操作を自動化する方法について、参考になるホームページを紹介しながら説明します

(1) 「簡単Excelマクロ入門!マクロボタンで作業を自動化」 を参考に説明
 ・前編のWebサイトを参考にマクロ登録について解説します
Excel VBA マクロ使い方1

 ・後編のWebサイトを参考にマクロボタンについて解説します

(2)フィルターを設定したシートを準備します
Excel VBA マクロ使い方2

(3)マウスで検索文字を入力するシートを準備します
Excel VBA マクロ使い方3

検索のサンプルExcelダウンロード
 

参考:指定した文字をフィルター指定で連絡先を検索するシステム


======================================================================
Sub SearchMain()
'*----------------------------------------------------'
'* 連絡先検索システム (指定した文字で検索)
'*
'* ・シート名: "検索"、"連絡先"
'----------------------------------------------------'

'カーソルの位置を取得
 Sheets("検索").Select
 i = ActiveCell.Row
 j = ActiveCell.Column

'カーソルの位置で文字を取得
 wk_Search = Sheets("検索").Cells(i, j).Value
 Sheets("検索").Cells(3, 4).Value = wk_Search


'検索文字でフィルターセッ
 Call FilterSet

End Sub


Sub FilterSet()
'検索文字でフィルターセット

 wk_Search = Sheets("検索").Cells(3, 4).Value
 Sheets("連絡先").Select
'フィルター解除
 Call FilterReSet
'検索
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=2, Criteria1:="=*" & wk_Search & "*", _
        Operator:=xlAnd
        
 Range("C3").Select

End Sub


Sub FilterReSet()
'フィルター解除
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=1
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=2
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=3
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=4
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=5
'
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=6
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=7
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=8
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=9
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=10
 ActiveSheet.Range("$B$4:$O$3000").AutoFilter Field:=11

End Sub

Sub UseCount()
'利用回数と最終検索日をセット
 i = ActiveCell.Row
 wk_Count = Sheets("連絡先").Cells(i, 14).Value
 wk_Count = wk_Count + 1
 wk_ymd = Date
 Sheets("連絡先").Cells(i, 14).Value = wk_Count
 Sheets("連絡先").Cells(i, 15).Value = wk_ymd

End Sub


======================================================================


以上、「Silver - RightWay」をご利用いただき有難うございます。

inserted by FC2 system