回答編集履歴
1
誤記とコメントの修正
test
CHANGED
|
@@ -40,21 +40,23 @@
|
|
|
40
40
|
|
|
41
41
|
```VBA
|
|
42
42
|
|
|
43
|
-
'検索シリアルの入ったセル参照
|
|
43
|
+
'検索元データ(購入者履歴シリアル)の入ったセル参照
|
|
44
44
|
|
|
45
45
|
Set myselect = Cells(i, 3)
|
|
46
46
|
|
|
47
|
-
'
|
|
47
|
+
'検索元データを行分割し、要素毎にループ
|
|
48
48
|
|
|
49
49
|
For Each tmp In Split(myselect.Value, vbLf)
|
|
50
50
|
|
|
51
|
+
'在庫シートからシリアルを検索
|
|
52
|
+
|
|
51
53
|
Set c = wb.Sheets("sheet1").Cells.Find(what:=tmp, LookAt:=xlWhole)
|
|
52
54
|
|
|
53
|
-
'
|
|
55
|
+
'対象のシリアルが見つかったか
|
|
54
56
|
|
|
55
57
|
If Not c Is Nothing Then
|
|
56
58
|
|
|
57
|
-
'見つかったセルの左側のセルに
|
|
59
|
+
'見つかったシリアルセルの左側のセルに、購入者履歴シリアルセルの左側のセルの値をセット
|
|
58
60
|
|
|
59
61
|
c.Offset(0, -1).Value = myselect.Offset(0, -1).Value
|
|
60
62
|
|
|
@@ -64,4 +66,4 @@
|
|
|
64
66
|
|
|
65
67
|
```
|
|
66
68
|
|
|
67
|
-
要素毎のループは```For Each```で、セルの左側のセル参照には```Off
|
|
69
|
+
要素毎のループは```For Each```で、セルの左側のセル参照には```Offset```を使用しています。詳細はヘルプなどをご覧ください。
|