Question

我通常不使用VBA，而只是试图仔细检查某些值是否与某项相对，因此，我真的很感谢您的帮助。

我正在尝试使用MsgBox函数创建和打印数组。创建数组并将其填充到for循环中，该循环执行一些计算。

Dim NormalLeafDoseVals(0 To 30) As Double
        Dim i As Long
        NormalLeafDoseVals(i) = dCurrRdgI
        i = i + 1

因此，每次进行计算时，我都想将新值添加到名为NormalLeafDoseVals的数组中。然后在for循环之后，我想查看整个数组，所以我把：

MsgBox ("Normalised Leaf Dose Values: " & NormalLeafDoseVals())

出现的错误消息显示“类型不匹配”，并在NormalLeafDoseVals（）之前突出显示与号。

我们将不胜感激。

Answer 1

我将声明更改为Variant并使用了join函数：

Dim NormalLeafDoseVals(0 To 30) As Variant
    Dim i As Long
    NormalLeafDoseVals(i) = dCurrRdgI
    i = i + 1
MsgBox ("Middle Leaf Dose Value: " & dLeaf20RdgI & Chr$(13) & "Normalised Leaf Dose Values: " & vbLf & Join(NormalLeafDoseVals, vbLf))

使用MsgBox函数在VBA中打印数组

1 个答案: