GBKEE

¦^´_ 2# PKKO

¬O³o¼Ë¶Ü?

1. Dim Arr
   
2. Private Sub ComboBox17_Change()
   
3.     Dim i As Long
   
4.     '§ä¥X¬Û¦P©m¦Wªº©µÄò
   
5.     Name1 = ComboBox17.Value
   
6.     For i = 1 To Range("A65536").End(xlUp).Row
   
7.         If Range("A" & i) Like ComboBox17 & "*" Then
   
8.             Name1 = Name1 & "," & Range("A" & i)
   
9.         End If
   
10.     Next
    
11.     Arr = Split(Name1, ",")
    
12.     UserForm1.ComboBox17.List = Arr
    
13.     UserForm1.ComboBox17 = Arr(0)
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# PKKO
   

ªí³æªº©m¦WÄæ¦ì¿é¤J:§Ú
´N·|Åܦ¨:§Ú·R§A
¾É­PµLªk¤U©Ô¿ï³æ~¿ï§Oªº¦WºÙ
­n¦p¦ó¤~¥i¥H¿é¤J:§Ú
¦ý¬O¤£·|¦Û°Ê±a¥X¨Ó«á­±ªº

½Ð°Ý§A­n±a¥X¨Óªº¬O¤°»ò?

¦Ü©ó°ÝÃD¤@ : ­Y¦³20­Ó¬Û¦P¥\¯à¤§µ{¦¡½X,¸Ó¦p¦ó¼¶¼g?

½Ð·j´M °Q½×°Ïªº¤º¤å "ª«¥ó¼Ò²Õ" ¬Ý¬Ý

GBKEE

¦^´_ 11# PKKO
²Ä3#ªºµ{¦¡½X¤£¬O³o¼Ë¶Ü?

1. Dim Arr
   
2. Private Sub ComboBox17_Change()
   
3.     Dim i As Long
   
4.     '§ä¥X¬Û¦P©m¦Wªº©µÄò
   
5. .    Name1 = ComboBox17.Value   '¿é¤Jªº¦r¦ê
   
6.     For i = 1 To Range("A65536").End(xlUp).Row
   
7.         If Range("A" & i) Like ComboBox17 & "*" Then 'Àx¦s®æ¦r¦êªº¶}ÀY»PComboBox17("¿é¤Jªº¦r¦ê")¬Û¦P
   
8.             Name1 = Name1 & "," & Range("A" & i)
   
9.         End If
   
10.     Next
    
11.     Arr = Split(Name1, ",")
    
12.     UserForm1.ComboBox17.List = Arr
    
13.     UserForm1.ComboBox17 = Arr(0) ',¤U©Ô¦¡¿ï³æ ¦b²Ä¤@­Ó¦ì¸m¥X²{Åã¥Ü§A¿é¤Jªº¦r¦ê
    
14. 'ÂI¿ï¤U©Ô¦¡¿ï³æ,¥i¥H¿ï¾Ü"³s³Ó¤å","³s¾Ô","³s³s¬Ý"
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# PKKO
3#µ{¦¡½X
ComboBox17 ¿é¤J"§Ú¦n"¤§«á, ÂI¿ï ComboBox17°Ê§@«áªº¹Ï¥Ü ³o¬O§A­nªº®ÄªG¶Ü?

¤U¸ü (28.87 KB)

2014-12-4 07:25

GBKEE

¦^´_ 15# PKKO


   

¬O§_¥i¥H¤£­n¦Û°Ê±a¥X(¦]¬°¦Û°Ê±a¥Xªº~¨Ï¥ÎªÌ¥²¶·­n¥ý§R°£)

½Ð»¡©ú(¤£¤F¸Ñ:¨Ï¥ÎªÌ¥²¶·­n¥ý§R°£)

GBKEE

¦^´_ 17# PKKO
¥Î·Æ¹«¿ï,¤£­n¥ÎÁä½L¿ï

GBKEE

¦^´_ 19# PKKO
ªí³æ¥[¤@TextBox±±¨î¶µ ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub TextBox1_Change()
   
3.     Dim i As Long, Name1, Arr
   
4.     For i = 1 To Range("A65536").End(xlUp).Row
   
5.         If Range("A" & i) Like Trim(TextBox1) & "*" And Trim(TextBox1) <> "" Then
   
6.             Name1 = Name1 & "," & Range("A" & i)
   
7.         End If
   
8.     Next
   
9.     Arr = Split(Mid(Name1, 2), ",")
   
10.     With ComboBox17
    
11.         If UBound(Arr) <> -1 Then
    
12.             .List = Arr
    
13.             .Value = Arr(0)
    
14.         Else
    
15.             .Clear
    
16.         End If
    
17.     End With
    
18. End Sub
    
19. Private Sub ComboBox17_Change()
    
20.     ComboBox17.DropDown
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# PKKO

¤U¸ü (97.23 KB)

2014-12-6 13:49

1. Option Explicit
   
2. Dim UserComboBox() As New Class1
   
3. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æªº¨Æ¥ó
   
4.     Dim e As Control, i As Integer
   
5.     For Each e In Me.Controls
   
6.         If InStr(e.Name, "ComboBox") Then
   
7.             ReDim Preserve UserComboBox(0 To i)
   
8.             Set UserComboBox(i).xlComBox = e
   
9.             i = i + 1
   
10.         End If
    
11.     Next
    
12. End Sub
    
13. Private Sub CommandButton1_Click()
    
14.     Unload Me   'Ãö³¬ªí³æ
    
15. End Sub

½Æ»s¥N½X

[ Class1 ] (ª«¥óÃþ§O¼Ò²Õ)ªºµ{¦¡½X

1. Option Explicit
   
2. Public WithEvents xlComBox As MSForms.ComboBox
   
3. Private Sub xlComBox_DropButtonClick()  '«ö¤UComboBox¤U©Ô½bÀY«ö¶s
   
4.     Dim i As Long, S As String, Name1 As String, Arr As Variant
   
5.     If xlComBox.ListIndex > -1 Then Exit Sub
   
6.     'ComboBoxªº­È,¤£¦bComboBox.Listªº²M³æ¤¤¿ï¨úªº: ComBox.ListIndex=-1
   
7.     S = UCase(Trim(UserForm1.TextBox1))
   
8.     For i = 1 To Range("A65536").End(xlUp).Row
   
9.         If UCase(Range("A" & i)) Like S & "*" And S <> "" Then
   
10.             Name1 = Name1 & "," & Range("A" & i)
    
11.         End If
    
12.     Next
    
13.     Arr = Split(Mid(Name1, 2), ",")
    
14.     With xlComBox
    
15.         If UBound(Arr) > -1 Then
    
16.             .List = Arr
    
17.             .Value = Arr(0)
    
18.         Else
    
19.             .Clear
    
20.         End If
    
21.         .DropDown
    
22.     End With
    
23. End Sub

½Æ»s¥N½X