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