ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-18 09:15 ½s¿è

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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.   Next
  5.    Cells(1, 3).Select
  6. UserForm1.Show   
  7. End Sub     
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-19 12:13 ½s¿è

¦^´_ 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

TOP

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


TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD