標題: [發問] 關於AutoFilter的疑問 [打印本頁]

---

作者: av8d    時間: 2012-6-6 23:36     標題: 關於AutoFilter的疑問

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    時間: 2012-6-7 00:14

回復 1# av8d

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

---

作者: av8d    時間: 2012-6-7 10:23

回復 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    時間: 2012-6-7 10:36

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)