VBA:基于两个单元格值设置范围(图表)

Sub SetChartRange()
    Dim rng As Range
    Dim value1 As Variant
    Dim value2 As Variant
    
    ' 获取两个单元格的值
    value1 = Range("A1").Value
    value2 = Range("B1").Value
    
    ' 判断条件并设置范围
    If value1 > value2 Then
        ' 设置范围为A1:B1
        Set rng = Range("A1:B1")
    Else
        ' 设置范围为A2:B2
        Set rng = Range("A2:B2")
    End If
    
    ' 创建图表并设置数据源范围
    Dim chart As Chart
    Set chart = ActiveSheet.Shapes.AddChart2(240, xlColumnClustered).Chart
    chart.SetSourceData rng
    
    ' 可以根据需要进一步设置图表的样式、标题等
    
End Sub