GBKEE

¦^´_ 3# av8d
2# oobird  ªþÀÉ ª«¥óÃþ§O¼Ò²Õ

1. Option Explicit
   
2. Public WithEvents CheckboxGroup As MSForms.CheckBox
   
3. Private Sub CheckboxGroup_Click()
   
4.    '-------¤èªk1  ª½±µµ¹¥¦
   
5.    UserForm1.TextBox1 = CheckboxGroup.Caption
   
6.    
   
7.    '-------¤èªk2 ÂI¤@¤UCommednBurron
   
8.    '»¡©ú UserForm1¼Ò²Õ »Ý Public xlText as  String
   
9.      UserForm1.xlText = CheckboxGroup.Caption
   
10.    '»¡©ú UserForm1¤¤ CommednBurron µ{¦¡-> UserForm1.TextBox1 = UserForm1.xlText
    
11.    
    
12.    'MsgBox "You Click " & CheckboxGroup.Caption & vbNewLine & _
    
13.     "Value is " & CheckboxGroup.Value
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# av8d
§Ú¦b4# ¦³¼g¬O 2# oobird  ªþÀÉ ª«¥óÃþ§O¼Ò²Õ
ª«¥óÃþ§O¼Ò²Õ cControlArray µ{§Ç ¦p¤U

1. Option Explicit
   
2. Public WithEvents CheckboxGroup As MSForms.CheckBox
   
3. Private Sub CheckboxGroup_Click()
   
4.     UserForm1.xlText = CheckboxGroup.Caption
   
5. End Sub

½Æ»s¥N½X

UserForm1 ªºµ{¦¡½X

1. Public xlText As String
   
2. Private Sub CommandButton1_Click()
   
3.    '»¡©ú UserForm1¤¤ CommednBurron µ{¦¡
   
4.    UserForm1.TextBox1 = UserForm1.xlText
   
5. End Sub
   
6. Private Sub UserForm_Initialize()
   
7. Dim cCBs As Integer
   
8. Dim ctl As Control
   
9.    cCBs = 0
   
10.    For Each ctl In Me.Controls
    
11.        If TypeName(ctl) = "CheckBox" Then
    
12.            cCBs = cCBs + 1
    
13.            ReDim Preserve aryCBs(1 To cCBs)
    
14.            Set aryCBs(cCBs).CheckboxGroup = ctl
    
15.        End If
    
16.    Next ctl
    
17. End Sub

½Æ»s¥N½X

§Ú¤§©Ò¥H¤£ª½±µ¤W¶ÇÀÉ®× ¬O§Æ±æ¦U¦ì¦h½m²ß¤~·|¶i¨Bªº

GBKEE

¦^´_ 9# av8d

7# ¬O UserForm1 ªºµ{¦¡½X
¦³³\¦h UserForm ¨º¦b¨C¤@UserForm µ{¦¡½X¤¤ ¨Ì¼Ëµe¸¬Äª¼g¤U¥¦¦Û¤vªºµ{¦¡½X

GBKEE

¦^´_ 13# av8d
­n¤F¸Ñª«¥ó

    test.rar (14.43 KB)

¤U¸ü¦¸¼Æ: 9

2012-8-8 15:52

GBKEE

¦^´_ 17# av8d
7#  UserForm1ªºµ{¦¡½X ¬O¨Ì 2# ªºªþÀɭקï
2# ªºªþÀɤ¤aryCBs ÅÜ¼Æ ¬O Module1 ªº¤½¥ÎÅܼÆ
¦p¤µ§A¦³4­ÓUserForm ¬Ò¶·¨p¦³ªº aryCBsÅܼÆ

1. '4­ÓUserForm ªº µ{¦¡½X
   
2. Public xlText As String
   
3. Dim aryCBs()  As New cControlArray
   
4. Private Sub UserForm_Initialize()
   
5. Dim cCBs As Integer
   
6. Dim ctl As Control
   
7.    cCBs = 0
   
8.    For Each ctl In Me.Controls
   
9.        If TypeName(ctl) = "CheckBox" Then
   
10.            cCBs = cCBs + 1
    
11.            ReDim Preserve aryCBs(0 To cCBs)
    
12.            Set aryCBs(cCBs).CheckboxGroup = ctl
    
13.        End If
    
14.    Next ctl
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# c_c_lai
¤@­Ó¬O±q 0 ¶}©l°_ºâ¡A ¥t¤@²Õ¬O±q 1 ¶}©l°_ºâ¡A¦ý Test.rar  ¤§ aryCBs(1 To  1)  (²Ä¤@¦¸) ´N¦n¹³¨S·N¸q¤F¡H
³o°Ýªº¦n!  ·q¨Ø¤F ¬Ýªº«Ü¥J²Ó
ReDim Preserve aryCBs(1 To cCBs)
ReDim ³¯­z¦¡ ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C

1. cCBs = cCBs + 1
   
2. ReDim Preserve aryCBs(1 To cCBs) ' aryCBs(1  To 1) ¥u¦³¦³1¤¸¯À

½Æ»s¥N½X

1. cCBs = cCBs + 1
   
2. ReDim Preserve aryCBs(0 To cCBs) ' aryCBs(0  To 1) ¦³2¤¸¯À ¦h¤@¤¸¯À      

½Æ»s¥N½X

1. ReDim Preserve aryCBs(0 To cCBs) ' aryCBs(0  To 0)  ¥u¦³¦³1¤¸¯À
   
2. cCBs = cCBs + 1    '¥[¤W1¤¸¯À

½Æ»s¥N½X

1. ReDim Preserve aryCBs(1 To cCBs) '  aryCBs(1  To 0)    ·|¦³¿ù»~
   
2. cCBs = cCBs + 1

½Æ»s¥N½X