2017-05-11 26 views
0

我認爲這會更容易,但它正在吃我的午餐。我有一個主要的Excel列表,包含許多列,一些文本,一些數字以及一個帶有前導字母后跟兩個數字的列表。他們是自動過濾器,也有一個activeX文本框。我已經將文本框鏈接到VBA,並使所有基於字符串的列完好無損地工作。它去如下:帶有ActiveX文本框和自動過濾列的自動篩選數值?

Private Sub TextBox4_Change() 
Range("$E$1").AutoFilter Field:=5, Visibledropdown:=True 'Leave the drop down arrows on 
Range("$E$1").AutoFilter Field:=5, Criteria1:="=*" & TextBox4 & "*" 
End Sub 

現在,讓我們說,確切的列充滿了用數字代替。我將如何做到這一點?它用上面的代碼過濾掉數字值。有沒有人用這個設置解決了這個問題?我今天在這裏和其他地方一直在尋找幾個小時,卻找不到解決這個問題的正確方法。提前致謝。

回答

0

沒關係,這是很容易,只需要改變標準1至Textbox4的價值,這就是:

Private Sub TextBox4_Change() 
    Range("$E$1").AutoFilter Field:=5, Visibledropdown:=True 'Leave the drop down arrows on 
Range("$E$1").AutoFilter Field:=5, Criteria1:=TextBox4 
End Sub