回答編集履歴
1
キーが見つからなかった時に、見つからなかったキーを表示して、途中で終了するよう修正しました。
test
CHANGED
@@ -62,6 +62,8 @@
|
|
62
62
|
|
63
63
|
Dim dctRow整理番号 As Dictionary
|
64
64
|
|
65
|
+
Dim var整理番号 As Variant
|
66
|
+
|
65
67
|
|
66
68
|
|
67
69
|
Set wshHari = Worksheets("貼付用")
|
@@ -86,7 +88,17 @@
|
|
86
88
|
|
87
89
|
For lngRowHari = RowHari明細 To lngRowHariEnd
|
88
90
|
|
89
|
-
|
91
|
+
var整理番号 = wshHari.Cells(lngRowHari, ColHari出席番号).Value
|
92
|
+
|
93
|
+
If dctRow整理番号.Exists(var整理番号) = False Then
|
94
|
+
|
95
|
+
MsgBox var整理番号 & "が存在しません。", vbExclamation
|
96
|
+
|
97
|
+
GoTo s_setTenk_Exit
|
98
|
+
|
99
|
+
End If
|
100
|
+
|
101
|
+
lngRowTenk = dctRow整理番号.Item(var整理番号)
|
90
102
|
|
91
103
|
wshTenk.Cells(lngRowTenk, ColTenk園児名).Value = wshHari.Cells(lngRowHari, ColHari名前).Value
|
92
104
|
|
@@ -128,7 +140,11 @@
|
|
128
140
|
|
129
141
|
Next lngRowHari
|
130
142
|
|
143
|
+
|
144
|
+
|
131
|
-
|
145
|
+
s_setTenk_Exit:
|
146
|
+
|
147
|
+
|
132
148
|
|
133
149
|
Set dctRow整理番号 = Nothing
|
134
150
|
|