簡單的VBA宏，允許用戶插入自定義編號

Question

在我的宏輸入29301到過濾器，我想啓動一個對話框，其中用戶可以輸入自己的號碼進行過濾。

Sub Macro3() 
ActiveSheet.Range("$A$1:$CL$293662").AutoFilter Field:=19, Criteria1:= _ 
    "=29301", Operator:=xlAnd 
End Sub 

Answer 1

試試看。代碼中的註釋。

Public Sub test() 
    Dim retval 

    'Get a value, very simple input box 
    retval = InputBox("Please enter a number to filter by") 

    'Make sure the data is numeric 
    If IsNumeric(retval) = False Then 
     MsgBox "You didn't enter a number! Try again" 
     Exit Sub 
    End If 

    'Apply the filter 
    ActiveSheet.Range("$A$1:$CL$293662").AutoFilter Field:=19, Criteria1:="=" & retval 
End Sub