VBA技術解説
.Net FrameworkのSystem.Collectionsを利用

ExcelマクロVBAの問題点と解決策、VBAの技術的解説
公開日:2022-06-29 最終更新日:2022-06-29

.Net FrameworkのSystem.Collectionsを利用


.Net FrameworkのSystem.Collections内のクラスを利用します。
ArrayList
SortedList
Hashtable
これらを使ってみます。


ArrayListに関してはブログ等で多く書かれています。
SortedListについても、数は少ないですが書かれている記事はあります。
Hashtableは探したのですが見当たりませんでした。

目的としてはHashtableを使ってみようとしたことから始まったのですが、結果として期待するだけの動作が確認できませんでした。
せっかくなので、何を確認して、何が動いて、何が動かなかったのかを記録しておきます。


ArrayList

ArrayListは多くのブログで書かれています。
以下のVBAで動作再確認しました。

Sub fw_ArrayList()
  Dim alist As Object, i As Long, v As Variant
  
  Set alist = CreateObject("System.Collections.ArrayList")
  
  '5つの乱数をArrayListに追加
  For i = 1 To 5
    alist.Add Int(Rnd() * 100)
  Next
  
  Debug.Print "ArrayListをそのまま出力"
  For i = 0 To alist.Count - 1
    Debug.Print alist(i)
  Next i
  
  Debug.Print "ArrayListを並べ替えた後に出力"
  alist.Sort
  For i = 0 To alist.Count - 1
    Debug.Print alist(i)
  Next i
End Sub

Excel VBA .Net Framework System.Collections


SortedList

SortedListもArrayListよりは少ないかもしれませんが書かれているブログはあります。
以下のVBAで動作再確認しました。

Sub fw_SortedList()
  Dim slist As Object, i As Long, r As Long
  
  Set slist = CreateObject("System.Collections.SortedList")
  
  Debug.Print "SortedListに5つの乱数と順番を追加"
  For i = 1 To 5
    r = Int(Rnd() * 100)
    If slist.Contains(r) = False Then
      slist.Add r, i
      Debug.Print r, i
    End If
  Next
  
  Debug.Print "SortedListを全件出力"
  Dim vKey
  For i = 0 To slist.Count - 1
    vKey = slist.getkey(i)
    Debug.Print vKey, slist.Item(vKey)
  Next
End Sub

Excel VBA .Net Framework System.Collections


Hashtable

Hashtableについて書かれているブログは見当たりませんでした。
軽く検索しただけなので、海外サイトまで含めてしっかり検索すればあるかもしれませんが・・・
以下のVBAで動作確認しました。

Sub fw_Hashtable()
  Dim hash As Object
  
  Set hash = CreateObject("System.Collections.Hashtable")
  
  'Hashtableにキーと値を3セット追加"
  hash.Add "1", "a"
  hash.Add "2", "b"
  hash.Add "3", "c"
  Debug.Print "Hashtableのキーの存在確認"
  Debug.Print hash.ContainsKey("1")
  Debug.Print hash.ContainsKey("4")
  Debug.Print "Hashtableの値の存在確認"
  Debug.Print hash.ContainsValue("b")
  Debug.Print hash.ContainsValue("d")
  
  Debug.Print "Hashtableの件数確認"
  Debug.Print hash.Keys.Count
  
  Dim v
  For Each v In hash.Keys
    Debug.Print v
  Next
End Sub

Excel VBA .Net Framework System.Collections

ContainsKey
ContainsValue
これらは正しく機能しているようです。

Keys.Count
これも正しく出力できました。
しかし、その下で、、、

Excel VBA .Net Framework System.Collections

Keys
これがFor Eachで使えません。
代わりとなる記述を探したのですが、見つかりませんでした。

以下は、参考までにVB.NETです。
Excel VBA .Net Framework System.Collections

Hash.Keys(1)
これもダメなので、ループさせることができません。

Excel VBA .Net Framework System.Collections


Keysが使えないと、あまり意味はないのですが、
キーで値を取得することは出来ました。
Hash(キー)

Excel VBA .Net Framework System.Collections


良いところまでは動作しているのに、肝心のKeysが動かない・・・
非常に惜しいですよね・・・

VBAでは Dictionary が使えるので、それで大抵は用が足りると思います。
・Dictionaryを使って重複を除く ・Dictionaryの使い方その2 ・Dictionaryの使い方その3 ・Dictionaryの使い方サンプル ・サイト内のDictionary関連記事
ただしDictionaryにはContainsValueに相当するものはないので、Keysさえ動けば使い道がありそうかなと思ったのですが・・・
非常に残念な結果となりました。
考えてみれば、まともに使えないから解説ブログも見当たらないのは納得と言うところです。




同じテーマ「マクロVBA技術解説」の記事

VBAで正規表現を利用する(RegExp)
VBAでメール送信する(CDO:Microsoft Collaboration Data Objects)
VBAでのOutlook自動操作
ADO(ActiveX Data Objects)の使い方の要点
特殊フォルダの取得(WScript.Shell,SpecialFolders)
参照設定、CreateObject、オブジェクト式の一覧
VBAのスクレイピングを簡単楽にしてくれるSelenium
VBA+SeleniumBasicで検索順位チェッカー作成
VBA+SeleniumBasicで検索順位チェッカー(改)
.Net FrameworkのSystem.Collectionsを利用
WshNetwork(ネットワークドライブの割り当て等)


新着記事NEW ・・・新着記事一覧を見る

AIがあればVBAはできる:セルに絵文字を入れる|生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目:シートの並べ替え|生成AI活用研究(5月6日)
Geminiと100本ノック 14本目:社外秘シート削除|生成AI活用研究(5月4日)
Geminiと100本ノック 13本目:文字列の部分フォント|生成AI活用研究(5月4日)
Geminiと100本ノック 12本目:セル結合の解除|生成AI活用研究(5月2日)
Geminiと100本ノック 11本目:セル結合の警告|生成AI活用研究(5月1日)
AI(Gemini)とエクセル数式対決 その2|生成AI活用研究(2025-04-30)
Geminiと100本ノック 10本目:行の削除|生成AI活用研究(4月30日)
AI(Gemini)とテーマを決めて議論|生成AI活用研究(2025-04-30)
Geminiと100本ノック 9本目:フィルターコピー|生成AI活用研究(4月29日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.繰り返し処理(For Next)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.ひらがな⇔カタカナの変換|エクセル基本操作
6.RangeとCellsの使い方|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.FILTER関数(範囲をフィルター処理)|エクセル入門
10.条件分岐(Select Case)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ