回答編集履歴
1
キーが見つからなかった時に、見つからなかったキーを表示して、途中で終了するよう修正しました。
answer
CHANGED
|
@@ -30,6 +30,7 @@
|
|
|
30
30
|
Dim lngDay As Long
|
|
31
31
|
Dim dat降校時刻 As Date
|
|
32
32
|
Dim dctRow整理番号 As Dictionary
|
|
33
|
+
Dim var整理番号 As Variant
|
|
33
34
|
|
|
34
35
|
Set wshHari = Worksheets("貼付用")
|
|
35
36
|
Set wshTenk = Worksheets("転記")
|
|
@@ -42,7 +43,12 @@
|
|
|
42
43
|
|
|
43
44
|
lngRowHariEnd = wshHari.Cells(wshHari.Rows.Count, ColHari出席番号).End(xlUp).Row
|
|
44
45
|
For lngRowHari = RowHari明細 To lngRowHariEnd
|
|
45
|
-
|
|
46
|
+
var整理番号 = wshHari.Cells(lngRowHari, ColHari出席番号).Value
|
|
47
|
+
If dctRow整理番号.Exists(var整理番号) = False Then
|
|
48
|
+
MsgBox var整理番号 & "が存在しません。", vbExclamation
|
|
49
|
+
GoTo s_setTenk_Exit
|
|
50
|
+
End If
|
|
51
|
+
lngRowTenk = dctRow整理番号.Item(var整理番号)
|
|
46
52
|
wshTenk.Cells(lngRowTenk, ColTenk園児名).Value = wshHari.Cells(lngRowHari, ColHari名前).Value
|
|
47
53
|
If wshHari.Cells(lngRowHari, ColHari降校時刻).Value <> "" Then
|
|
48
54
|
lngDay = Day(wshHari.Cells(lngRowHari, ColHari日付).Value)
|
|
@@ -63,7 +69,9 @@
|
|
|
63
69
|
End Select
|
|
64
70
|
End If
|
|
65
71
|
Next lngRowHari
|
|
72
|
+
|
|
66
|
-
|
|
73
|
+
s_setTenk_Exit:
|
|
74
|
+
|
|
67
75
|
Set dctRow整理番号 = Nothing
|
|
68
76
|
Set wshTenk = Nothing
|
|
69
77
|
Set wshHari = Nothing
|