web-dev-qa-db-fra.com

ajout de valeurs au tableau de variables VBA

J'essaye de parcourir une table qui a une column pour "customers" and "dollar amount". Si ma boucle trouve une customer appelée "greg" or "henry", je souhaite ajouter son "dollar amount" à un tableau de taille inconnue. 

Quelqu'un peut-il m'aider s'il vous plaît?

arraysvbavariablesdynamic
15
Trung Tran

Si par taille inconnue, vous voulez dire que le nombre d'éléments est inconnu, vous pouvez utiliser un tableau dynamique.

Dim aArray() As Single ' or whatever data type you wish to use
ReDim aArray(1 To 1) As Single
If strFirstName = "henry" Then
    aArray(UBound(aArray)) = 123.45
    ReDim Preserve aArray(1 To UBound(aArray) + 1) As Single
End If

Ubound (aArray) renvoie une erreur si le tableau n'a pas été dimensionné. Nous commençons donc par lui ajouter un élément. Cela nous laisse avec un élément vide à la fin du texte, votre code devrait en tenir compte. aArray (Ubound (aArray) -1) vous donnera le dernier élément valide du tableau.

24
Steve Rindsberg
Private Sub ArrayMy(DataRange)
  Dim DataIndex() As String
  i = 0
  On Error Resume Next
  ReDim DataIndex(0)
  For Each c In DataRange
      DataIndex(i) = c
      i = i + 1
      ReDim Preserve DataIndex(i)
  Next
End Sub
0
Pawel