stillfish00

¦^´_ 2# PKKO
Combobox ¦³­Ó AutoWordSelect ÄÝ©Ê¡A§ï¬° False ´N¤£·|¦Û°Ê±a¥X

stillfish00

¦^´_ 6# PKKO
§c©êºp¡A¨º¥i¯à¬O§Ú»~·|¨º­ÓÄݩʤF¡A
¦Ü©ó°ÝÃD¤@¡A¸m³»©« "¥»ª©­È±oÃöª`ªº¥DÃD±N³°Äò¼W¥[" ¸Ì­± 22 ¦³
¥D­n¬O¥Îª«¥óÃþ§O¨ÓºÞ²z¦@¦P¨Æ¥ó¡A§A¥i¥H¦Û¤v¸Õ¸Õ¬Ý

stillfish00

¦^´_ 23# PKKO
·s¼Wª«¥óÃþ§O¼Ò²Õ clsComboBox

1. Private WithEvents mComboBox As MSForms.ComboBox
   
2. 
   
3. Public Sub InitialControl(ByRef oControl)
   
4.   Set mComboBox = oControl
   
5. End Sub
   
6. 
   
7. Private Sub mComboBox_Change()
   
8.   mComboBox.Clear
   
9. End Sub
   
10. 
    
11. Private Sub mComboBox_DropButtonClick()
    
12.   Dim ar, i As Long, j As Long
    
13.   ar = Application.Transpose(Range([A1], [A1].End(xlDown)))
    
14.   For i = 1 To UBound(ar)
    
15.     If ar(i) Like mComboBox.Text & "*" Then
    
16.       j = j + 1
    
17.       ar(j) = ar(i)
    
18.     End If
    
19.   Next
    
20.   
    
21.   If j > 0 Then
    
22.     ReDim Preserve ar(1 To j)
    
23.     mComboBox.List = ar
    
24.   End If
    
25. End Sub

½Æ»s¥N½X

UserForm:

1. Private gcolComboBoxs As Collection
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.   Dim oComboBox As clsComboBox, x
   
5.   
   
6.   Set gcolComboBoxs = New Collection
   
7.   
   
8.   For Each x In Me.Controls
   
9.     If StrComp(TypeName(x), "ComboBox", vbTextCompare) = 0 Then
   
10.       Set oComboBox = New clsComboBox
    
11.       oComboBox.InitialControl x
    
12.       gcolComboBoxs.Add oComboBox
    
13.     End If
    
14.   Next
    
15. End Sub

½Æ»s¥N½X