VBA 生成 6 条不同向上曲线的坐标系图表

以下是 VBA 代码示例，可以生成一个包含 6 条不同向上曲线的图表：

Sub CreateChart()

    '定义变量
    Dim cht As Chart
    Dim srs(1 To 6) As Series
    Dim xValues(1 To 100) As Double
    Dim yValues(1 To 100) As Double
    Dim i As Integer
    
    '创建新图表
    Set cht = Charts.Add
    
    '设置图表样式
    With cht
        .ChartType = xlXYScatterLines
        .HasTitle = True
        .ChartTitle.Text = '坐标系数据'
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Text = '横坐标'
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Text = '纵坐标'
    End With
    
    '生成 6 条不同的向上曲线
    For i = 1 To 6
        '生成 x 和 y 轴数据
        GenerateData xValues, yValues
        
        '创建新的数据系列
        Set srs(i) = cht.SeriesCollection.NewSeries
        
        '设置数据系列的值
        With srs(i)
            .Name = '曲线' & i
            .Values = yValues
            .XValues = xValues
            .MarkerStyle = xlMarkerStyleCircle
            .Format.Line.Weight = 2
        End With
    Next i
    
End Sub

'生成 x 和 y 轴数据的函数
Sub GenerateData(xValues As Variant, yValues As Variant)
    
    Dim i As Integer
    
    '生成 x 轴数据
    For i = 1 To 100
        xValues(i) = i / 20
    Next i
    
    '生成 y 轴数据
    For i = 1 To 100
        yValues(i) = 3.5 * (1 - Exp(-0.8 * xValues(i) * i / 100)) * Rnd + i / 10
    Next i
    
End Sub

在上述代码中，我们首先创建了一个新的图表，并设置了图表的样式和标题。接下来，我们通过循环生成了 6 条不同的向上曲线的数据，并将它们添加到图表中。在生成数据的过程中，我们使用了随机数来使得每条曲线看起来都略微不同。最后，我们对每条曲线进行了一些简单的格式设置，比如设置数据系列的线条粗细和标记样式等。当我们运行这个代码时，就会生成一个包含 6 条不同向上曲线的图表，如下所示：

代码功能说明：

CreateChart() 子程序:
- 创建新的图表。
- 设置图表类型为散点图（xlXYScatterLines）。
- 添加图表标题并设置坐标轴标题。
- 生成 6 条曲线并添加到图表中。
GenerateData() 子程序:
- 生成 x 轴数据，范围为 0 到 5.5。
- 生成 y 轴数据，范围为 0 到 3.5，使用随机数来创建不同形状的曲线。

代码使用说明：

将代码复制到 VBA 编辑器中。
运行 CreateChart() 子程序，即可生成包含 6 条不同向上曲线的图表。

注意:

此代码示例使用随机数生成曲线数据，因此每次运行生成的图表都会略微不同。
可以调整代码中的参数，例如曲线数量、数据范围等，以生成不同的图表效果。
该图表使用 Excel 的默认颜色，可以根据需要修改数据系列的格式设置，例如线条颜色、标记样式等。
此代码仅供参考，实际应用中可能需要根据具体情况进行调整和完善。