数组中的VBA随机元素，下标超出范围错误

Question

我是一个vba noob，所以对我很轻松。

我想在我的card_range_string数组中选择一个随机数组元素（参见random_type，最后一行）但是我得到一个“下标超出范围”错误。有什么不对？

Sub generate_random()
' generates a random card

Dim random_card As Long: random_card = Int(Math.Rnd * 13) + 1
Dim random_type As String
Dim random_symbol As Variant

Dim card_Range_string() As Variant: card_Range_string = Range("A1:A4").Value
Dim card_Range_symbol() As Variant: card_Range_symbol = Range("B1:B4").Value

random_type = card_Range_string(Int(Math.Rnd * 3))

End Sub

Answer 1

我解决了。记得阵列是二维的，所以我只是错过了拼出第二个维度。制作：random_type = card_Range_string（int（Math.Rnd * 4 + 1），1）解决问题