列内の特定のテキストをフィルタリングするボタンをExcelで作成する

Question

列EをフィルタリングするExcelでボタンを作成しようとしています。列Eの名前はカテゴリ（オンサイト、電子メール、電話）です。オンサイト用、電子メール用、電話用の3つのボタンを作成したいと思います。

たとえば、オンサイトをクリックすると、すべてのオンサイト質問が表示され、他の2つのボタンも同じように表示されます。

Sub Button1_Click() 
    Range("E:E").AutoFilter Field:=1, Criteria1:="phone" 
End Sub 

このコードでは、私は電話での記録のみを表示し、オンサイトと電話の両方の記録は表示しません。

また、プレフォンで分類されているすべての質問は表示されません。 20の質問がある場合、それは10だけをフィルタリングします。

ありがとう！

Answer 1

これは参考になる場合があります。 3つのマクロをこのフォーマットで書き出し、フィルタリングするものに基づいてそれぞれの 'criteria'変数を変更することができます。これには、複数のエントリを持つセルが含まれます。次に、それぞれが独自のマクロにリンクする3つのボタン（tutorial here）を挿入できます。それぞれのマクロ名を変更してください！

Sub ManualFilter() 

Dim criteria As String 

'What to look for 
criteria = "Email" 

'Where to look (Column E) 
Dim myRange As Range 
Set myRange = Range("E2", Cells(Rows.Count, "E").End(xlUp)) 

Dim myCell As Range 

'Compare with criteria 
For Each myCell In myRange 
    'if it matches: 
    If InStr(1, myCell.Value, criteria) <> 0 Then 
     myCell.EntireRow.Hidden = False 
    Else 
     'if it doesn't match: 
     myCell.EntireRow.Hidden = True 
    End If 
Next myCell 

End Sub