Excel 项目计划 project timeline 甘特图填色

最新推荐文章于 2024-08-19 10:50:31 发布

Vince Chang

最新推荐文章于 2024-08-19 10:50:31 发布

阅读量2.4k

点赞数

分类专栏：杂项

本文链接：https://blog.csdn.net/zeewjj/article/details/104151422

版权

杂项专栏收录该内容

2 篇文章 0 订阅

订阅专栏

1.优化甘特图填色

2.增加工作日统计

Sub fillcolor()
'开始到结束行
For i = 3 To 71
'清除填充色
For j = 11 To 169
If Cells(i, j).Interior.Color <> 14277081 Then
Cells(i, j).Interior.Color = 16777215
End If
Next

'工作日清0
wd = 0
'开始到结束列
For j = 11 To 169
'周末是浅灰色，所以周末不能填色
If Cells(i, j).Interior.Color <> 14277081 Then
'当前列的日期 在某个范围内
If Cells(2, j) >= Cells(i, 4) And Cells(2, j) <= Cells(i, 5) Then
'工作日+1
wd = wd + 1
'如果取色的位置是白色
If Cells(i, 3).Interior.Color = 16777215 Then
'单元格填充浅蓝
Cells(i, j).Interior.Color = 15773696
Else
'其他用取到的颜色填充
Cells(i, j).Interior.Color = Cells(i, 3).Interior.Color
End If
End If
End If
Next
'填充工作日
Cells(i, 6) = wd
Next
End Sub