回答編集履歴
1
バグ修正
answer
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
x = 1
|
|
20
20
|
For Each ob In mf.Items
|
|
21
|
-
If ob.Start >
|
|
21
|
+
If ob.Start > (#7/1/2020# - 1) And ob.Start < (#7/7/2020# + 1) Then
|
|
22
22
|
strret = Format(ob.Start, "yyyy/mm/dd") & Space(3) _
|
|
23
23
|
& Format(ob.Start, "hh:mm") & Space(3) & ob.Subject & vbCrLf
|
|
24
24
|
ActiveCell.Offset(x, 1).Value = strret
|