回答編集履歴
1
'Event Lists1行出力の最初の1行目を削除しました。
test
CHANGED
@@ -128,7 +128,6 @@
|
|
128
128
|
|
129
129
|
'Event Lists1行出力
|
130
130
|
Private Sub put_event(ByVal msdate As Long, ws As Worksheet, ByVal wrow As Long, ws3 As Worksheet, wrow3 As Long)
|
131
|
-
ws3.Range("A" & wrow3).Resize(, 2).Value = ws.Range("A" & wrow).Resize(, 2).Value '日付と曜日
|
132
131
|
ws3.Cells(wrow3, "A").Value = msdate '日付
|
133
132
|
ws3.Cells(wrow3, "B").Value = ws.Cells(wrow, "L").Value '曜日
|
134
133
|
ws3.Cells(wrow3, "C").Value = ws.Cells(wrow, "P").Value '時刻
|