VBA過濾器（搜索整數值）

Question

我有下面的代碼基於什麼輸入到文本框中的過濾器。這適用於字符串，但它不適用於整數搜索。任何想法我可能做錯了什麼？

Private Sub TextBox1_Change() 
On Error Resume Next 
metin = TextBox1.Value 
Set bul = Range("a4:a10").Find(What:=metin) 
Application.Goto Reference:=Range(bul.Address), Scroll:=False 
Selection.AutoFilter field:=1, Criteria1:=TextBox1.Value & "*" 
If metin = "" Then 
    Selection.AutoFilter 
End If 
End Sub 

Answer 1

在開始處添加Range("a4:a10").NumberFormat = "@"。使用數字，Excel會嘗試比較值，而不是字符串中的數字表示。因此，它試圖完全匹配:)與該行它將數字序列視爲字符串，並將應用字符串比較。最終的代碼如下：

Private Sub TextBox1_Change() 

Range("a4:a10").NumberFormat = "@" 

On Error Resume Next 
metin = TextBox1.Value 
Set bul = Range("a4:a10").Find(What:=metin) 
Application.Goto Reference:=Range(bul.Address), Scroll:=False 
Selection.AutoFilter field:=1, Criteria1:=TextBox1.Value & "*" 
If metin = "" Then 
    Selection.AutoFilter 
End If 
End Sub 

爲了優化起見，你應該某處設置範圍格式這種方法之外，所以你不必做的每一文本框已經改變一次。