初始化和调用变量答案

【问题标题】：Initialize and call variables初始化和调用变量
【发布时间】：2020-07-21 06:09:15
【问题描述】：

我正在尝试使用 Visual Basic 在 Excel 中创建一个宏。当我尝试调用我的变量时遇到了问题。我以前从未在 Visual Basic 中编写过代码，所以我不确定我是否正确初始化和调用了所有变量。

这是我正在使用的代码：

Sub Graphing2()
'
' Graphing2 Macro
'

'
    Dim a, b, y, x As Long
    a = 176
    b = 126
    y = 3
    x = 0
    Do While x < 225
    ActiveSheet.ChartObjects("Chart 1").Activate
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).Name = "=""Unit y"""
    ActiveChart.FullSeriesCollection(2).XValues = "=Sheet1!$B$a:$B$b"
    ActiveChart.FullSeriesCollection(2).Values = "=Sheet1!$E$a:$E$b"
    x = x + 1
    y = y + 1
    a = a + 67
    b = b + 67
    Loop
End Sub

有关如何初始化然后调用变量的任何帮助都会有所帮助。谢谢

【问题讨论】：

标签： excel vba initialization declare

【解决方案1】：

未经测试，但这里有一些指针：

Sub Graphing2()
    'must specify type for each variable....
    Dim a As Long, b As Long, y As Long, x As Long
    Dim cht As Chart 'declare a chart variable
    
    a = 176
    b = 126
    y = 3
    
    Set cht = ActiveSheet.ChartObjects("Chart 1").Chart
    
    'user a For Next loop for fixed sequences
    For x = 0 To 244
        
        With cht.SeriesCollection.NewSerie 'NewSeries returns the added series
            'concatenate your variables
            .Name = "Unit " & y
            .XValues = "=Sheet1!$B$" & a & ":$B$" & b
            .Values = "=Sheet1!$E$" & a & ":$E$" & b
        End With
        
        y = y + 1
        a = a + 67
        b = b + 67
    Next x
End Sub

【讨论】：

我认为 excel 没有“NewSeries”方法。因为它说没有找到该方法。