VBA dictionaryのキーと要素の追加方法について

Question

dictionaryのキーと要素の追加方法について
add で追加する方法はわかるのですが、
下記のリンク内で set Dictionaryｵﾌﾞｼﾞｪｸﾄ変数名("キー")=要素　で追加されていると思います。
これが腑に落ちません。いきなりキーを入れてもいいのでしょうか？
なにか参考になるサイトや考え方ありましたら教えていただけないでしょうか？
よろしくお願いいたします。

VBAでのDictionaryを使ってデータを振り分け方法

下記自分なりにシンプルにしたコードです

Sub テスト()
Dim DogList As Collection
Set DogList = New Collection
DogList.Add "ゴールデンレトリーバー", "ゴ"
DogList.Add "柴犬", "シ"

Dim CatList As Collection
Set CatList = New Collection
CatList.Add "ペルシャ猫", "ペ"
CatList.Add "三毛猫", "ミ"

Dim dic As Dictionary
Set dic = New Dictionary
Set dic("犬") = DogList
Set dic("猫") = CatList
Debug.Print dic.Item("犬").Item("シ")

End Sub

Answer 1

下記のリンク内で set Dictionaryｵﾌﾞｼﾞｪｸﾄ変数名("キー")=要素　で追加されていると思います。

これが腑に落ちません。いきなりキーを入れてもいいのでしょうか？

Set dic("犬") = DogList

は、内部的には下記のようなことをしているはずです。

If dic.Exists("犬") Then    ' キーが存在するかチェック
    Set dic("犬") = DogList ' 既にキーが存在した場合は上書き代入
Else
    dic.Add "犬", DogList   ' キーが存在しない場合は、キーと値を追加
End If

コード記述を簡略化できるように、このような仕様になっているのでしょう。
Collection は古いオブジェクトなのでそのような仕様になっていないということだ思います。

勝手にうわ書きされては困るという場合は、Existsでチェックして場合分けすればいいでしょう。（もちろんエラートラップで処理分けしてもいいです。）

Comments

[bors]

Existsで重複の確認しなくていいの？と思っていたので、謎が解けました。内部でやってくれているんですね。
簡略化便利ですが、初心者にはかえって難しく感じます。
また、今まさに重複しないリストを作成しようとしているので、参考にさせていただきます。
ありがとうございました。

Answer 2

dictionaryはaddしなくてもいきなり代入できます。
collectionはそういうのはできません。

Comments

[bors]

そうなんですね。独学なので、ネットにのっていない事に直面すると手が止まってしまうので、コメント頂けて納得できました。ありがとうございます。自分で色々やってみたら、setにするとキーが存在していた場合上書きされてしまうとわかりました。addだとエラーがでるので、addで書こうと思いました。

[sousuke]

上書きされてしまうっていう感覚が微妙に正しくないと思います、再代入して上書きしているんです。
dim i as long
i=1
となっているところで
i=10
とすればiの元々の値であった1が消えて10になりますよね？
これを「10に上書きされてしまう」というのはちょっと。代入すればその値になるというのは当然です。
dic("i")=1
dic("i")=10
dictionaryは名前付きの変数の塊なんでやってることは変わりません。

[bors]

”名前付きの変数の塊”　なるほど！！　iという名前の変数に1や10を代入しているってことですよね？
キーと要素をひとくくりにして一度登録すると要素も変更できないと思っていました。
なので、イメージとして辞書にiのページがあったとして、もう一度iをsetすると既存のiのページを破りすてて新しくiのページを作っていると思っていました。
正しくはiのページに書いてある1を10に書き換えている感じでしょうか。
わかった気がします。ありがとうございます。

[sousuke]

その仕組みを正確に理解する必要はあまりないと思います。捨てて作りなおしていようが書き換えていようが「再代入したら最後に代入したものになる」という理解で事足りるからです。
dim i as long
i=1
i=10
というプログラムがあったとして
i=10を入れる行で「iの1を捨ててから10を入れている」
「iの1を10に書き換えている」などと考えないのでは？
どっちだったとしてもやることや結果は変わりませんし、あまり意味がないかと。