質問編集履歴
1
誤字修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
pasteWB.Range("H" & i) = Application.VLookup(pasteWB.Range("F" & i), copyWB.Worksheets("sheet1").Range("F4:J80"), 5, False)
|
|
12
12
|
|
|
13
13
|
★If pasteWB.Range("H" & i) = "#N/A" Then
|
|
14
|
-
pasteWB.Range("
|
|
14
|
+
pasteWB.Range("H" & i) = "0"
|
|
15
15
|
|
|
16
16
|
End If
|
|
17
17
|
Next
|
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
作成するブック（pasteWB）のF列数行に原料名を入力してマクロを動かします。
|
|
29
29
|
すると、対応する列の PasteWB のH列に原料名を完全一致で別ブック（copyWB）から原料名(F列)、金額（J列）が書かれたF4:J80の範囲で検索し、自動入力させるようにしたつもりです。
|
|
30
30
|
|
|
31
|
-
ここで、完全一致せずエラー表記（#N/A）
|
|
31
|
+
ここで、完全一致せずエラー表記（#N/A）になったものは、とりあえず"0"と表記させるためにif構文を用いたのですが、デバッグがなんたらと言われ、黄色で表示されてしまいます。
|
|
32
32
|
（今は"0"と表記するよう指示していますが、ゆくゆくは一部一致で検索し直し、類似する原料名候補を全部表示させて入力者が選択できるようにしたいです）
|
|
33
33
|
|
|
34
34
|
色々調べたつもりですが、ここでのif構文のエラーがなぜ出てくるのかが分かりません。
|