銀河鉄道

【VBA】Dictionaryのセット|CreateObject(“Scripting.Dictionary”)

サムネイル
dictionaryセットする

Dictionaryをセットする

CreateObject(“Scripting.Dictionary”)を使う

Public Function SetDIC()
    Set SetDIC = CreateObject("Scripting.Dictionary")
End Function

呼び出し方

Private Sub Test()

    Dim i As Long
    Dim dic As Object: Set dic = SetDIC

    For i = 1 To 100
        If Not DicExists(dic, xx) Then  'キー(xx)がdicに存在しなければ
            Set dic = AddDicKeyValue(dic, xx, yy)  'キー(xx)と要素(yy)を追加する

            'なにかの処理
        End If
    Next i
End Sub

関連記事

著者

author
月うさぎ

編集後記:
この記事の内容がベストではないかもしれません。

記事一覧