1

我正在寻找一些 VBA 代码,它可以根据最早检测到的日期和分配多个预定义值中的一个来自动化图表中 x 轴的固定最小值。

我正在处理大量数据,其中可用数据的开始日期经常变化。

是否可以检测 x 轴中最早的年份值并应用预定的开始日期?

例如,如果数据从 2002 年 5 月 4 日开始,代码将读取 x 轴范围内的最小值为 04/05/2002,检测到“2002”并将最小 x 轴值设置为“37258”与 Excel 日期编号系统中的 2002 年 1 月 1 日相对应。

如果数据从 2008 年年中开始可用,它会再次将 x 轴中的最小值设置为“39449”以适应 01/01/2008。

4

1 回答 1

3
ActiveChart.Axes(xlValue).MinimumScale = dateserial(year(ActiveChart.Axes(xlValue).MinimumScale),1,1)

这会查看图表,从中获取年份,然后将开始设置为该年的 1/1。

于 2012-08-02T16:15:43.597 回答