GBKEE

¦^´_ 1# mark15jill
¨Ï¥Îª«¥óÃþ§O ¸Õ¸Õ¬Ý

1. Dim TheCheck() As New Class1  '°ÊºA°}¦C «Å§i¬°·sªºClass1ª«¥óÃþ§Oª«¥ó
   
2. Private Sub CommandButton1_Click()
   
3.     Dim mycheckbox1 As MSForms.CheckBox
   
4.     Dim Sh As Worksheet
   
5.      Set Sh = ActiveSheet   
   
6.     Sh.Columns("c:c").Clear
   
7.     Sh.Columns("c:c").ColumnWidth = 15
   
8.     kk = 1
   
9.     For sjy = 1 To 450 Step 45
   
10.         For sja = 1 To 900 Step 90
    
11.             With Frame1.Controls.Add("forms.checkbox.1")
    
12.                 Sh.Cells(kk, 1) = "¤ý" & kk
    
13.                 Sh.Cells(kk, 3) = .Name
    
14.                 .Left = 10 + sja
    
15.                 .Top = 10 + sjy
    
16.                 .Width = 70
    
17.                 .Height = 20
    
18.                 .TextAlign = fmTextAlignCenter
    
19.                 .BackColor = &HFFFFC0
    
20.                 .Caption = Sh.Cells(kk, 1)
    
21.                 ReDim Preserve TheCheck(0 To kk - 1)              '­«·s°t¸m °ÊºA°}¦C
    
22.                 Set TheCheck(kk - 1).xlCheckbox = Controls(.Name)
    
23.                 '°ÊºA°}¦Cªº¤¸¯À «ü©w¨ìª«¥ó¼Ò²Õ¤ºªºª«¥ó
    
24.             End With
    
25.             kk = kk + 1
    
26.         Next
    
27.     Next
    
28. End Sub

½Æ»s¥N½X

1. 'VBA´¡¤J ª«¥óÃþ§O¼Ò²Õ ¦Û°Ê©R¦W¬°Class1 ªºµ{¦¡½X
   
2. Option Explicit
   
3. Public WithEvents xlCheckbox As MSForms.CheckBox
   
4. Private Sub xlcheckbox_Click()
   
5.     If xlCheckbox = True Then UserForm1.Label1.Caption = xlCheckbox.Caption
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# mark15jill
§AªþÀÉ¼Ò²Õ ¨S¥[¤W  Option Explicit  ©Ò¥H§Ú´ú¸Õ®É¬O¨S°ÝÃD
¨Ì§Aªº¯à¤O,¬O¥i¥H¸ÕµÛ­×§ïªº
2#

1. Private Sub CommandButton1_Click()
   
2.     Dim mycheckbox1 As MSForms.CheckBox
   
3.     Dim Sh As Worksheet
   
4.     Set Sh = ActiveSheet ' **¤Ö¤F³oµ{¦¡½X½Ð¥[¤J **

½Æ»s¥N½X

GBKEE

¦^´_ 7# mark15jill
¨SªþÀÉ,¥u¯à²q²q¬Ý
¥Dµ{¦¡°Ï¶ô   ¬OUserForm¤¤  
Private Sub CommandButton1_Click()   §ï¦¨  
Private Sub UserForm_Activate()  »P Private Sub UserForm_Initialize() ¬O¤@¼Ëªº
¥Dµ{¦¡°Ï¶ô   ¬O¨ä¥L¼Ò²Õ¤¤

1. Private Sub CommandButton1_Click()
   
2. '
   
3. '
   
4. 
   
5.   Next
   
6.    Cells(1, 3).Select
   
7. UserForm1.Show   
   
8. End Sub     

½Æ»s¥N½X

GBKEE

¦^´_ 9# mark15jill
CommandButton2 §ï¬°UserForm_Click (UserForm_Active ¥u¦³ªí³æÅã¥Ü®É¤~¦³ªº  )   ±NLabel1.Caption  Åã¥Ü¥Ø«e®Ö¿ï¤§Checkbox ªº  
¥i¤]¬O¥i¥H ±ø¥ó¬O¤w¦³²£¥Í 10*10 ­Ó Checkbox±±¨î¶µ

ÂI¿ï¥ô¤@ Checkbox ¡A²£¥Í®ÄªG¦p¦P­ì©l CommandButton2 ¤§®ÄªG¬Û¦P
2#  ¨Ï¥Îª«¥óÃþ§O  2# Private Sub CommandButton1_Click() ¦WºÙ §ï¦¨
Private Sub UserForm_Activate()  ©Î¬O Private Sub UserForm_Initialize()  ¬Ò¥i¥H

1. 'VBA´¡¤J ª«¥óÃþ§O¼Ò²Õ ¦Û°Ê©R¦W¬°Class1 ªºµ{¦¡½X
   
2. Option Explicit
   
3. Public WithEvents xlCheckbox As MSForms.Checkbox
   
4. Private Sub xlcheckbox_Click()
   
5.     '    If xlCheckbox = True Then UserForm1.Label1.Caption = "²{¦b®Ö¿ï¡G" & xlCheckbox.Name
   
6.     ½Æ¿ï
   
7. End Sub
   
8. Private Sub ½Æ¿ï()
   
9.     Dim xlCcaptionas As String, E As MSForms.Control
   
10.     With UserForm1
    
11.         For Each E In .Controls
    
12.             If InStr(UCase(E.Name), UCase("checkbox")) Then
    
13.                 If E.Value = True Then xlCcaptionas = IIf(xlCcaptionas = "", E.Name, xlCcaptionas & "," & E.Name)
    
14.             End If
    
15.         Next
    
16.         If xlCcaptionas <> "" Then
    
17.             .Label1.Caption = "²{¦b®Ö¿ï¡G" & xlCcaptionas
    
18.         Else
    
19.             .Label1.Caption = ""
    
20.         End If
    
21.     End With
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# mark15jill
¨£¯º¤F 2010 ©|¥¼ºN¹L
2003 ¦p¹Ï

¤U¸ü (48.87 KB)

2012-10-19 13:57