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

[µo°Ý] ½Ð°Ý¦p¦ó­pºâ¤£¦P¤º®eªºCheckbox?

[µo°Ý] ½Ð°Ý¦p¦ó­pºâ¤£¦P¤º®eªºCheckbox?

½Ð°Ý¤j®a¦³ÃöCheckboxªº°ÝÃD¡A

§Ú§Æ±æ¯à°÷¦p¤U¹Ï¡A¤À§O­pºâ¥X"«D±`º¡·N"¡B"º¡·N"¡B"¤£º¡·N"¡B"«Ý§ï¶i"¤À§O³Q¤Ä¿ï¤F´X­Ó?

¥Ø«e¥u¯à¼g¥X©Ò¦³³Q¤Ä¿ïªºCheckbox­Ó¼Æ¡A«oµLªk¨Ì·Ó¦U¤ÀÃþ¥h­pºâ¡Aµ{¦¡½X¤ÎÀɮ׳£ªþ¤W¡A±æ¦U¦ì«e½ú«ü±Ð¡AÁÂÁÂ!
  1. Sub Test()
  2.    
  3.     Dim Ct As OLEObject, iI%
  4.    
  5.     iI = 0
  6.     For Each Ct In Me.OLEObjects
  7.         If Ct.progID = "Forms.CheckBox.1" Then
  8.             If Ct.Object.Value = True Then iI = iI + 1
  9.         End If
  10.     Next
  11.     [B11] = iI
  12.    
  13. End Sub
½Æ»s¥N½X
Checkbox°Ý¨÷­pºâ.rar (22 KB)

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD