回答編集履歴
1
修正
answer
CHANGED
|
@@ -14,6 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
Dim i, buf
|
|
16
16
|
For i = 2 To UBound(arr, 1)
|
|
17
|
+
If arr(i, 1) = wName And arr(i, 6) <= wMonth And wMonth <= arr(i, 7) Then
|
|
17
18
|
buf = buf & Join(Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6)), "|") & vbLf
|
|
18
19
|
End If
|
|
19
20
|
Next
|