VBA - Fonction d'effacement

La fonction Effacer est utilisée pour réinitialiser les valeurs des tableaux de taille fixe et libérer la mémoire des tableaux dynamiques. Il se comporte en fonction du type de tableaux.

Syntaxe

Erase ArrayName
  • Tableau numérique fixe, chaque élément d'un tableau est remis à zéro.
  • Tableau de chaînes fixe, chaque élément d'un tableau est réinitialisé à la longueur zéro "".
  • Tableau d'objets, chaque élément d'un tableau est réinitialisé à la valeur spéciale Nothing.

Exemple

Ajoutez un bouton et ajoutez la fonction suivante.

Private Sub Constant_demo_Click()
   Dim NumArray(3)
   NumArray(0) = "VBScript"
   NumArray(1) = 1.05
   NumArray(2) = 25
   NumArray(3) = #23/04/2013#
  
   Dim DynamicArray()
   ReDim DynamicArray(9)   ' Allocate storage space.
  
   Erase NumArray          ' Each element is reinitialized.
   Erase DynamicArray      ' Free memory used by array.
  
   ' All values would be erased.
   msgbox("The value at Zeroth index of NumArray is " & NumArray(0))
   msgbox("The value at First index of NumArray is " & NumArray(1))
   msgbox("The value at Second index of NumArray is " & NumArray(2))
   msgbox("The value at Third index of NumArray is " & NumArray(3))
End Sub

Lorsque vous exécutez la fonction ci-dessus, elle produit la sortie suivante.

The value at Zeroth index of NumArray is 
The value at First index of NumArray is 
The value at Second index of NumArray is 
The value at Third index of NumArray is