Excel VBA質問箱 IV

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

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


14247 / 76734 ←次へ | 前へ→

【67986】dictionaryオブジェクトについて
質問  MIMI  - 11/1/21(金) 16:28 -

引用なし
パスワード
   exists で、アイテムの存在の有無を確認するときに、
LIKE演算子は使えないのでしょうか?
あいまい検索的な感じにアイテムをヒットさせたいのですが
どうもうまくいかなくて困ってます

今のコードは下記の通りです

A列の2行目から最終行までのデータを、
dictionaryオブジェクトの中に格納します

ここで、A列のデータというのが、*や?を含んだものです

シート1
A列
*AAA?1*BBB?1*CCC?1
*EEE?2*EWRE?7*QQQQ?2
*DDD?4*EEE?1*SSS?7

このようなデータが3000件ほどあります

シート2
A列
DDD-4|EEE-1|SSS-7
EEEq2|EWRE-7|QQQQ-2

など、*や?が入っていないデータがあります


それを今度は、
シート2のリストを調べていき、
dictionaryオブジェクトの中に存在しているかを確認し
存在していれば、Itemを入れるといった感じにしたいのですが、
existsのときに、Like演算子がうまく使えないのですが、使うことはできないのでしょうか?

たとえば、シート2内の
DDD-4|EEE-1|SSS-7 は *DDD?4*EEE?1*SSS?7 である
という認識をさせたいのです

Set MyD = CreateObject("scripting.dictionary")

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
  If Not MyD.exists(Range("A" & i).Value) Then
    MyD.Add Range("A" & i).Value, Range("B" & i).Value
  End If
Next i

Sheets("シート2").Activate
 For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
  If MyD.exists(Range("A" & i).Value) Then
    ↑ココで、指定文字を含むものがあるか?どうか?を判断させたいです

    Range("B" & i).Value=MyD.Item(Range("A" & i).Value)
  End If
Next i

どうか、ご教授願います
0 hits

【67986】dictionaryオブジェクトについて MIMI 11/1/21(金) 16:28 質問
【67987】Re:dictionaryオブジェクトについて Yuki 11/1/21(金) 16:52 発言
【67992】Re:dictionaryオブジェクトについて MIMI 11/1/24(月) 11:11 発言
【68017】Re:dictionaryオブジェクトについて Yuki 11/1/25(火) 14:46 発言
【68089】Re:dictionaryオブジェクトについて MIMI 11/1/31(月) 16:39 発言
【68090】Re:dictionaryオブジェクトについて Yuki 11/1/31(月) 17:32 発言
【67988】Re:dictionaryオブジェクトについて momo 11/1/21(金) 19:27 発言
【67993】Re:dictionaryオブジェクトについて MIMI 11/1/24(月) 11:21 お礼
【67999】Re:dictionaryオブジェクトについて MIMI 11/1/24(月) 16:51 質問
【68001】Re:dictionaryオブジェクトについて momo 11/1/24(月) 17:24 発言
【68021】Re:dictionaryオブジェクトについて MIMI 11/1/25(火) 16:31 お礼
【67991】Re:dictionaryオブジェクトについて 山猿 11/1/23(日) 9:06 発言
【67994】Re:dictionaryオブジェクトについて MIMI 11/1/24(月) 11:23 お礼
【68024】Re:dictionaryオブジェクトについて 山猿 11/1/25(火) 20:20 発言

14247 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free