VBA：使用自定义类型将变量传递给 sub()

Question

我正在调用 sub() 但不断收到“未定义用户定义类型”错误。在尝试了将变量声明为数组的不同方法后无法弄清楚。希望有任何指导：

Public Type Whatever
    ppp As String
    qqq As Long
    rrr As Single
End Type




Sub isthisworking()
 Dim thisis() As Whatever
 Dim i As Long
 Dim athing As Long

 For i = 0 To 5
    With thisis(i)
        .ppp = i & "p"
        .qqq = i * 2
        .rrr = i ^ 3
    End With

 athing = 20

 beingcalled thisis(), athing

End Sub



Public Sub beingcalled(ByRef thisis() As Whatever, athing As Long)

 Dim cycles As Long

 cycles = UBound(thisis)

 For i = 0 To cycles - 1
    With thisis(i)
        Debug.Print i & ": " & .ppp & "," & .qqq & "," & .rrr
    End With
 Next


End Sub

Answer 1

您的 For i = 0 To 5 缺少结束 Next i 语句。

你需要Redim你的thisis()数组的大小：

ReDim thisis(o To 5)

整个“isthisworking”子：

Sub isthisworking()

Dim thisis() As Whatever
Dim i As Long
Dim athing As Long

ReDim thisis(o To 5)

For i = 0 To 5
   With thisis(i)
       .ppp = i & "p"
       .qqq = i * 2
       .rrr = i ^ 3
   End With
Next i

athing = 20

beingcalled thisis(), athing    
' you can pass also thisis (without the brackets) gives the same result

End Sub