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

[µo°Ý] ªí³æ°ÝÃD ½Ð°Ý¦p¦ó±±¨îcheckbox¼Æ¶q

[µo°Ý] ªí³æ°ÝÃD ½Ð°Ý¦p¦ó±±¨îcheckbox¼Æ¶q

¨Ò¦p§Ú¦bexcel¸Ì­±¦³¦p¤U´Xµ§­ÓªÑ
2305        ¥þ¤Í
2324        ¤¯Ä_
2331        ºë­^
2353        §»ùÖ
2362        ÂŤÑ
2365        ©ø¬Õ
2377        ·L¬P
2382        ¼s¹F
2399        ¬M®õ
2465        ÄR»O

§Ú§Æ±æ·í§Ú«ö¤Uªí³æ«ö¶s®É
¥i¥H¦Û°Ê±N³o¨ÇªÑ²¼¦WºÙ¥H¤ÎªÑ²¼¥N¸¹¦Û°Ê±a¤Jªí³æªºcheckbox¤¤
(¦ý¦]¬°¼Æ¶q¤£©T©w¡A©Ò¥HµLªk©T©wcheckboxªº¼Æ¶q)
¦p¤U¹Ï

§Æ±æ¦³¤j¤j¥i¥H«üÂI¤@¤U
·P¿E¤£ºÉ
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

¥»©«³Ì«á¥Ñ jackyq ©ó 2018-6-20 13:47 ½s¿è




listbox

TOP

¦^´_ 2# jackyq

·PÁÂjackyq
·Q½Ð°Ý¤@¤U±z¬O¦p¦ó°µ¥X«e­±ªº®Ö¨ú¤è¶ô¡H
¦]¬°§Ú¥Îlistbox¦n¹³¨S¦³®Ö¨ú¤è¶ô
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¥»©«³Ì«á¥Ñ jackyq ©ó 2018-6-20 15:39 ½s¿è

¦^´_ 3# iamaraymond

Äݩʵøµ¡¤â°Ê³]©w or  ¥Î VBA ¼g¤JÄÝ©Ê
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti






Private Sub ListBox1_Change()
For w = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(w) Then
       Debug.Print "¿ï¤¤ = " + ListBox1.List(w)
    End If
Next
End Sub

TOP

¦^´_ 4# jackyq

·PÁÂjackyq¡A­ì¨Ó¦³³o»ò¦h¥i¥H³]©wªºªF¦è¡A¤S¾Ç²ß¤F
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¥Îcheckbox¤]¥i¥H¡A¦b°õ¦æ¶¥¬q¼W¥[checkbox

TOP

¦^´_ 6# linyancheng

¥i¥H½Ð±Ðª©¤j¦p¦ó°µ¨ì°ÊºA±±¨îcheckbox¶Ü?
¤§«eª¦¤å¦³¬Ý¨ì¦ü¥G·|¥Î¨ìclass
ÁöµM§Ú¹ïclass¤£¼ô¡A¦ý¦pªGª©¤jÄ@·N¤À¨Éªº¸Ü
§Ú¤@©w·|ºÉ¤O§ËÀ´ªº!
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 7# iamaraymond


    ¨ä¹ê¦pªG±±¨î¶µ¤£»Ý­nIJµo¨Æ¥ó¡A¤£»Ý­n¨Ï¥ÎClass

Class½d¨Ò.zip (10.27 KB)

TOP

¦^´_ 8# linyancheng

·PÁª©¥D¡A§Ú¦A¬ã¨s¬Ý¬Ý
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD