[µo°Ý] Ãö©óAutoFilterªººÃ°Ý

av8d

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

·íTextBox1Áä¤J 2012/6/1  ¥L¯à·j´M  2012/6/1  ¥H«áªº¤é´Á
·íTextBox1Áä¤J 6/1 ¥L¯à·j´M 2012/6/1  ¥H«áªº¤é´Á

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

·íTextBox1Áä¤J 2012/6/1  ¥L¯à·j´M  2012/6/1  ³o­Ó¤é´Á
·íTextBox1Áä¤J 6/1 ¥L«o"µLªk"·j´M 2012/6/1  ³o­Ó¤é´Á

¦Ó¬O·j´M¤£¨ì¡A½Ð°Ý¦³¤Hª¾¹D³o¬O¤°»ò­ì¦]¶Ü?
§Ú¸Ó¦p¦ó
·íTextBox1Áä¤J 6/1 Åý¥L"¯à"·j´M 2012/6/1  ³o­Ó¤é´Á

register313

¦^´_ 1# av8d

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

av8d

¦^´_ 2# register313


    ¤j¤j±z¦n~¦]¬°§Ú¨Ï¥Îªº¬O¦Û­qªí³æ
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

·|¥X²{"«¬ºA¤£²Å¦X"ªº¿ù»~

register313

¦^´_ 3# av8d

¿é¤Jtextbox1«á,¦A«ö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

½Æ»s¥N½X