Excel VBA質問箱 IV

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

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


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

16967 / 76738

←次へ　｜　前へ→


	【65233】Re:Dictionaryを使った検索のVBAを教えてください

かみちゃん - 10/4/28(水) 20:04 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>> 次のところで「型が一致しません」とのエラーメッセージがでました。
>> どうすれば？？？
>>>　　　　dic.Add dat(i, 3), dat(i, 1) 'key:=社員ID　Item:=前月分支給額
>
>> 元データの社員IDは「8001」や「13003」等の４桁、
>> ５桁の数字（重複はありません）が混在しますが、空白のものはありません。
>
>ということなので、数値をKeyにしようとしているから
>「型が一致しません」のエラーになっているのではありませんか？

なるほど、そういうことですか。
私は、社員IDをセルの書式設定で文字列にして、数字文字列として検証していました。
書式設定を標準にして、数字文字列を数値としてみたところ、「型が一致しません」になりました。

CollectionオブジェクトのAddメソッドのヘルプの名前付き引数Keyのヘルプに、
>> コレクションの各メンバの処理をするときに、位置を表す数値の代わりに使用
>> できる重複しない文字列を文字列式で指定します。
とありましたので、

私が提示した

　　　　　dic.Add dat(i, 3), dat(i, 1) 'key:=社員ID　Item:=前月分支給額

の部分は、

　　　　　dic.Add dat(i, 3), CStr(dat(i, 1)) 'key:=社員ID　Item:=前月分支給額

としないといけないですね。

勉強になりました。

0 hits

▼

【65205】Dictionaryを使った検索のVBAを教えてください 八家九僧陀 10/4/27(火) 11:02