これは、シングルクリックイベントをキャッチするために必要なコードになります。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print Target.Address
End Sub
これは、ダブルクリックイベントをキャッチするために必要なコードになります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Debug.Print Target.Address
'cancel the double click, prohibiting editng of cell per double-click
Cancel = true
End Sub
私もあなたのフィルタリングを手伝っていただろうが、あなたはそれにコードを貼り付けておらず、どのデータをどのようにフィルタリングしたいか正確にわからないので、それはあなたに任せます;)
編集:
このコードはWorksheet_SelectionChange
、使用範囲内の有効な選択に基づいてフィルターを設定するために使用できます。フィルタがすでに配置されている場合は、無効になります。
On Error Resume Next
If Sheet1.AutoFilterMode Then
'clear existing autofilter
Sheet1.UsedRange.AutoFilter
Else
'setup filter based on selection
Sheet1.UsedRange.AutoFilter field:=Target.Column, _
Operator:=xlFilterValues, _
Criteria1:=Target.Value, _
VisibleDropDown:=True
End If