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

[µo°Ý] §ä¥X¤£¦P­Èªº¦U¶µ

[µo°Ý] §ä¥X¤£¦P­Èªº¦U¶µ

¨D±Ð©ó¦U¦ì¤j¤j
        ¦p¦ó©óMyRange1¤º §ä¥X¥u­n¤£¦P­Èªº¦U¶µ¦@´X¶µ?¦@­þ´X¶µ?¥H d(n)ªí¥Ü?
¤S for i=1 to  n
           combobox1.additem     d(i-1)?©Î----
     next
¤W­z¬O­n±N ¤£¦P­Èªº¦U¶µ ¼W¦Ü combobox1
­n¦p¼gªk?
ÁÂÁÂ

¦^´_ 1# yangjie

Set d = CreateObject("Scripting.Dictionary")
Set Rng = Range("A1:A20")
For Each a In Rng
d(a.Value) = ""
Next
MsgBox d.Count  '¶µ¥Ø¼Æ¶q
ComboBox1.List = d.keys    '¼g¤J²M³æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
¤Ó´Î¤F
½Ð±ÐH¤j¤j
°ÝÃD1.    d(a & "")=array(a.offset(,1))   »P d(a.value)=""   §â§Ú·d²V¤F  ¤×¨ä¬O ¨º¨â­Ó ""
°ÝÃD2.    Set d = CreateObject("Scripting.Dictionary")
               With Sheets("¦s¬d")
                         For Each a In .Range(.Cells(2, 2), .Cells(65536, 2).End(xlUp))
                                              d(a.Value) = ""
                         Next
               End With
               If d.Count = 0 Then Exit Sub
               ComboBox1.List = d.keys
       ­Y­n¥[¤@ªº±ø¥ó ©ócolumn(an1)¦³="string1"   ¤§ ¤U§@¬Û²§¿z¿ï d(a.Value)            ¨º±ø¥ócolumn(an1)¦³="string1"À³¥[¦b­þ¨à?

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-9-12 18:27 ½s¿è

¦^´_ 3# yangjie


    Dictionaryª«¥óªº¨â­Ó­«­n¤¸¯Àkey»Pitem
key¬O¤£¯à­«½Æªº¯Á¤Þ­È¡A¥¿³W¤@ÂIªº²K¥[keyÀ³¸Ó¨Ï¥Îadd¤èªk
¦pªG¨Ï¥Îadd¤èªk¥[¤J¯Á¤Þ¡A¥²¶·¥ý§PÂ_¬O§_¸Ó¯Á¤Þ­È¤w¸g¦s¦b¡A­Y­«½Æadd®É±N·|²£¥Í¿ù»~
¦b³oÃä¨Ï¥Îd(key)=item³o¼Ëªº¤è¦¡¥[¤J¯Á¤Þ¡A¥u¬O·|§ïÅܬ۹ï©ókeyªºitem
¦¹¨Ò¤¤d(A & "")³o¬O±Nkey­È¡A¨Ï¥ÎAÅܼÆÂন¦r¦ê¸ê®Æ«¬ºAªº¤è¦¡§@¬°¯Á¤Þ
d(A.Value)=""
³o¬O±NÀx¦s®æÅܼÆA¨ú¥X­È§@¬°¯Á¤Þ­È¡A¦Ó¬Û¹ïÀ³ªºitem³£¬O¥HªÅ¦r¦ê¬°¤º®e(¥i¸`¬Ù°O¾ÐªÅ¶¡)
¦¹¨âºØ¼gªkkey³£·|±o¨ì¤@­Ó¤£­«½Æ­Èªº°}¦C

­n¥[¤J±ø¥ó§PÂ_¡A«h¥i¦A²K¥[Key®É°µ§PÂ_
¦¹¨Ò§PÂ_Columns(cn1)¦³"string"¦r¦ê¤~¥[¤J¯Á¤Þ
If InStr(Cells(A.row,cn1),"string")>0 Then d(A &"")=A
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
·PÁÂH ¤j¤j»¡©ú
§¹¥þ©úÁA

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD