samwang

¦^´_ 51# wang077


±z´£¨Ñªºµ{¦¡¦³°ÝÃD¡Aµ{¦¡¥»¨ÓListbox ³]©w¬°change¡A²{¦b§A¤S¦P®É³]©w¬°Listbox_DblClick
³o¼Ë¤£¦æ·|½Ä¬ð¡A¦Ó¥BDblClick¥u¯à³æ¿ï¡A¦n¹³¦³©M¤§«eªº»Ý¨D¤S¤£¤@¼Ë¡AÁÂÁ¡C

­ìµ{¦¡¬[ºc: listbox ³]¬°½Æ¿ï¡A¿ï¾Ü¾÷¸¹¡A¾÷¸¹¼È¦sAr¼Æ²Õ-->¥Îcommandbutton °õ¦æ°j°éAr¥h°µ½Æ»s°Ê§@

samwang

¦^´_ 53# wang077


¥i¥H´£¨ÑÀɮסAÅý§Ú¾Ç²ß¤@¤U¶Ü? ÁÂÁÂ

samwang

¦^´_ 56# wang077

§Ú²{¦b°µ¤F¤@­Ólistbox¨Ó¸Ë¿z¿ï±ø¥ó¡A¦ý¬O¥u¯à§ì¨ì¤@­Ó¨Ó¿z¿ï
¦³¿ìªk§ì¦h­Ó±ø¥ó¨Ó¿z¿ï¶Ü

¤£¦n·N«ä¡A¥i¥H¸ÑÄÀ²M·¡¤@ÂI¶Ü? listbox¸Ë¿z¿ï«áªºµ²ªG¶Ü?
¦ý¥u¯à§ì¤@­Ó¨Ó¿z¿ï??

samwang

¦^´_ 56# wang077

§Ú²{¦b°µ¤F¤@­Ólistbox¨Ó¸Ë¿z¿ï±ø¥ó¡A¦ý¬O¥u¯à§ì¨ì¤@­Ó¨Ó¿z¿ï
¦³¿ìªk§ì¦h­Ó±ø¥ó¨Ó¿z¿ï¶Ü

¤£¦n·N«ä¡A¥i¥H¸ÑÄÀ²M·¡¤@ÂI¶Ü? listbox¸Ë¿z¿ï«áªºµ²ªG¶Ü?
¦ý¥u¯à§ì¤@­Ó¨Ó¿z¿ï??
¦³¿ìªk§ì¦h­Ó±ø¥ó¨Ó¿z¿ï¶Ü??

samwang

¦^´_ 59# wang077

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub CommandButton5_Click()
Dim ar2, s%
s = 0: ReDim ar2(s)
With Sheets("Á`ªí").Range("a2:u" & [a65536].End(3).Row)
    Sheets(1).AutoFilterMode = False
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) = True Then
            ReDim Preserve ar2(s)
            ar2(s) = CStr(ListBox2.List(i))
            s = s + 1
        End If
    Next
    .AutoFilter Field:=7, Criteria1:=ar2, Operator:=xlFilterValues
End With
Set ar2 = Nothing
End Sub