[µo°Ý] ©óª«¥óÃþ§O¼Ò²Õ¦p¦ó¨D±o¸ÓComboBox¤§(Name)?

yangjie

½Ð±Ð¤j¤j:
Dim newcontrol() As New Class1
Private Sub UserForm_Initialize()
    ReDim newcontrol(1 To 10)
    For i = 1 To 10
        Set newcontrol(i).Comd = Controls("ComboBox" & i)
    Next
End Sub
Public WithEvents Comd As MSForms.ComboBox
Private Sub Comd_Change()
    ?¦p¦ó¥i±oª¾ ¸ÓComd¬O«ö¤F­þ¤@­Ó"ComboBox" & n
   ¤]´N¬O n ¦p¦ó¨D±o?
End Sub

yangjie

¦bª«¥óÃþ§O¼Ò²Õclass1
Public WithEvents Comd As MSForms.ComboBox
Private Sub Comd_Change()
    ?¦p¦ó¥i±oª¾ ¸ÓComd¬O«ö¤F­þ¤@­Ó"ComboBox" & n
   ¤]´N¬O n ¦p¦ó¨D±o?
End Sub
¥D­n¬O­Y«ö¤Fcombobox3®É­n¾Þ§@combobox4¤§³]©w
­Y«ö¤Fcombobox5®É­n¾Þ§@combobox6¤§³]©w
­Y«ö¤Fcombobox7®É­n¾Þ§@combobox8..............¤Ó¦h¤F
¦]¦¹¤~»Ý­n¥Î¨ì ª«¥óÃþ§O
·q½Ð½Ñ¦ì¤j¤j¨ó§U
ÁÂÁÂ

yangjie

¦^´_ 3# GBKEE

ÁÂÁ GBKEEª©¤j:
­ì¥H¬°Public WithEvents Comd As MSForms.ComboBox
    Comd¨S¦³Name¤§ÄÝ©Ê
­è­è´ú¸Õ ¤@¤ÁOK    ÁÂÁÂ