VBA中If/ElseIf仅首个条件生效求助（图表轴动态设置场景）

首先，咱们先拆解你代码里的核心问题：你现在是逐个遍历单元格并直接修改坐标轴，这种逻辑会导致每次判断都覆盖之前的设置，而且如果只有第一个单元格满足首个If条件，后面的单元格都不满足任何条件的话，坐标轴就会停留在第一次的设置上，看起来就像只有首个If生效了。另外，双坐标轴场景下如果没明确指定主次轴，也可能导致修改的不是你预期的坐标轴。

问题根源分析 #

• 循环逻辑错误：遍历每个单元格时直接修改坐标轴，而非先找出整个区域的极值（最小/最大值）再统一设置。单个单元格的判断无法代表整个数据集的范围，而且后续无匹配条件的单元格不会重置之前的设置。
• 坐标轴对象不明确：双坐标轴需要指定xlPrimary（主轴）或xlSecondary（次轴），如果你的代码里省略了这个参数，可能修改的不是目标坐标轴。
• 条件判断的局限性：逐个单元格的If/ElseIf无法基于整体数据范围调整坐标轴，只能对单个单元格的情况做出反应，逻辑上不符合“根据整个区域值调整坐标轴”的需求。

修正后的代码 #

下面是重构后的代码，先获取目标区域的极值，再根据极值范围设置双坐标轴的边界：

Sub Pyramid()
    Dim cht As Chart
    Dim targetRange As Range
    Dim minVal As Double, maxVal As Double
    
    ' 绑定目标图表
    Set cht = Worksheets("AP-Chart").ChartObjects("Chart 4").Chart
    ' 绑定目标数据区域
    Set targetRange = Worksheets("AP-Chart").Range("C3:D11")
    
    ' 获取区域的最小和最大值
    minVal = WorksheetFunction.Min(targetRange)
    maxVal = WorksheetFunction.Max(targetRange)
    
    ' 设置主坐标轴（假设是左侧Y轴）的范围
    With cht.Axes(xlValue, xlPrimary)
        If minVal < -15 Then
            .MinimumScale = -20 ' 根据需求调整边界值
        ElseIf minVal < -10 Then
            .MinimumScale = -15
        Else
            .MinimumScale = WorksheetFunction.RoundDown(minVal, 0) ' 自动向下取整适配数据
        End If
        
        ' 同理设置最大值边界，可根据你的需求调整条件
        If maxVal > 15 Then
            .MaximumScale = 20
        ElseIf maxVal > 10 Then
            .MaximumScale = 15
        Else
            .MaximumScale = WorksheetFunction.RoundUp(maxVal, 0)
        End If
    End With
    
    ' 如果需要设置次坐标轴（右侧Y轴），复用类似逻辑即可
    With cht.Axes(xlValue, xlSecondary)
        ' 这里可根据次轴对应数据集单独调整，比如留10%的余量
        .MinimumScale = WorksheetFunction.RoundDown(minVal * 1.1, 0)
        .MaximumScale = WorksheetFunction.RoundUp(maxVal * 1.1, 0)
    End With
End Sub

关键改进点 #

• 先获取极值再判断：通过WorksheetFunction.Min和Max获取整个区域的最值，确保坐标轴范围适配所有数据，而非单个单元格。
• 明确指定坐标轴：用xlPrimary和xlSecondary区分主次坐标轴，避免修改错误的轴。
• 逻辑更清晰：通过With语句简化坐标轴设置，条件判断基于整体数据范围，不会出现单个单元格覆盖设置的问题。

额外提示 #

如果你的双坐标轴对应不同的数据集（比如C列对应主轴，D列对应次轴），可以分别获取C列和D列的极值，再单独设置各自的坐标轴范围，这样会更精准。

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