ディクショナリの項目の数を取得する

サンプルソース

' ディクショナリオブジェクトを生成
Set objDic = CreateObject("Scripting.Dictionary")

' キーと項目を追加
objDic.Add "aaa", "伊藤"
objDic.Add "bbb", "田中"
objDic.Add "ccc", "鈴木"

' 項目数を取得
Cells(1,1) = & objDic.Count
' 結果:3

' ディクショナリオブジェクトを解放
Set objDic = Nothing

解説

Scripting.Dictionaryは任意の形のデータを格納するディクショナリのオブジェクトです。

Countで項目数を取得します。




ディクショナリ操作



Excel VBA講座
VBScriptサンプル集

日付操作

文字列操作
     ...すべてのサンプルをみる



関連リンク
 セル、シート、ブックの参照や操作、
 書式設定に関するサンプル集。
Copyright (C) ExcelVBA@Workshop All rights reserved.