stillfish00

1.   Dim myControl(1 To 6, 1 To 3) As Control
   
2.   
   
3.   '³]©w±±¨î¶µ°}¦C
   
4.   For i = 1 To UBound(myControl)
   
5.     Set myControl(i, 1) = Controls("ComboBox" & i)
   
6.     Set myControl(i, 2) = Controls("TextBox" & 2 * i - 1)
   
7.     Set myControl(i, 3) = Controls("TextBox" & 2 * i)
   
8.   Next
   
9.   
   
10.   For iC = 1 To UBound(myControl)
    
11.     If myControl(iC, 2).Locked Then Exit For
    
12.    
    
13.     StartRow = Val(myControl(iC, 2).Value)
    
14.     EndRow = Val(myControl(iC, 3).Value)
    
15.    
    
16.     '¤¤¶¡­pºâµ{¦¡
    
17.   Next

½Æ»s¥N½X

¦^´_ 1# acdx

stillfish00

¦^´_ 5# acdx
²³æªº°µªk´N¬O¦b§A2#ªºChange¨Æ¥ó¤¤§PÂ_´N¥i¥H¤F¡A¦]¬°§A¥u¦³6­ÓComboBoxÁÙºâ¤Ö¡A¥u­n¼g6­ÓComboBoxN_Change()´N¦n¤F¡C

­Y¬O¼Æ¤Q¡B¼Æ¦Ê­Ó±±¨î¶µ¡A¨Æ¥ó°õ¦æ°Ê§@Ãþ¦ü¡A¥i¦Ò¼{¥Îª«¥óÃþ§O¼Ò²Õ(¸û½ÆÂø)¥h©w¸q¦@³qªº¨Æ¥ó¡G
·s¼W¤@ª«¥óÃþ§O¼Ò²Õ¡A©R¦W¬°clsComboBoxMyEvents

1. Public WithEvents myComboBox As MSForms.ComboBox
   
2. Private cbForLock As MSForms.ComboBox
   
3. 
   
4. Public Sub setObject(ByRef ctl As MSForms.ComboBox)
   
5.   Set myComboBox = ctl
   
6. End Sub
   
7. 
   
8. Public Sub setLinkForLock(ByRef ctl As MSForms.ComboBox)
   
9.   Set cbForLock = ctl
   
10. End Sub
    
11. 
    
12. Private Sub myComboBox_Change()
    
13.   If cbForLock Is Nothing Then Exit Sub
    
14.   
    
15.   If myComboBox.Value = "N/A" Then
    
16.     cbForLock.Enabled = False
    
17.   Else
    
18.     cbForLock.Enabled = True
    
19.   End If
    
20. End Sub

½Æ»s¥N½X

§Aªºªí³æ:

1. Private Const COMBOBOX_COUNT = 6
   
2. Dim myCombo(1 To COMBOBOX_COUNT) As clsComboBoxMyEvents
   
3. 
   
4. Private Sub UserForm_Initialize()
   
5. 
   
6.   '............................
   
7.   
   
8.   '¥[¤W¤U­±³o¬q
   
9.   For i = 1 To COMBOBOX_COUNT
   
10.     Set myCombo(i) = New clsComboBoxMyEvents
    
11.     myCombo(i).setObject Controls("ComboBox" & i)
    
12.     If i < COMBOBOX_COUNT Then myCombo(i).setLinkForLock Controls("ComboBox" & i + 1)
    
13.   Next i
    
14. End Sub

½Æ»s¥N½X

¤j·§Ãþ¦ü³o¼Ë¡A§Ú¤]¤£¬O«Ü±`¥Î¡C