您想要的可以使用折线图来实现。无需 VBA。
这是一个基本示例。
免责声明: 这是一个非常基本的例子。您必须修改它以满足您的需要。
假设您的工作表中有如下所示的日期。
按着这些次序
1. Enter 1
在细胞中G2:L2
2.选择单元格G2:L2
。点击Insert
选项卡并插入折线图
3.通过选择删除网格线、图表标题和图表轴。
4.将填充设置为No Fill
和边界为No Line
5.选择线条并设置标记属性,如下所示
6.右键单击图表并单击Select Data
7.点击Hidden and Empty cells
8.选择如下对话框中所示的选项。点击OK
。点击OK
再次关闭第二个对话框
9.输入公式=IFERROR(MATCH(G1,$B$2,0),NA())
在细胞内G2
10.输入公式=IFERROR(MATCH(H1,$B$3,0),NA())
在细胞内H2
并将其复制到最后一个单元格。在我们的例子中是L2
。您的工作表将如下所示
11.更改单元格的字体颜色G2:L2
变白
12.接下来输入开始日期和结束日期。你会注意到这条线
13.执行基本格式设置并调整图表,使标记位于单元格的中心。
你就完成了。
行动中