Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48116 / 76732

←次へ　｜　前へ→


	【33553】Re:複雑です、、

kobasan - 06/1/15(日) 8:43 -


	引用なし

	パスワード

ponpon さん、おはようございます。
ムーンさん、Hirohumiさん、おはようございます。

>Dic.Item(dkey) = Dic.Item(dkey) + r.Offset(, 3).Text
>この段階で、　　　　~~~~~~~~~~~~~~~~は、まだ定義されていないので
>エラーになるような気がするのですが(もちろんエラーにはなりませんが）。
>Range("A1").Value = Range("A1").Value ＋ 1の様な場合は、
>初めは、Range("A1").Value がNULL値(?)=0または、""と考えられるのですが・・・
>Dic.Item(dkey) = Dic.Item(dkey) + r.Offset(, 3).Text
>の場合は、まだ辞書(Dic)に何も登録していないのに、同じように考えて
>いいのでしょうか？

私も、この質問箱で、このやり方を勉強させてもらいました。
このやり方は、一石二鳥というか非常においしい話で、

dkeyがkeyに登録されてなかったら、keyに追加登録し、Itemも登録してくれる

という動きをしているわけです。
つまり、
Dic.Add myKey, r.Offset(0, 3).Text
もやってくれているわけです。

この動きを利用すると、重複しているデータを簡単に集計したり、
今回のように、同じkeyのデータを簡単にまとめることができます。
こんな説明でいいでしょうか。

ついでに、この勉強は「とまとさん」の投稿で勉強させてもらいました。
「とまと」で検索してみてください。

0 hits

▼

【33528】複雑です、、 ムーン 06/1/14(土) 13:44