[發問] 關於AutoFilter的疑問

av8d

ActiveSheet.UsedRange.AutoFilter 1, ">=" & TextBox1

當TextBox1鍵入 2012/6/1  他能搜尋  2012/6/1  以後的日期
當TextBox1鍵入 6/1 他能搜尋 2012/6/1  以後的日期

ActiveSheet.UsedRange.AutoFilter 1, "=" & TextBox1

當TextBox1鍵入 2012/6/1  他能搜尋  2012/6/1  這個日期
當TextBox1鍵入 6/1 他卻"無法"搜尋 2012/6/1  這個日期

而是搜尋不到，請問有人知道這是什麼原因嗎?
我該如何
當TextBox1鍵入 6/1 讓他"能"搜尋 2012/6/1  這個日期

register313

回復 1# av8d

ActiveSheet.UsedRange.AutoFilter 1, ">=" & DateValue(TextBox1)
ActiveSheet.UsedRange.AutoFilter 1, "=" & DateValue(TextBox1)

av8d

回復 2# register313


    大大您好~因為我使用的是自訂表單
Private Sub TextBox1_Change()
    ActiveSheet.UsedRange.AutoFilter 1, "=" & DateValue(TextBox1)
    If TextBox1.Value = "" Then ActiveSheet.Range("$A$1:$E$1").AutoFilter Field:=1
    ActiveWindow.LargeScroll Down:=-1
End Sub

會出現"型態不符合"的錯誤

register313

回復 3# av8d

輸入textbox1後,再按CommandButton1

1. Private Sub CommandButton1_Click()
   
2. If TextBox1.Value = "" Then
   
3.    ActiveSheet.Range("$A$1:$E$1").AutoFilter Field:=1
   
4. Else: ActiveSheet.UsedRange.AutoFilter 1, "=" & DateValue(TextBox1)
   
5. End If
   
6. End Sub

複製代碼