Question

excel vba 数组下标越界

不知道问题出在哪里,请多多指教
详细代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Worksheets("sheet1").Range("H3") And Target.Value > 0 Then
Dim ll() As Variant
ll = Worksheets("sheet2").Range("A5:AD5").Value
[b37] = ll([h3]) * [F3] / 10000
End If
End Sub
A5:AD5是浮点,我的excel2003
加了application.transpose还是越界

Answer 1

把这句：
[b37] = ll([h3]) * [F3] / 10000
改成这句：
[b37] = ll(1, [h3]) * [F3] / 10000

Answer 2

这样输入的其实是个二维数组，你用TRANSPOSE 转换一下

把 ll = Worksheets("sheet2").Range("A5:AD5").Value 这句改成

ll = application.transpose（Worksheets("sheet2").Range("A5:AD5").Value）

看看可以不