初始化数组

我有一个数组，应该为Excel的整个生命保持不变的值。 我得到错误“无效的外部过程”，而我试图用数字初始化我的数组：

Public Aone(1 To 9) As Variant Aone = Array(0.47589, 0.23795, 0.16656, 0.16656, 0.03569, 0.04759, 0.00119, 0.00119, 0.00119) 

Answer 1

以及最后得到一个解决scheme

作为@ASHbuild议，但几乎没有转折：

在“ThisWorkbook”模块

 Sub Workbook_Open() Aone(1) = 0.47589 Aone(2) = 0.23795 Aone(3) = 0.16656 Aone(4) = 0.16656 Aone(5) = 0.03569 Aone(6) = 0.04759 Aone(7) = 0.00119 Aone(8) = 0.00119 Aone(9) = 0.00119 

谢谢你们

Answer 2

在模块Module1中

 Private ar As Variant Function Aone(idx As Integer) As Double On Error GoTo FillArray Aone = ar(idx) Exit Function FillArray: ar = Array(0.47589, 0.23795, 0.16656, 0.16656, 0.03569, 0.04759, 0.00119, 0.00119, 0.00119) Aone = ar(idx) End Function