- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ 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- 'VBA´¡¤J ª«¥óÃþ§O¼Ò²Õ ¦Û°Ê©R¦W¬°Class1 ªºµ{¦¡½X
- Option Explicit
- Public WithEvents xlCheckbox As MSForms.Checkbox
- Private Sub xlcheckbox_Click()
- ' If xlCheckbox = True Then UserForm1.Label1.Caption = "²{¦b®Ö¿ï¡G" & xlCheckbox.Name
- ½Æ¿ï
- End Sub
- Private Sub ½Æ¿ï()
- Dim xlCcaptionas As String, E As MSForms.Control
- With UserForm1
- For Each E In .Controls
- If InStr(UCase(E.Name), UCase("checkbox")) Then
- If E.Value = True Then xlCcaptionas = IIf(xlCcaptionas = "", E.Name, xlCcaptionas & "," & E.Name)
- End If
- Next
- If xlCcaptionas <> "" Then
- .Label1.Caption = "²{¦b®Ö¿ï¡G" & xlCcaptionas
- Else
- .Label1.Caption = ""
- End If
- End With
- End Sub
½Æ»s¥N½X |
|