vba-在sheet中点击指定的cell 跳转到另一个sheet中过滤出两个条件的内容

Private Sub Worksheet_BeforeDoubleClick_bak(ByVal Target As Range, Cancel As Boolean)

'在sheet中点击cell时激活该方法

    Dim platform As String

    If Target.Row = 4 Then

        platform = "eDream"

    ElseIf Target.Row = 6 Then

        platform = "ODM"

    End If

    '状态没有细分的方法

    ' Call selectState(platform, 2, Target.Column)

    '状态有细分的方法

    Select Case Target.Column

        Case 11, 12

            Call selectState(platform, 3, Target.Column)

        Case Else

            Call selectState(platform, 2, Target.Column)

    End Select

    'MsgBox Target.Columns, Target.Rows

End Sub

Function selectState_bak(platform As String, stateRowNum As Integer, stateColumnNum As Integer)

    '选择平台的状态

    Dim state As String

    '获取状态

    state = Cells(stateRowNum, stateColumnNum).Value

    '筛选指定平台，指定状态的方法

    Call filterPlatformByState(platform, state)

End Function

Function filterPlatformByState_bak(platform As String, state As String)

    '筛选指定平台，指定状态的方法

    Dim totalcount As Integer

    '激活筛选sheet，【"Row data"】是被激活sheet名称

    Sheets("Row data").Select

    '取得被激活sheet的总行数

    totalcount = Sheets("Row data").[a1].CurrentRegion.Rows.Count

    '筛选平台，【4】是平台关键字所在的列

    ActiveSheet.Range("$A$1:$X$" & totalcount).AutoFilter Field:=4, Criteria1:=platform

    '筛选状态，【12】是平台状态关键字所在的列

    ActiveSheet.Range("$A$1:$X$" & totalcount).AutoFilter Field:=12, Criteria1:=state

End Function