SAP Consultant - Improve myself everyday 每天进步一点

Sub fillweeks()For i = 73 To 1200If Weekday(CDate(Cells(1, i)), vbMonday) = 1 And Weekday(CDate(Cells(1, i + 1)), vbMonday) = 1 Thenj = 0For h = 1 To 6Columns(i + h).Insert Shift:=xlToRightCell...

1.优化甘特图填色2.增加工作日统计Sub fillcolor()'开始到结束行For i = 3 To 71'清除填充色For j = 11 To 169If Cells(i, j).Interior.Color <> 14277081 ThenCells(i, j).Interior.Color = 16777215End IfNext'工作日清0...