Excel VBA質問箱 IV

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

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


14513 / 76738 ←次へ | 前へ→

【67715】If〜and のエラー
質問  Hirota E-MAIL  - 11/1/3(月) 13:47 -

引用なし
パスワード
   (ご質問)
If A and B and C then, 〜 end ifの条件文でデータ抽出試みていますが、エラーメッセージ"型が合いません"が表示されます。下記に構文を記載しておりますのでなにか間違いがありましたらご教示頂けますと大変助かります。


よろしくお願い致します。
====================================================================
Sub PCOのDESデータ抽出()

Dim i As Variant ' PCO海外資材発注書のデータ検索行の変数
Dim cnt As Variant ' PCO-ESTワークシート表の先頭行(3行目)

cnt = 4

For i = 4 To 100

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

Worksheets(7).Cells(cnt, 1).Value = Worksheets(5).Cells(i, 1).Value ' PO NO
Worksheets(7).Cells(cnt, 2).Value = Worksheets(5).Cells(i, 2).Value ' Goods
Worksheets(7).Cells(cnt, 3).Value = Worksheets(5).Cells(i, 6).Value ' Term
Worksheets(7).Cells(cnt, 4).Value = Worksheets(5).Cells(i, 8).Value ' KG
Worksheets(7).Cells(cnt, 5).Value = Worksheets(5).Cells(i, 15).Value 'ETD
Worksheets(7).Cells(cnt, 6).Value = Worksheets(5).Cells(i, 18).Value 'ETA
Worksheets(7).Cells(cnt, 7).Value = Worksheets(5).Cells(i, 20).Value 'NGT
Worksheets(7).Cells(cnt, 8).Value = Worksheets(5).Cells(i,26).Value 'Unit Price

cnt = cnt + 1 '「明細書」ワークシート表のコピー先の行を一つ進める

End If
Next i

MsgBox ("データ抽出完了")

END SUB
========================================================================

0 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 お礼

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