GBKEE

¦^´_ 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