arrays - vaciar - vba destruir array

¿Cómo borrar toda la matriz?

Question

Tengo una matriz como esta:

Dim aFirstArray() As Variant

¿Cómo borro toda la matriz?
¿Qué tal una colección?

Answer 1

Encuentre un mejor uso para mí: generalmente pruebo si una variante está vacía y todos los métodos anteriores fallan con la prueba. Descubrí que puedes establecer una variante para vaciar:

Dim aTable As Variant
If IsEmpty(aTable) Then
''This is true
End If
ReDim aTable(2)
If IsEmpty(aTable) Then
''This is False
End If
ReDim aTable(2)
aTable = Empty
If IsEmpty(aTable) Then
''This is true
End If
ReDim aTable(2)
Erase aTable
If IsEmpty(aTable) Then
''This is False
End If

de esta manera obtengo el comportamiento que quiero

Answer 2

Es tan simple como:

Erase aFirstArray

Answer 3

Para eliminar una matriz dinámica en VBA, use la instrucción Erase .

Ejemplo:

Dim ArrayDin() As Integer
ReDim ArrayDin(10) ''Dynamic allocation
Erase ArrayDin ''Erasing the Array

¡Espero que esto ayude!

Answer 4

Puede usar las sentencias Erase o ReDim para borrar la matriz:

Dim threeDimArray(9, 9, 9), twoDimArray(9, 9) As Integer
Erase threeDimArray, twoDimArray
ReDim threeDimArray(4, 4, 9)

Vea el uso diferente de cada método aquí.

Actualizar

Para eliminar una colección, itere sobre sus elementos y use el método de remove :

For i = 1 to MyCollection.Count
MyCollection.Remove 1 '' Remove first item
Next i

Answer 5

Solo use la instrucción Redim

 Dim aFirstArray() As Variant
Redim aFirstArray(nRows,nColumns)

Answer 6

caí en un caso en el que se borraba toda la matriz con dim / redim:

tener 2 arrays de todo el módulo, Privado dentro de una forma de usuario,

Una matriz es dinámica y utiliza un módulo de clase, la otra es fija y tiene un tipo especial.

Option Explicit
Private Type Perso_Type
Nom As String
PV As Single ''Long ''max 1
Mana As Single ''Long
Classe1 As String
XP1 As Single
Classe2 As String
XP2 As Single
Classe3 As String
XP3 As Single
Classe4 As String
XP4 As Single
Buff(1 To 10) As IPicture ''Disp
BuffType(1 To 10) As String
Dances(1 To 10) As IPicture ''Disp
DancesType(1 To 10) As String
End Type
Private Data_Perso(1 To 9, 1 To 8) As Perso_Type
Dim ImgArray() As New ClsImage ''ClsImage is a Class module

Y tengo un sub declarado como público para borrar esas matrices (y los controles creados en tiempo de ejecución creados) desde dentro y fuera de la forma de usuario de esta manera:

Public Sub EraseControlsCreatedAtRunTime()
Dim i As Long
On Error Resume Next
With Me.Controls ''removing all on run-time created controls of the Userform :
For i = .Count - 1 To 0 Step -1
.Remove i
Next i
End With
Err.Clear: On Error GoTo 0
Erase ImgArray, Data_Perso
''ReDim ImgArray() As ClsImage '' i tried this, no error but wouldn''t work correctly
''ReDim Data_Perso(1 To 9, 1 To 8) As Perso_Type ''without the erase not working, with erase this line is not needed.
End Sub

nota: este último sub se llamó por primera vez desde fuera (otro módulo de clase y forma) con Call FormName.SubName pero tuvo que reemplazarlo por Application.Run FormName.SubName , menos errores, no preguntes por qué ...

Answer 7

[your Array name] = Empty

Entonces la matriz estará sin contenido y puede llenarse nuevamente.