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

[µo°Ý] §Q¥Î¤U©Ô¦¡¿ï³æ¿ï¨ú¸ê®Æ¡A¨Ã¶i¦æ¶i¶¥¿z¿ï

¦^´_ 2# Hsieh

«¢ÅoHsieh¤j¡A
§Ú¦b½m²ß¦¹©«ªº¹Lµ{µo²{¤@¨Ç°ÝÃD¡C
·í¤¤³o¬q¥N½X·Q­n½Ð±Ð±z :
  1. Private Sub UserForm_Initialize()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With ¤u§@ªí1
  4.    For Each a In .Range(.[D2], .[D2].End(xlDown))
  5.       d(a.Text) = ""
  6.    Next
  7. End With
  8. ComboBox1.List = d.keys
  9. End Sub
½Æ»s¥N½X
§ÚÀ´³o¤@¬qªº¥Î·N¬O­n±N¡u­n¬d¸ßªº¤£­«½Æ¶µ¥Ø¡v±a¶i¤U©Ô¦¡¿ï³æªº¿ï¶µ¶µ¥Ø¡F
¦ý¬O¦b For Each a In .Range(.[D2], .[D2].End(xlDown))©MNext¤¤ªºd(a.Text) = ""
§Ú¤£¤Ó¤F¸Ñ¬°¦ó­n±N©Ò¦³¶µ¥Øªº¤å¦rÅܦ¨""¡A³o¬q¼¶¼gªº½t¥Ñ¬O¨Ó¦Û¦ó³B¡H
ÁٳҷбzÀ°¦£¸Ñ´b¡C

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-4-13 10:54 ½s¿è

¦^´_ 11# ChuckBucket

¦r¨åÀÉ >> §Q¥Î"KEY"­È, ±a¤@­Ó"ITEM"
d(a.Text) = ""
a.Text ¬O KEY
"" ¬O ITEM, ³oITEM¥i¬°¥ô¦ó«¬ºA¸ê®Æ

¦]¥u¨ú¤£­«ÂÐ, ¥u¥Î±o¨ìKEY, ¤£°µ¨ä¥¦³B²z,
©Ò¥HITEM¥Î""ªÅ¦r²Å§Y¥i(¤]¥i¥Î¨ä¥¦¦r²Å©Î¼Æ¦r)
d(a.Text) = "A"
d(a.Text) = 1
³£¬O¥i¥H¹F¨ì¥Øªº, ¤£¹L¦b³o­Ó»Ý¨D¤W,"A"©Î1³£¨S¦³·N¸q
=============================
d(a.Text) = d(a.Text) + 1 ³o­Ó´N¥i¥H²Ö­p a.Text ªº¦¸¼Æ
¨ä¥¦¥Î³~¥i¦h¬Ý´X­Ó½d¨Ò©«§a!!!

TOP

¦^´_ 12# ­ã´£³¡ªL
Hi ­ã¤j¡A
·PÁ§Aªº¦^ÂСC
©Ò¥HHsieh¤j¦bPrivate subùØÀYFor eachùØÀYªº¼gªk¡Ad(a.text) = ""¨ä¹êµ¥¦P©ód.add  a , ""¶Ü¡H
§Ú¯à³o¼Ë²z¸Ñ¶Ü¡H

TOP

¦^´_ 13# ChuckBucket


¬Oªº~~

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD