stillfish00

¦^´_ 1# lichang

1.     Dim ar
   
2.     '¦³´X­Ó¶ñ´X­Ó
   
3.     ar = Array("aiSV4", _
   
4.                 "aiSV20", _
   
5.                 "aiSV40", _
   
6.                 "aiSV80", _
   
7.                 "aiSV160")
   
8.                     
   
9.     'combobox1 to combobox20
   
10.     For i = 1 To 20
    
11.         Controls("ComboBox" & i).List = ar
    
12.     Next

½Æ»s¥N½X

stillfish00

¦^´_ 6# lichang
¦pªG­n¦@¥Î Click ªºÄ²µo¦æ¬°(´N¬O¦@¥Îclick event)
´N­n¹³ #5¼Ó³o¼Ë , §ï¥Îª«¥óÃþ§O¼Ò²Õ³á~

stillfish00

¦^´_ 6# lichang
¤U­±¬O¤@²³æ¨Ò¤l

¤U¸ü (28.15 KB)

2015-3-31 17:15

UserForm1 µ{¦¡½X

1. Private Temp() As Class1
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Dim i As Long
   
5.     For i = 1 To 4
   
6.         ReDim Preserve Temp(i)
   
7.         Set Temp(i) = New Class1
   
8.         Temp(i).InitialControl Controls("ComboBox" & i)
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

·s¼Wª«¥óÃþ§O¼Ò²Õ Class1

1. Public WithEvents ComboBox As MSForms.ComboBox
   
2. 
   
3. Private Sub ComboBox_Change()
   
4.     MsgBox ComboBox.Value    'change °Ê§@
   
5. End Sub
   
6. 
   
7. Public Sub InitialControl(ByRef oControl As MSForms.ComboBox)
   
8.     Set ComboBox = oControl
   
9.     ComboBox.List = Array("test1", "test2", "test3", "test4")
   
10. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 10# lichang
¬Ý¤£À´§Aªº·N«ä¡A½Ðªþ¹Ï©ÎÀÉ®×»¡©ú¤@¤U¡AÁÂÁ¡C

stillfish00

¦^´_ 12# lichang
¤£½T©w¬O¤£¬O§A­nªº : ¨C­ÓComboBox ³£¦³¤@­Ó¹ïÀ³ªºÀx¦s®æ , ¨C¦¸ComboBox¿ï¾Ü§ïÅܮɡA¹ïÀ³ªºÀx¦s®æ­È¤]§ïÅÜ¡C

¦]¬°¨Sµ{¦¡½X§Úª½±µ¥Î 8#ªº¨Ò¤l¨Ó­×§ï
UserForm1 µ{¦¡½X

1. Private Temp() As Class1
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Dim i As Long
   
5.     For i = 1 To 4
   
6.         ReDim Preserve Temp(i)
   
7.         Set Temp(i) = New Class1
   
8.         Temp(i).InitialControl Controls("ComboBox" & i), ActiveSheet.Cells(1799 + i, "B")
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

·s¼Wª«¥óÃþ§O¼Ò²Õ Class1

1. Public WithEvents ComboBox As MSForms.ComboBox
   
2. Private linkCell As Range
   
3. 
   
4. Private Sub ComboBox_Change()
   
5.     linkCell.Value = ComboBox.Value
   
6. End Sub
   
7. 
   
8. Public Sub InitialControl(ByRef oControl As MSForms.ComboBox, ByRef rngLinkCell As Range)
   
9.     Set ComboBox = oControl
   
10.     ComboBox.List = Array("test1", "test2", "test3", "test4")
    
11.     Set linkCell = rngLinkCell
    
12. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 12# lichang
¤£¹L³q±`·|¬O³z¹L¤@­Ó«ö¶s¥hIJµo
¦A¤@¦¸©Ê§âªí³æ¤Wªº¸ê®Æ§ó·s¨ì¤u§@ªí
¦Ó¤£¬O³z¹LCombobox change event
³o¼Ë¤]¤ñ¸û²³æ

1. Private Sub CommandButton1_Click()
   
2.     With ActiveSheet.Range("B1799")
   
3.         For i = 1 To 4
   
4.             .Cells(i, 1).Value = Controls("ComboBox" & i).Value
   
5.         Next
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 15# lichang
®Ñ¬O¬Ý±o¤£¦h¡A³Ì¦³¦¬Ã¬ªº¬O
Professional Excel Development 2nd
¦ý³o¥»¤£¬Oµ¹¤Jªùªº¤H¬Ýªº¡A¤J§|«e¤T«ä¡C

³Ì¥D­n¬O±`¼g¡A¹J¨ì°ÝÃD¤Wºôgoogle¡A
­n¾Ç·|¤U¹ïÃöÁä¦r¡A¤K¦¨³£¦³µª®×¡C
¦h¼Æµª®×³£·|³sµ²¨ì³o­Ó½×¾Â©ÎExcelHome(©Ò¥H¤~·|¥[¤J³o½×¾Â)
¤¤¤å§ä¤£¨ì¡A§ï­^¤åÃöÁä¦r¡A¦h¥b°ÝÃD·|¦bStackOverflow±o¨ì¸Ñµª

¼g¦h¤F¡A¹J¹L°ÝÃD´N¦h¡A¸Ñ¨M¹Lªº°ÝÃD¤]´N¦h¤F¡A¦p¦¹¦Ó¤w¡C