ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦p¦óÅýCommandButton.Caption¤º®e~¥i¥HÅý¨Ï¥ÎªÌ§Ö³t·j´M¨ì?

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

TOP

½T¹ê¤£À³¦³³o»ò¦hbutton...
§A¥i¥H¥Îcombo box §@°Ê§@¿ï¶µ, µM«á¥[­Óbutton¨Óµ¹¥Î¤áµo°_°Ê§@
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 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¨Ó?

TOP

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

¥»Ã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

¥»Ã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. Private Sub ComboBox1_Change()
  2.     Dim d As Object, A
  3.     Application.EnableEvents = False
  4.     Set d = CreateObject("Scripting.Dictionary")
  5.    With ¤u§@ªí2
  6.        For Each A In .Range("A1", .[A1].End(xlDown))
  7.            If A Like "*" & ComboBox1.Text & "*" Then
  8.                 d(A.Value) = ""
  9.             End If
  10.         Next A
  11.         If d.Count > 0 Then
  12.             ComboBox1.List = Application.Transpose(d.keys)
  13.         End If
  14.     End With
  15.     Application.EnableEvents = True
  16.     Set d = Nothing
  17. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD