VBA 数组不起作用？

Question

我有这个练习文件，其中包含 5 个订单价格。目标是为每条记录添加 20 美元，并有一个消息框来显示结果。

这是数据:

我的代码是这样的:

Sub TotalDelivery()
Dim curDelCharge As Currency
Dim curTotal(4)

Dim i As Integer

Worksheets("Sheet1").Range("B10").Activate

Const curDelCharge = 20

For i = 0 To 4

curTotal(i) = ActiveCell.Offset(i, 1).Value + curDelCharge

MsgBox (curTotal(i))

Next i
End Sub

但是消息框仅显示 20，这只是我的 curDelCharge 值。

为了调试，我将 msgbox 代码更改为: MsgBox(ActiveCell.Offset(i, 1).Value)

返回值为空，这意味着代码未读取我的 ActiveCell 值。这是为什么？

提前致谢!

Answer 1

这一行:

curTotal(i) = ActiveCell.Offset(i, 1).Value + curDelCharge

应该是:

curTotal(i) = ActiveCell.Offset(i, 0).Value + curDelCharge

输入“1”会将偏移量 1 的列向右移动，这是您不希望看到的。