[µo°Ý] ½Ð±Ð Ãö©ó µ{¦¡¶}ÀY ªº¬ÛÃöºÃ´b(©Ó±µ CheckBox ®Ö¿ï°ÝÃD)

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

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

¦^´_ 2# GBKEE

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

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

¦^´_ 4# GBKEE

©êºp Åý¤j¤j±z¨£¯º¤F~
¦]³Ìªñ  VB2010 ©M VBA ¦P®É¥Î¨ì
¦³¨Ç»yªk »y¦ê ¾É­P±`±`·|²V¶Ã
¦p ¦P¤@¨Æ¥ó ¨âÃ䪺»yªk¥i¯à´N¦³®t²§
¦³¸ÕµÛ­×¥¿  ¦ý¶]¥X¨Óªº¦¨ªG¤£ºÉ²z·Q

¦A¦¸·PÁ¤j¤jªº­@¤ß¸Ñ»¡

mark15jill

·PÁ GBKEE  ªº«ü±Ð
¦³§ä¨ì¤èªk¥h§P§O..

1. Private Sub CommandButton1_Click()
   
2.     Dim mycheckbox1 As MSForms.CheckBox
   
3.           Columns("a:c").Clear
   
4.           Columns("a:c").Select
   
5.     For kk = 1 To 100
   
6. 
   
7.         Cells(kk, 1) = "¤ý" & kk
   
8.          
   
9.     Next kk
   
10. 
    
11.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
    
12. 
    
13.         Selection.ColumnWidth = 15
    
14. 
    
15.    
    
16.         For sjy = 1 To 450 Step 45
    
17. 
    
18. 
    
19.             For sja = 1 To 900 Step 90
    
20. 
    
21.                 Set mycheckbox1 = UserForm1.Frame1.Controls.Add("forms.checkbox.1")
    
22. 
    
23.                 With mycheckbox1
    
24. 
    
25.                     .Left = 10 + sja
    
26. 
    
27.                     .Top = 10 + sjy
    
28. 
    
29.                     .Width = 70
    
30. 
    
31.                     .Height = 20
    
32. 
    
33.                     .TextAlign = fmTextAlignCenter
    
34. 
    
35.                     .BackColor = &HFFFFC0
    
36. 
    
37.                     .Caption = .Name
    
38. 
    
39.                 End With
    
40. 
    
41.             Next
    
42. 
    
43.         Next
    
44. 
    
45.     Dim ct As Control
    
46. 
    
47.     r = 1
    
48. 
    
49.     For Each ct In Controls
    
50. 
    
51.     If TypeName(ct.Object) = "ICheckboxControl" Then ct.Caption = Cells(r, 1): Cells(r, 2) = ct.Name
    
52. 
    
53.         Cells(r, 3) = ct.Name: r = r + 1
    
54. 
    
55.     Next
    
56.       aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
    
57.     For hh = 1 To aois
    
58. 
    
59.         For kh = 1 To aois
    
60. 
    
61.             If Cells(hh, 3) <> "" Then
    
62. 
    
63.                 If Mid(Cells(hh, 3), 1, 8) <> "CheckBox" Then
    
64. 
    
65.                     Range("c" & hh).Select
    
66. 
    
67.                     Selection.Delete Shift:=xlUp
    
68. 
    
69.                
    
70.                 End If
    
71. 
    
72.             End If
    
73. 
    
74.         Next
    
75. 
    
76.     Next
    
77.      
    
78.     Cells(1, 3).Select
    
79. 
    
80. 
    
81. End Sub

½Æ»s¥N½X

Private Sub CommandButton2_Click()
     Dim mycheckbox1 As MSForms.CheckBox
     aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
     For gosj = 1 To aois
        With Controls("Checkbox" & gosj)
            If .Value = True Then
                Label1.Caption = "²{¦b®Ö¿ï¡G" & .Name
            
            End If
        End With
     Next
End Sub

mark15jill

·Q½Ð°Ý
¤@¯ë¦Ó¨¥
Private Sub UserForm_Initialize()
End Sub
¬° ªì©lª¬ºAªº®É­Ôªºª¬ºA~
©Î

Private Sub CommandButton1_Click()
End Sub

¦ý¦pªG¤µ¤Ñ¬O·Q¥H
Controls("Checkbox" & gosj) ¬°½d³ò
¥Hªí³æ¦Û°Ê§PÂ_¦Ó¤£¥Î CommandButton ¼Ò¦¡¤U

¸Ó«ç±±¨î¤°»ò¤ñ¸û¾A¦X??
µ{¦¡¦p¤U

'¥Dµ{¦¡°Ï¶ô

1. Private Sub CommandButton1_Click()
   
2. 
   
3. 
   
4.     Dim mycheckbox1 As MSForms.CheckBox
   
5.           Columns("a:c").Clear
   
6.           Columns("a:c").Select
   
7.     For kk = 1 To 100
   
8. 
   
9.         Cells(kk, 1) = "¤ý" & kk
   
10.          
    
11.     Next kk
    
12. 
    
13.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
    
14. 
    
15.         Selection.ColumnWidth = 15
    
16. 
    
17.    
    
18.         For sjy = 1 To 450 Step 45
    
19. 
    
20. 
    
21.             For sja = 1 To 900 Step 90
    
22. 
    
23.                 Set mycheckbox1 = UserForm1.Frame1.Controls.Add("forms.checkbox.1")
    
24. 
    
25.                 With mycheckbox1
    
26. 
    
27.                     .Left = 10 + sja
    
28. 
    
29.                     .Top = 10 + sjy
    
30. 
    
31.                     .Width = 70
    
32. 
    
33.                     .Height = 20
    
34. 
    
35.                     .TextAlign = fmTextAlignCenter
    
36. 
    
37.                     .BackColor = &HFFFFC0
    
38. 
    
39.                     .Caption = .Name
    
40. 
    
41.                 End With
    
42. 
    
43.             Next
    
44. 
    
45.         Next
    
46. 
    
47.     Dim ct As Control
    
48. 
    
49.     r = 1
    
50. 
    
51.     For Each ct In Controls
    
52. 
    
53.     If TypeName(ct.Object) = "ICheckboxControl" Then ct.Caption = Cells(r, 1): Cells(r, 2) = ct.Name
    
54. 
    
55.         Cells(r, 3) = ct.Name: r = r + 1
    
56. 
    
57.     Next
    
58.       aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
    
59.     For hh = 1 To aois
    
60. 
    
61.         For kh = 1 To aois
    
62. 
    
63.             If Cells(hh, 3) <> "" Then
    
64. 
    
65.                 If Mid(Cells(hh, 3), 1, 8) <> "CheckBox" Then
    
66. 
    
67.                     Range("c" & hh).Select
    
68. 
    
69.                     Selection.Delete Shift:=xlUp
    
70. 
    
71.                
    
72.                 End If
    
73. 
    
74.             End If
    
75. 
    
76.         Next
    
77. 
    
78.     Next
    
79.      
    
80.     Cells(1, 3).Select
    
81. 
    
82. End Sub

½Æ»s¥N½X

'»Ý§PÂ_°Ï¶ô

1. Private Sub CommandButton2_Click()
   
2.      Dim mycheckbox1 As MSForms.CheckBox
   
3.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
   
4.      For gosj = 1 To aois
   
5.         With Controls("Checkbox" & gosj)
   
6.             If .Value = True Then
   
7.                 Label1.Caption = "²{¦b®Ö¿ï¡G" & .Name
   
8.             End If
   
9.         End With
   
10.      Next
    
11. 
    
12. End Sub

½Æ»s¥N½X

¦³¸ÕÅç¹L

Private Sub UserForm_Activate()

End Sub

¦¹¤è¦¡ ¦ýµL¤Ï¬M

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

mark15jill

¦^´_ 8# GBKEE

©êºp ¤p§Ì»¡ªº¤£²M·¡~
¦A¦¸»¡©ú¤p§Ì ªººÃ´bÂI~
¦p¤W­±µ{¦¡©Ò¥Ü¡A¥Ø«e¬O§Q¥ÎCommandButton2 §@¬°Ä²µoÂI(§Y ÂICommandButton2  ¡A Label1.Caption   ¤~·|Åã¥Ü¥Ø«e®Ö¿ï¤§Checkbox ªº Caption­È )  
­Y¥HUserForm_Active  ¬°­ºªº¸Ü¡A¶Õ¥²·|²£¥Í¿ù»~(¦]©|¥¼ ²£¥Í 10*10 ­Ó Checkbox±±¨î¶µ )

ºÃ´bÂI¦p¤U
1.­Y·Q¦b 10*10 ­Ó Checkbox±±¨î¶µ  ²£¥Í«á¡AÂI¿ï¥ô¤@ Checkbox ¡A²£¥Í®ÄªG¦p¦P­ì©l CommandButton2 ¤§®ÄªG¬Û¦P¡A¦ý¤£¥Î³z¹L CommandButton ±±¨î¡A¸Ó¥Î¦óªÌ¤è¦¡´y¼g¤ñ¸û¾A·í¡C
2.­Y®Ö¿ï¬°½Æ¿ï¡A¸Ó¦p¦ó§PÂ_¡H

mark15jill

¦^´_ 8# GBKEE

1. Private Sub CommandButton2_Click()
   
2. 
   
3.      Dim mycheckbox1 As MSForms.CheckBox
   
4. 
   
5.      aois = ActiveSheet.Range("c1").CurrentRegion.Rows.Count
   
6. 
   
7.      For gosj = 1 To aois
   
8. 
   
9.         With Controls("Checkbox" & gosj)
   
10. 
    
11.             If .Value = True Then
    
12. 
    
13.                 Label1.Caption = "²{¦b®Ö¿ï¡G" & .Name
    
14. 
    
15.             End If
    
16. 
    
17.         End With
    
18. 
    
19.      Next
    
20. 
    
21. 
    
22. End Sub

½Æ»s¥N½X