搜索多個值，並選擇

Question

到目前爲止，我有一個Excel文件作爲這樣

http://i.stack.imgur.com/zX3xC.png

我的問題是，我希望能夠輸入具有搜索按鈕按下和輸入後的數框出現，選中電子表格中匹配的所有數字的搜索欄中的數字。

另外，作爲爲除了能放幾號（40，21，33用逗號隔開）

我當前的代碼是：

Sub SEARCH_Click() 
    Dim sh1 As Sheet1 
    Dim rng As Range 
    Dim uname As String 

    Set sh1 = Sheet1: uname = InputBox("Input") 
    With Application 
     .ScreenUpdating = False 
     .DisplayAlerts = False 
    End With 

    With sh1 
     .AutoFilterMode = False 
     Set rng = .Range("A4", .Range("A" & .Rows.Count).End(xlUp)) 
     On Error Resume Next 
     rng.SpecialCells(xlCellTypeVisible).Select 
     If Err.number <> 0 Then MsgBox "Data not found" _ 
      Else MsgBox "All matching data has been selected" 
     .AutoFilterMode = False 
     On Error GoTo 0 
    End With 

    With Application 
     .ScreenUpdating = True 
     .DisplayAlerts = True 
    End With 
End Sub 

我是相當新的編碼等等很多這一切都來自互聯網研究等。

Answer 1

放棄您的AutoFilter method，贊成Range.Find method。雖然最終可能在每列應用一系列.AutoFilters，但只需從Union method收集.Find操作的結果更有意義。

Private Sub CommandButton1_Click() 
    Dim uname As String, sh1 As Worksheet '<~~ there is no var type called Sheet1 
    Dim v As Long, fnd As Range, rng As Range, addr As String, vals As Variant 

    Set sh1 = Sheet4 

    uname = InputBox("Search for...") 
    vals = Split(Replace(uname, Chr(32), vbNullString) & Chr(44), Chr(44)) 
    ReDim Preserve vals(UBound(vals) - 1) 

    With sh1 
     For v = LBound(vals) To UBound(vals) 
      If IsNumeric(vals(v)) Then vals(v) = Val(vals(v)) 
      Set fnd = .Cells.Find(What:=vals(v), LookIn:=xlValues, LookAt:=xlWhole, _ 
            SearchOrder:=xlByRows, SearchFormat:=False) 
      If Not fnd Is Nothing Then 
       addr = fnd.Address 
       Do 
        If rng Is Nothing Then 
         Set rng = fnd 
        Else 
         Set rng = Union(rng, fnd) 
        End If 
        Set fnd = .Cells.FindNext(after:=fnd) 
       Loop Until addr = fnd.Address 
      End If 
      addr = vbNullString 
      Set fnd = Nothing 
     Next v 
     If Not rng Is Nothing Then rng.Select 
    End With 

End Sub 

目前尚不清楚你想要的Range .Select¹用此法後執行什麼動作。我會建議一個簡單的With ... End With statement woudl允許你繼續工作在rng不連續的Range object沒有實際選擇它。

---

¹_{見How to avoid using Select in Excel VBA macros更多的方法從依靠選擇越來越遠，並激活，以實現自己的目標。}