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

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

¦^´_ 1# jemery127
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Test()
  3.     Dim Ct As OLEObject, M As Variant, Rng As Range
  4.     Set Rng = [a10:A14]  '½Õ¬dªí½d³ò
  5.     Rng.Offset(, 1) = ""
  6.     For Each Ct In Me.OLEObjects
  7.         If Ct.progID = "Forms.CheckBox.1" Then
  8.             M = Application.Match(Ct.Object.Caption, Rng, 0)
  9.             '¤u§@ªí¨ç¼Æ·j´M§¹¥þ¬Û¦Pªº¦r¦êªº¦ì¸m
  10.             If Ct.Object.Value = True And IsNumeric(M) Then
  11.                 Rng(1, 2) = Rng(1, 2) + 1
  12.                 Rng(M, 2) = Rng(M, 2) + 1
  13.             End If
  14.         End If
  15.     Next
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD