小编Ami*_*mir的帖子

我正在使用一个Function来创建一个数组.输入也是一个数组.运行时它给我一个invalid ReDim编译错误.在此之前在子例程中运行并且ReDim运行良好但现在我在函数中更改了它并且它给出了invalid ReDim编译错误.我在这里错过了什么？

提前致谢!阿米尔

Public Function bmhussel(filemx As Variant)

rijaantal = UBound(filemx, 1)
kolomaantal = UBound(filemx, 2)


ReDim bmhussel(1 To rijaantal + 1, 1 To kolomaantal + 1)

For i = 1 To rijaantal
    bmhussel(i, 1) = filemx(i, 1)
    bmhussel(i, 2) = filemx(i, 3)
    bmhussel(i, 3) = filemx(i, 5)
    bmhussel(i, 4) = filemx(i, 28)
    bmhussel(i, 5) = bucket(filemx(i, 28)) 'buckets maken
next i

End Function

我想用已知的数组制作一个图表.以下代码正在运行:

 Sub arraychart()
  Dim cht As Object
  Dim hhh As Variant

 Set cht = ActiveSheet.ChartObjects.Add(Left:=300, Width:=300, Top:=10, Height:=300)
 With cht

 .Chart.SetSourceData Source:=Sheets("Data").Range("a1:d29")
 .Chart.Type = xlLine
 .Left = 350
 .Width = 400
 .Top = 30
 .Height = 200

 End With
 End Sub

但我想使用数组array1 = Sheets("Data").Range("a1:d29")而不是

  .Chart.SetSourceData Source:=Sheets("Data").Range("a1:d29")

我怎么能这样编码？谢谢!