一時期、こんなコードを書いていた。 Sub test() MsgBox PriceDict("りんご") End Sub Function PriceDict() As Dictionary Dim tempDict As Dictionary Set tempDict = New Dictionary tempDict("りんご") = 100 tempDict("みかん") = 150 tempDict("ばなな…