牡丹的象征意义:提取筛选关键字(vba)

来源:百度文库 编辑:中财网 时间:2024/05/09 09:05:58
提取筛选关键字(vba)

有网友问:如果A1的筛选关键字为“A”,则赋值1给C1,如果为“B”,C1则为2,怎么写

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myt
With Worksheets("sheet1")
    If .AutoFilterMode Then
        With .AutoFilter.Filters(1)
            If .On Then myt = .Criteria1
        End With
    End If
End With
Select Case myt
   Case "=A"
       Range("C1") = "1"
   Case "=B"
       Range("C1") = "2"
   End Select
End Sub