请求编写VBA代码过滤图表分类，取消选择未抵达月份

问题分析 #

你之前尝试的TickLabelSpacing属性仅用于设置分类标签的显示间隔（比如设为3会显示1、4、7、10月），无法实现仅保留前N个月份的需求。以下提供两种可行的VBA方案，可根据你的实际场景选择：

方案1：隐藏数据点与分类标签（保留完整数据源） #

此方法不修改图表数据源，仅将未来月份对应的数据点和标签设为不可见：

Sub HideFutureMonthPoints()
    Dim targetChart As Chart
    Dim dataSeries As Series
    Dim monthsPassed As Integer
    Dim pointIndex As Integer
    
    ' 读取已过月数
    monthsPassed = Worksheets("Database").Range("BG32").Value
    
    ' 定位目标图表（可替换为Sheets("Sheet1").ChartObjects("Chart 1").Chart指定特定图表）
    Set targetChart = ActiveChart
    
    ' 遍历所有数据系列，隐藏超出月份的点
    For Each dataSeries In targetChart.SeriesCollection
        For pointIndex = monthsPassed + 1 To 12
            dataSeries.Points(pointIndex).Format.Visible = msoFalse
        Next pointIndex
    Next dataSeries
    
    ' 隐藏对应分类轴标签
    With targetChart.Axes(xlCategory)
        For pointIndex = monthsPassed + 1 To .CategoryNames.Count
            .TickLabels(pointIndex).Visible = False
        Next pointIndex
    End With
End Sub

方案2：直接更新图表数据源（仅保留已过月份） #

此方法修改图表数据源范围，仅包含1至已过月数的月份数据，效果更彻底：

Sub UpdateChartDataRange()
    Dim targetChart As Chart
    Dim monthsPassed As Integer
    Dim newSourceRange As Range
    
    monthsPassed = Worksheets("Database").Range("BG32").Value
    
    ' 定位目标图表
    Set targetChart = ActiveChart
    
    ' 假设月份数据在Database表的A列，对应数值在B列，起始行是第1行
    Set newSourceRange = Worksheets("Database").Range("A1:B" & 1 + monthsPassed)
    
    ' 更新图表数据源
    targetChart.SetSourceData Source:=newSourceRange
End Sub

注意事项 #

• 确保图表分类轴恰好按顺序包含1-12月标签，否则需调整循环索引逻辑
• 若使用方案1，后续需恢复显示时，可将msoFalse改为msoTrue重新运行代码
• 若图表存在多个数据系列，方案1会统一处理所有系列的对应月份点

内容的提问来源于stack exchange，提问作者Liuchess