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

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

lichang

¦^´_ 3# stillfish00

¨º½Ð°Ý¤@¤U³á!!¨º§ÚªºCOMBOBOX_CLICK ¦³¿ìªk¤@¼Ëªº¤è¦¡³B²z¶Ü??

mark15jill

¦^´_ 3# stillfish00

¯d´X­Ó¥ñµ§Åý§A½m²ß...
¥H¤Uµ{¦¡½X¬°°ÊºA³Ð 8*4 ­Ócombobox   ¨C­Ócombobox ¦Û°Ê¥[¤J 32µ§¸ê®Æ(½d¨ÒÀÉ  ¸ê®Æ§Ú¬O¥á¦bEÄæ¦ì)
¸m©ó °ÊºA·s¼Wªºcombobox Åܧó®É¡A´N­n©p¦Û¤v¥h³]©w·Q­nªº¥\¯à+ÅܼƤF~

¤U¸ü (104.3 KB)

2015-3-30 23:24

1. Dim  thecombobox() As New Class1 '°ÊºA°}¦C «Å§i¬°·sªºClass1ª«¥óÃþ§Oª«¥ó
   
2. 
   
3. Private Sub ComboBox1_Change()
   
4. 
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton1_Click()
   
8.      Dim mycombobox1 As MSForms.ComboBox
   
9. 
   
10.     Dim Sh As Worksheet
    
11.      Set Sh = ActiveSheet
    
12. 
    
13.     kk = 1
    
14. 
    
15.     For sjy = 1 To 400 Step 100
    
16. 
    
17.         For sja = 1 To 800 Step 100
    
18. 
    
19.             With Frame1.Controls.Add("forms.combobox.1")
    
20.                 Sh.Cells(kk, 3) = .Name
    
21.                 .Left = 10 + sja
    
22.                 .Top = 10 + sjy
    
23.                 .Width = 90
    
24.                 .Height = 20
    
25. 
    
26.                 .TextAlign = fmTextAlignCenter
    
27. 
    
28.                 .BackColor = &HFFFFC0
    
29. 
    
30.                 '.a = Sh.Cells(kk, 1)
    
31.                  ReDim Preserve thecombobox(0 To kk - 1)              '­«·s°t¸m °ÊºA°}¦C
    
32.                 Set thecombobox(kk - 1).xlcombobox = Controls(.Name)
    
33.                 '°ÊºA°}¦Cªº¤¸¯À «ü©w¨ìª«¥ó¼Ò²Õ¤ºªºª«¥ó
    
34.             For ewk = 1 To 32
    
35.                  eee = Cells(ewk, 5)
    
36.                 thecombobox(kk - 1).xlcombobox.AddItem (eee)
    
37.             Next
    
38.             End With
    
39. 
    
40.             kk = kk + 1
    
41. 
    
42.         Next
    
43. 
    
44.     Next
    
45. 
    
46. End Sub
    
47. 
    
48. Private Sub UserForm_Click()
    
49. 
    
50. End Sub

½Æ»s¥N½X

¦Û³Ðcheckbox®Ö¿ï §¹¦¨ª©5 ¤U©Ô´ú¸Õ.rar (26.84 KB)

¤U¸ü¦¸¼Æ: 12

2015-3-30 23:22

¦Û³Ðcheckbox®Ö¿ï §¹¦¨ª©5 ¤U©Ô´ú¸Õ.rar (26.84 KB)

¤U¸ü¦¸¼Æ: 14

2015-3-30 23:23

lichang

¦^´_ 3# stillfish00

¶W±j¡AÁÂÁ±zªº¸Ñ´b!!
´ú¸Õok!!

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

bobomi

§â¥i¥H³W«h¤Æªº³¡¤À©î¶}¨Ó¥Î For ¨ú¥N

ex
ComboBox1.AddItem "aiSV20/20"    '----------------9
ComboBox1.AddItem "aiSV20/40"   '----------------10
ComboBox1.AddItem "aiSV40/40"   '----------------11
ComboBox1.AddItem "aiSV40/80"   '----------------12
ComboBox1.AddItem "aiSV80/80"   '----------------13
ComboBox1.AddItem "aiSV80/160"   '----------------14
ComboBox1.AddItem "aiSV160/160"  '----------------15

for w = 20  to 140 Step 20
ComboBox1.AddItem "aiSV" &  w &  "/"  & w   
ComboBox1.AddItem "aiSV" &  w &  "/"  & (w  *2  )
next