ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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­Ó¤é´Á

¦^´_ 1# av8d

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

TOP

¦^´_ 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"ªº¿ù»~

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD