Dictionary は使い勝手がよくて好きなんですが、
直してもらいたいことも...
①Itemsがローカルウィンドウで見れない(^_^;)
②Keysがローカルウィンドウで256までしか見れない(・・;)
③[変数] = Dic.Item([Key]) の時に
Dicに無いKeyだったら自動的にDicに追加され
[変数]に自動的にEmptyが入る(T_T).。◯(無いって言ってよー)
そこで、Dictionary をとっつきやすくするクラスを大公開~!!!ノ゚∀゚)ノヤットサー!
*******************************************************************************************************************
使用例①・・・Dicの代わりとして
Dim C_Dic As [Dicクラス]
Set C_Dic = New [Dicクラス]
・・・後は通常のDicと同様に使用
*******************************************************************************************************************
*******************************************************************************************************************
使用例②・・・Dicのデバッグ
Dim Dic As Scripting.Dictionary
Dic.Add() などなど
Dim C_Dic As [Dicクラス]
Set C_Dic = New [Dicクラス]
Set C_Dic.Dic = Dic '★Dictionaryをクラスに格納して、Keys,Items等を確認★
*******************************************************************************************************************
もしクラス使うのも面倒だ!! って人は、
ウォッチウィンドウに Dic.Keys や Dic.Items を入れると、
①,②が見れるようになりますよ~^^
※詳細はここでは割愛...
*******************************************************************************************************************