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

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

mark15jill

¦^´_ 13# GBKEE


    ´ú¸Õ¦¨¥\
·PÁ¤j¤j~
©êºp ¤p§Ì¸ê½è·M¬N~

GBKEE

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

¤U¸ü (48.87 KB)

2012-10-19 13:57

mark15jill

¤j¤j±z¦n
¤p§Ìªºª©¥»2010 ¦ü¥G·|¦³¨Ç°ÝÃD²£¥Í~(¦p CLASS)

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

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

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

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

·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

¦^´_ 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ªº­@¤ß¸Ñ»¡