質問編集履歴
1
コード更新後の写真を入れました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,7 +58,7 @@
|
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
61
|
-
If ws01.Cells(I, "B") Like "[" & kensaku & "]*"
|
|
61
|
+
If ws01.Cells(I, "B") Like "[[]" & kensaku & "[]]*"Then'シート「転記前総データ」から指定した材質に該当するデータを検索する。
|
|
62
62
|
|
|
63
63
|
ws02.Range("A" & mRow & ":P" & mRow).Value = ws01.Range("A" & I & ":P" & I).Value '検索条件に該当する材質をシート「成分（2020年1月1日~)」に転記する
|
|
64
64
|
|