主题：[求助]如何在甘特图中将所有红色或绿色的行筛选集中

很简单，做个按钮，代码为：

Dim d As Date = Date.Today
Tables("任务").Filter = "开始日期 <= #" & d & "# And 结束日期 >=  #" & d & "#"