私はこのコードを持っています:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Target.Value <> "" Then
Set wbks = Workbooks.Open("\\MyPath\Workbook.xlsx")
wbks.Sheets("Control").Activate
ActiveSheet.Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:=Target.Value '7 is the filter # column
End If
End Sub
control
シートのヘッダーが行 1 にある場合にのみうまく機能します。
私の問題は\\MyPath\Workbook.xlsx
、読み取り専用ファイルで、ヘッダーが行 3 から始まることです。