[µo°Ý] Ãö©óComboBox¦p¦ó¥´²Ä¤@­Ó¦r~§Ö³t¿z¿ï¥X¦P¼Ëµü?

av8d

CommandButton¦³50­Ó~¨C­Óªº¤º®e³£¤£¦P~
¦p¦óÅýCommandButton.Caption¤º®e~¥i¥HÅý¨Ï¥ÎªÌ§Ö³t·j´M¨ì?
©Î¬O¤£¥ÎCommandButton¥Î¨ä¥Lªº¤]¥i¥H~·PÁ¦U¦ì¤j¤j!

kimbal

½T¹ê¤£À³¦³³o»ò¦hbutton...
§A¥i¥H¥Îcombo box §@°Ê§@¿ï¶µ, µM«á¥[­Óbutton¨Óµ¹¥Î¤áµo°_°Ê§@

av8d

¦^´_ 2# kimbal


    ¦pªG¸ê®Æ©ñ¦b¤u§@ªí2ªºAÄ椺

1. Private Sub UserForm1_Initialize()
   
2.     Dim d As Object, A
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With ¤u§@ªí2
   
5.         For Each A In .Range("A1", .[A1].End(xlDown))
   
6.           d(A.Value) = ""
   
7.         Next A
   
8.         ComboBox1.List = Application.Transpose(d.keys)
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

¥H¤W¬O§_¥i¥H¦bComboBox¥´¤WÃöÁä¦r~À°§Ú±Æ§Ç?
¨Ò¦pAÄ椺¦³ÂצÌ,¦w¤ß,¦À¤W
¦pªG§Ú­n§ä¦w¤ß~¥u­n¦bComboBox¤W¥´¤W¦w~«h·|À°§Ú¿z¿ï¥X¨Ó?

av8d

¥»ÃD¦n¹³¦^Áç¤F~¦pªG¦³½ÐÀ°§Ú²¾°£~ÁÂÁÂ!

ComboBox¤º¦³¸ô¤H¥Ò,¬õºñ¿O1,¬õºñ¿O2,¸ô¤H¤A,¸ô¤H¤þ
·í§Ú¦bComboBox¥´"¸ô"ªº®É­Ô~¬O§_¥i¥H¥uÅã¥Ü¸ô¤H¥Ò,¸ô¤H¤A,¸ô¤H¤þ

¶i¶¥ÃD
ComboBox¤º¦³¸ô¤H¥Ò,¬õºñ¿O1,¬õºñ¿O2,¤¤µØ¸ô,°¨¸ô¦pªê¤f
·í§Ú¦bComboBox¥´"¸ô"ªº®É­Ô~¬O§_¥i¥H¥uÅã¥Ü¸ô¤H¥Ò,¤¤µØ¸ô,°¨¸ô¦pªê¤f

kimbal

¥»ÃD¦n¹³¦^Áç¤F~¦pªG¦³½ÐÀ°§Ú²¾°£~ÁÂÁÂ!

ComboBox¤º¦³¸ô¤H¥Ò,¬õºñ¿O1,¬õºñ¿O2,¸ô¤H¤A,¸ô¤H¤þ
·í§Ú¦bCom ...
av8d µoªí©ó 2012-8-28 19:34

¸Õ¸Õ¥[¤W³o­Ó,¨C«ö¤@¤UÁä,¦Cªí¦Û°Ê§ó·s

1. 
   
2. Private Sub ComboBox1_Change()
   
3.     Dim d As Object, A
   
4.     Application.EnableEvents = False
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.    With ¤u§@ªí2
   
7.        For Each A In .Range("A1", .[A1].End(xlDown))
   
8.            If A Like "*" & ComboBox1.Text & "*" Then
   
9.                 d(A.Value) = ""
   
10.             End If
    
11.         Next A
    
12.         If d.Count > 0 Then
    
13.             ComboBox1.List = Application.Transpose(d.keys)
    
14.         End If
    
15.     End With
    
16.     Application.EnableEvents = True
    
17.     Set d = Nothing
    
18. End Sub

½Æ»s¥N½X

¤U¸ü (68.67 KB)

2012-8-28 22:28