【VBA】Dictionaryのセット|CreateObject(“Scripting.Dictionary”)
作成日:2022-12-03
更新日:2022-12-04

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
関連記事
2022-12-03
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
開いてるブックを閉じる 【VBA】指定のブックが開いていたら閉じる -
文字列から拡張子を取得する 【VBA】文字列から、拡張子を取得して文字列として返す -
オブジェクト生成のCreateObjectまとめ 【VBA】dictionary・テキストファイル・outlook・Access用にオブジェクトを生成する|CreateObject -
OKキャンセルのメッセージ 【VBA】OKキャンセルのメッセージボックス|MsgOKCancel -
Excel内でSQLを使いたい 【VBA】Excelシート内の表データをSQLで操作したい -
拡張子の存在確認 【VBA】拡張子の存在確認|ExtensionExists