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

mark15jill

¦^´_ 2# GBKEE

¤j¤j ÁÂÁ±zªº¸Ñµª¡C
¦ý¥X²{  ReDim Preserve TheCheck(0 To         Åܼƥ¼©w¸q

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

mark15jill

¤w³] 10 * 10 ­Ó Checkbox ±±¨î¶µ
·Q½Ð°Ý  ¦p¦óÀH¾÷®Ö¿ï®É ¦bLabel1.Caption  ¥X²{¸Ó±±¨î¶µ¤§Caption ¤º®e¡C

1. Private Sub CommandButton1_Click()
   
2.     Dim mycheckbox1 As MSForms.CheckBox
   
3.     For kk = 1 To 100
   
4.         Cells(kk, 1) = "¤ý" & kk
   
5.     Next kk
   
6.          Columns("c:c").Clear
   
7.           Columns("c:c").Select
   
8.         Selection.ColumnWidth = 15
   
9.    
   
10.         For sjy = 1 To 450 Step 45
    
11. 
    
12.             For sja = 1 To 900 Step 90
    
13.                 Set mycheckbox1 = UserForm1.Frame1.Controls.Add("forms.checkbox.1")
    
14.                 With mycheckbox1
    
15.                     .Left = 10 + sja
    
16.                     .Top = 10 + sjy
    
17.                     .Width = 70
    
18.                     .Height = 20
    
19.                     .TextAlign = fmTextAlignCenter
    
20.                     .BackColor = &HFFFFC0
    
21.                     .Caption = .Name
    
22.                 End With
    
23.             Next
    
24.         Next
    
25.     Dim ct As Control
    
26. 
    
27.     r = 1
    
28.     For Each ct In Controls
    
29.     If TypeName(ct.Object) = "ICheckboxControl" Then ct.Caption = Cells(r, 1): Cells(r, 2) = ct.Name
    
30.         Cells(r, 3) = ct.Name: r = r + 1
    
31.     Next
    
32.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
    
33.     For hh = 1 To aois
    
34.         For kh = 1 To aois
    
35.             If Cells(hh, 3) <> "" Then
    
36.                 If Mid(Cells(hh, 3), 1, 8) <> "CheckBox" Then
    
37.                     Range("c" & hh).Select
    
38.                     Selection.Delete Shift:=xlUp
    
39.                
    
40.                 End If
    
41.             End If
    
42.         Next
    
43.     Next
    
44.         
    
45.    
    
46.     Cells(1, 3).Select
    
47. End Sub

½Æ»s¥N½X

¦Û³Ðcheckbox.rar (19.46 KB)

¤U¸ü¦¸¼Æ: 13

2012-10-17 15:56