6

私はこのコードを持っています:

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 から始まることです。

4

2 に答える 2