Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7220 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40474】手で検索してみるとあるのに (・〜・) 06/7/14(金) 14:04 質問[未読]
【40477】Re:手で検索してみるとあるのに Jaka 06/7/14(金) 15:07 回答[未読]
【40479】Re:手で検索してみるとあるのに (・〜・) 06/7/14(金) 15:30 質問[未読]
【40483】Re:手で検索してみるとあるのに Jaka 06/7/14(金) 16:56 発言[未読]
【40488】Re:手で検索してみるとあるのに (・〜・) 06/7/14(金) 21:59 お礼[未読]
【40474】手で検索してみるとあるのに
質問  (・〜・)  - 06/7/14(金) 14:04 -
引用なし
パスワード
   Dim d As Variant, RowCounter3 As Variant
d = Workbooks("MC Data.xls").Worksheets("Und Fund").Range("C5:D110").Find(RTrim(Workbooks("MC NEW.xls").Worksheets("Fund").Range("C" & RowCounter3).Value), LookIn:=xlValues)

でデバッグしてみるとd=Nothingとなっています。
実は、Worksheets("Fund").Range("C" & RowCounter3).Valueの文字には後ろにスペースが含まれており、そのスペースを消した文字をWorkbooks("MC Data.xls").Worksheets("Und Fund")の中で編集/検索で検索してみるとちゃんと現れます。RTrimも使っているのに、何が悪いのでしょうか?
【40477】Re:手で検索してみるとあるのに
回答  Jaka  - 06/7/14(金) 15:07 -
引用なし
パスワード
   ▼(・〜・) さん：
>Dim d As range, RowCounter3 As Variant
>Set d = Workbooks("MC Data.xls").Worksheets("Und Fund").Range("C5:D110").Find(RTrim(Workbooks("MC NEW.xls").Worksheets("Fund").Range("C" & RowCounter3).Value), LookIn:=xlValues)

RowCounter3に数字が入っているものとして。
【40479】Re:手で検索してみるとあるのに
質問  (・〜・)  - 06/7/14(金) 15:30 -
引用なし
パスワード
   Jakaさん、お返事ありがとうございました。
すみません、書き込みするときに間違って消してしまったのですが、d =の前にSetもつけています。でもやっぱりうまくいきません。
Jakaさんと私の書き込みの違いは、Setがついているかいないかと、dのデータ型の違いだけですよね?
dをVariant型で定義しているのは、原因ではないですよね?
【40483】Re:手で検索してみるとあるのに
発言  Jaka  - 06/7/14(金) 16:56 -
引用なし
パスワード
   Variant型だとどんな具合になるのかよく解りません。
その時々に応じて変化するみたいだから....。
特に
Dim Cel as variant
For each Cel in range("A1:G10")

Next
なんてやっていると、変数Celがおかしな具合になる事もあります。

また、１度検索文字を変数に入れて、変数で検索した方がいいと思いますが....。
【40488】Re:手で検索してみるとあるのに
お礼  (・〜・)  - 06/7/14(金) 21:59 -
引用なし
パスワード
   Jakaさん、レスありがとうございました。
私の勘違いでした。デバッグしていて変数にデータが入ってくる直前の様子を見て勘違いしてたみたいです。
お騒がせしました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7220 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free