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

excel ²£¥Í¦h­Ó®Ö¨ú¤è¶ô.

³Ì«á¸õ¥X¤pµøµ¡Åã¥Ü¤@­Ó¡u 0 ¡v ½ÐªþÀɬݬÝ



¥t¥~¦b½Ð±Ð¤@­Ó°ÝÃD,¦pªG¦p¹Ïªº®æ¦¡¶]±¼,¸Ó©¹­þÃäÀˬd¡H ...
sworder12 µoªí©ó 2013-9-10 12:05



§Ñ°O¸É¥R...ºu½ü©¹¤U²¾¤§«á,®Ö¨ú¤è¶ô·|º¥º¥©¹¤W¶]....

TOP

½Ð°Ý¦p¦ó¨ú±o®Ö¨ú¤è¶ôªº¦æ¦C¦ì¸m©O?

¥»©«³Ì«á¥Ñ mulder_shiu ©ó 2013-9-10 19:26 ½s¿è

Sub test()
S = 0
For Each C In ActiveSheet.CheckBoxes    'ªí³æªº±±¨î¶µ(®Ö¨ú¤è¶ô)
    S = S + IIf(C.Value = 1, 1, 0)
    If C.Value = 1 Then
       MsgBox C.Cells.Row    '·í±ø¥ó¦¨¥ß®É,¨ú±ocellsªº¦æ¼Æ©M¦C¼Æ
    End If
Next
MsgBox S
End sub

½Ð°Ý¤j¤jActiveSheet.CheckBoxes ·í±ø¥ó¦¡¦¨¥ß®É,§Ú·Q¨ú±o·í¤Ucellsªº¦æ¼Æ©M¦C¼Æ??

MWSnap069.jpg (18.31 KB)

MWSnap069.jpg

TOP

¦^´_ 1# mulder_shiu
C.TopLeftCell.Row

TOP

¦^´_ 2# stillfish00


    ·PÁ¤j¤jªºÀ°§U,¤µ¤Ñ§ä¤F¤@¤Ñ¤F ʨ...

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD