ＶＢＡにて Dictionaryを使いまわしたい

質問

Dictionaryオブジェクトをデータベースとして、
色々なマクロから使うことは出来るのでしょうか？

以下のようなイメージですが、もちろん、これは動きません。
Sub　データ()を関数にすると、その都度、辞書に登録という作業が生じるため、損をした気になるので質問しました。

Sub　データ()

省略
Set myDic = CreateObject("Scripting.Dictionary")

省略
myDic.Add "菊", "50円"
myDic.Add "バラ", "100円"
myDic.Add "ひまわり", "100円"

省略
End　Sub

Sub　Aさんの買い物合計()

合計=myDic.Item("菊")+myDic.Item("ひまわり")

End　Sub

Sub　Bさんの買い物合計()

合計=myDic.Item("バラ")+myDic.Item("ひまわり")

End　Sub

回答No.2

keithin · ベストアンサー

その１）
マクロを書くときは、変数の宣言を必ず行う癖をつけましょう。
そうすることで、「この変数を他のマクロで使うにはどうしたらいいのか」という具合に発想が広がります。

その２）
「50円」だの「100円」だのでは、足し算は（原則）できません。
数字は数値でデータを持たせるように、習慣づけましょう。

標準モジュール：
dim myDic as Object

Sub　データ()
Set myDic = CreateObject("Scripting.Dictionary")
myDic.Add "菊", 50
myDic.Add "バラ", 100
myDic.Add "ひまわり", 100
End　Sub

Sub　Aさんの買い物合計()
dim 合計 as double
合計=myDic.Item("菊")+myDic.Item("ひまわり")
msgbox 合計 & "円"
End　Sub

Sub　Bさんの買い物合計()
dim 合計 as double
合計=myDic.Item("バラ")+myDic.Item("ひまわり")
msgbox 合計 & "円"
End　Sub

手順：
１．データを実行する
２．買い物合計を実行する。

お礼

回答ありがとうございます。

回答No.1

kybo

myDicをPublicかPrivateで宣言すればいいだけの話ではないでしょうか？
そのモジュールの先頭に以下のように記述してみてください。

Public myDic As Object

参考URL：

http://officetanaka.net/excel/vba/variable/05.htm

お礼

回答ありがとうございます。