Excel VBA質問箱 IV

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

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


14511 / 76738 ←次へ | 前へ→

【67717】Re:If〜and のエラー
質問  Hirota E-MAIL  - 11/1/3(月) 15:03 -

引用なし
パスワード
   かみちゃん様

早速のご返答ありがとうございます。
説明不足で申し訳ございません....

エラーが出るのは、下記構文になります。
-----------------------------------------------------------------
If Sheets(5).Cells(i, 18).Value = Sheets(5).Cells(1, 13).Value _
And Sheets(5).Cells(i, 20).Value = Sheets(5).Cells(1, 14).Value _
And Sheets(5).Cells(i, 6).Value = "○" Then
------------------------------------------------------------------
上記一行づつテストしましたところ、(Sheets(5).Cells(i, 6).Value = "○")
は、式どおりにデータが抽出されましたが、下記2式が、
Sheets(5).Cells(i, 18).Value = Sheets(5).Cells(1, 13).Value
Sheets(5).Cells(i, 20).Value = Sheets(5).Cells(1, 14).Value
自分が思うとおりにデータが抽出されません.... (いちぶんずつ試しましたが
データが全く抽出されませんでした。)

また4行目〜100行目の6,13,14,18,20列にどのセルにもエラーとなる
ものはありませんでした。

同様のVBAは、過去にも数回作成したことがあるのですが、なぜか今回思う
ように行きません...

もしご迷惑でないようでしたら、私のG-mailよりかみちゃん様にexcelファイルを
お送りさせて頂き、拝見頂けましたら大変助かります。

私のG-mail addressは、ht7750@gmail.comになります。こちらにかみちゃん様
より空メールお送り頂けましたら、そのメールに添付しお送り致します。

よろしくお願い致します。
                 Hirota


▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>If A and B and C then, 〜 end ifの条件文でデータ抽出試みていますが、エラーメッセージ"型が合いません"が表示されます。
>
>どこのコードでエラーが出ているのでしょうか?
>
>左から5番目のシートの
>4行目〜100行目の6列め、13列め、14列め、18列め、20列めのいずれかのセルの値が
>エラーとなっているセルはありませんか?

1 hits

【67715】If〜and のエラー Hirota 11/1/3(月) 13:47 質問
【67716】Re:If〜and のエラー かみちゃん 11/1/3(月) 13:52 発言
【67717】Re:If〜and のエラー Hirota 11/1/3(月) 15:03 質問
【67718】Re:If〜and のエラー かみちゃん 11/1/3(月) 16:57 発言
【67719】Re:If〜and のエラー UO3 11/1/3(月) 18:18 発言
【67720】Re:If〜and のエラー かみちゃん 11/1/3(月) 18:26 発言
【67721】Re:If〜and のエラー UO3 11/1/3(月) 20:54 発言
【67727】Re:If〜and のエラー Hirota 11/1/4(火) 22:20 お礼

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