GBKEE

¦^´_ 1# wenxiao

1. Option Explicit
   
2. Public MyCheak() As New Class1
   
3. Private Sub Auto_Open() 'Module1ªºµ{¦¡½X,Àɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{§Ç
   
4.     Dim E As OLEObject, i As Integer
   
5.     With Sheet1
   
6.         For Each E In .OLEObjects
   
7.             If E.progID = "Forms.CheckBox.1" Then
   
8.                 ReDim Preserve MyCheak(0 To i)
   
9.                 Set MyCheak(i).WorkCheck = E.Object
   
10.                 i = i + 1
    
11.             End If
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õ

1. Option Explicit
   
2. Public WithEvents WorkCheck As MSForms.CheckBox
   
3. Private Sub WorkCheck_Click()
   
4.     'WorkCheck ¦³¤Ä¿ï ¶Ç¦^True  ,¨S¤Ä¿ï ¶Ç¦^ Fales
   
5.     WorkCheck.Parent.TextBox1 = IIf(WorkCheck, WorkCheck.Caption, "")
   
6. End Sub

½Æ»s¥N½X

¤U¸ü (72.82 KB)

2014-4-24 06:54

GBKEE

¦^´_ 3# wenxiao

1. Option Explicit
   
2. Public WithEvents WorkCheck As MSForms.CheckBox
   
3. Private Sub WorkCheck_Click()
   
4.     Dim Msg As Boolean, E As Object
   
5.     'WorkCheck ¦³¤Ä¿ï ¶Ç¦^True  ,¨S¤Ä¿ï ¶Ç¦^ Fales
   
6.     With WorkCheck.Parent
   
7.         If WorkCheck Then
   
8.             .TextBox1 = WorkCheck.Name
   
9.         Else
   
10.             For Each E In .OLEObjects
    
11.                 If E.progID = "Forms.CheckBox.1" Then
    
12.                     If E.Object.Value Then Msg = True: Exit For
    
13.                 End If
    
14.             Next
    
15.             If Msg = False Then .TextBox1 = ""
    
16.         End If
    
17.     End With
    
18. End Sub

½Æ»s¥N½X