回答編集履歴
1
修正
test
CHANGED
|
@@ -30,6 +30,8 @@
|
|
|
30
30
|
|
|
31
31
|
For i = 2 To UBound(arr, 1)
|
|
32
32
|
|
|
33
|
+
If arr(i, 1) = wName And arr(i, 6) <= wMonth And wMonth <= arr(i, 7) Then
|
|
34
|
+
|
|
33
35
|
buf = buf & Join(Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6)), "|") & vbLf
|
|
34
36
|
|
|
35
37
|
End If
|