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

VBA §ì¨úListBox¤¤ªº¤º®e

¦^´_ 54# samwang
·J¾ã_0708.zip (469.76 KB)
·Pı·|¦³§ó¦nªº¿ìªk¡A¥u¬O¥Ø«e§Ú¥u°µ¨ì³o¼Ë¦Ó¤w

TOP

¦^´_ 54# samwang
¤j¤j¡A¤£¦n·N«ä¤S¨Ó³Â·Ð§A¤F
§Ú²{¦b°µ¤F¤@­Ólistbox¨Ó¸Ë¿z¿ï±ø¥ó¡A¦ý¬O¥u¯à§ì¨ì¤@­Ó¨Ó¿z¿ï
¦³¿ìªk§ì¦h­Ó±ø¥ó¨Ó¿z¿ï¶Ü
  1. Private Sub CommandButton5_Click()
  2. For i = 0 To ListBox2.ListCount - 1
  3.         If ListBox2.Selected(i) = True Then
  4. Worksheets("Á`ªí").Range("$A$2:$T$2414").AutoFilter field:=7, Criteria1:="=" & ListBox2.List(i)
  5. End If
  6. Next
  7. End Sub
½Æ»s¥N½X
·J¾ã_0708.zip (464.45 KB)

TOP

¦^´_ 58# samwang
§Úªºlistbox¸Ì­±¤w¸g¦³¿z¿ï±ø¥ó¤F
¦ý§Ú¥Ø«e¥u¯àSelect¨ì1­Ó­È¨Ó¿z¿ï
§Úªº°ÝÃD¬O«ç»ò±qlistbox¸ÌSelect¦h­Ó­È¨Ó¿z¿ï

list.JPG

TOP

¦^´_ 34# samwang
¤j¤j¡A§Ú²{¦b§â¥¦¥á¶icombobox¸Ì
¦ý§Ú¿ï¤F¨ä¤¤¤@­Ó¡A«o·|¥þ³¡³£¥s¥X¨Ó

TOP

¦^´_ 61# samwang
´ú¸Õ¹L¤F¡A¨S°ÝÃD¡AÁÂÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD