¬O§_­n¼g30­Ó Private Sub CheckBox*_Change()¤~¥i?

yangjie

½Ð±Ð©ó¦U¦ìªO¥D¤j¤j:
Private Sub CheckBox1_Change()
    ListBox1.Clear
    For i = 1 To 27
        If Controls("CheckBox" & i).Value = True Then
            x = Controls("CheckBox" & i).Caption
            ListBox1.AddItem x
        End If
    Next
End Sub
¥H¤W±¡§Î­Y CheckBox1 ¤§¥~©|¦³CheckBox2 CheckBox3 CheckBox4........Change() ¦@30­Ó
¬O§_­n¼g30­Ó Private Sub CheckBox*_Change()
¥i§_¥t¦³ Loop ¤è¦¡??? ©Î¨ä¥L²¤Æ¤è¦¡
    ÁÂÁ«ü¾É

yangjie

¦^´_ 2# Hsieh


    ½Ð±ÐHsiehª©¥D:
¥i§_±Ð­Ó½d¨Ò(¦]±q¥¼¼g¹L)

yangjie

¦^´_ 2# Hsieh


    ½Ð±ÐHsiehª©¥D:
¦Û¤v¹Á¸Õ¬Ý¬Ý
Option Explicit
Dim newcontrol() As New Class1
Private Sub UserForm_Initialize()
  ReDim newcontrol(1 To 27)
    For I = 1 To 27
        Set newcontrol(I).Comd = Controls("CheckBox" & I)
    Next
End Sub
©óÃþ§O¼Ò²Õ¤U
Public WithEvents Comd As MSForms.CommandButton
Private Sub Comd_Click()
    ListBox1.Clear
    For I = 1 To 27
        If Controls("CheckBox" & I).Value = True Then
            x = Controls("CheckBox" & I).Caption
            ListBox1.AddItem x
        End If
    Next
End Sub
¤£ª¾­þ¸Ì¥X®t¿ù???

yangjie

¦^´_ 2# Hsieh


ÁÂÁÂHsiehª©¥D:      OK ¤F  °µ¥H¤U­×¥¿´NOK¤F
Option Explicit
Dim newcontrol() As New Class1
Private Sub UserForm_Initialize()
  ReDim newcontrol(1 To 27)
    For I = 1 To 27
        Set newcontrol(I).Comd = Controls("CheckBox" & I)
    Next
End Sub
©óÃþ§O¼Ò²Õ¤U
Public WithEvents Comd As MSForms.CheckBox
Private Sub Comd_Click()
    userform3.ListBox1.Clear
    For I = 1 To 27
        If userform3.Controls("CheckBox" & I).Value = True Then
            x = userform3.Controls("CheckBox" & I).Caption
            userform3.ListBox1.AddItem x
        End If
    Next
End Sub

yangjie

¦^´_ 5# yangjie


    ¥ç·PÁÂGBKee ª©¥D´¿¸g«ü¾ÉÃþ§O¼Ò²ÕVBA
«Ü°ª¿³¯à°÷¬ð¯}¦¹ÃøÃD