前面的口袋数组中的数据正在被删除

Question

Dim n As Integers
Public AAA() As Integer
Public QQQ() As String

Sub Initialise()
n = 0
End Sub

Sub WrongAnswer(oShape As Shape)
A = oShape.TextEffect.Text
SendWrongAnswer
End Sub

Sub SendWrongAnswer()
ReDim QQQ(500)
QQQ(n) = Q

ReDim AAA(500)
AAA(n) = A

n = (n) + 1
End Sub

当我制作数组AAA()和QQQ()并将数据存储在口袋中时，较早的口袋中的数据变为“0”或“”。

如果AAA(1) = 50然后当宏存储AAA(2) = 34时，则AAA(1)变为0。

Answer 1

将 ReDim 语句移动到 Sub Initialise 方法然后它将起作用。

Sub Initialise()
n = 0
ReDim AAA(500)
ReDim QQQ(500)
End Sub

编辑：如果您想在重新调整现有数据时保留现有数据，请使用 preserve 关键字。

ReDim Preserve AAA(500)

前面的口袋数组中的数据正在被删除

Data in Array of earlier pocket is being deleted

powerpoint

vba