[µo°Ý] ½Ð°Ý¦p¦ópºâ¤£¦P¤º®eªºCheckbox?
- ©«¤l
- 3
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-13
- ³Ì«áµn¿ý
- 2015-3-30
|
[µo°Ý] ½Ð°Ý¦p¦ópºâ¤£¦P¤º®eªºCheckbox?
½Ð°Ý¤j®a¦³ÃöCheckboxªº°ÝÃD¡A
§Ú§Æ±æ¯à°÷¦p¤U¹Ï¡A¤À§Opºâ¥X"«D±`º¡·N"¡B"º¡·N"¡B"¤£º¡·N"¡B"«Ý§ï¶i"¤À§O³Q¤Ä¿ï¤F´XÓ?
¥Ø«e¥u¯à¼g¥X©Ò¦³³Q¤Ä¿ïªºCheckboxӼơA«oµLªk¨Ì·Ó¦U¤ÀÃþ¥hpºâ¡Aµ{¦¡½X¤ÎÀɮ׳£ªþ¤W¡A±æ¦U¦ì«e½ú«ü±Ð¡AÁÂÁÂ!
- Sub Test()
-
- Dim Ct As OLEObject, iI%
-
- iI = 0
- For Each Ct In Me.OLEObjects
- If Ct.progID = "Forms.CheckBox.1" Then
- If Ct.Object.Value = True Then iI = iI + 1
- End If
- Next
- [B11] = iI
-
- End Sub
½Æ»s¥N½X
Checkbox°Ý¨÷pºâ.rar (22 KB)
|
|
|
|
|
|
|