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

[Âà¶K] Dictionaryª«¥óªº»{ÃÑ»PÀ³¥Î

Dictionaryª«¥ó¥iµø¬°¤@­Ó°}¦C¡AÅý§A©ñ¤J¼Æ¦r©Î¤å¦r¡C
Hsieh µoªí©ó 2010-4-30 23:00

¤]¥i¥H©ñ¤J Range
Sub Ex()
    Dim D As Object, K
    Set D = CreateObject("Scripting.Dictionary")
    D.Add Cells(1, 1), ""
    D.Add Cells(2, 1), ""
    For Each K In D.KEYS
        MsgBox K.Address
    Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD