Astuces Excel
  1. Astuces Excel
  3. Trouver ZEROth Dimension Array
Intereting Posts
VBA Excel 2010 – Affectez un tableau inconnu à la variable Données de la date de transformation d'une colonne à plusieurs colonnes de 24 colonnes Diviser les personnes en groupes en fonction de la force et du rang Filtrer une table en utilisant une autre comme reference Appeler une fonction complémentaire à partir du VBA d'Excel Macros Excel VBA utilisant des cases à cocher pour masquer des lignes – Si d'autres déclarations Excel VBA: Comment puis-je extraire datatables historiques de finance yahoo dans une plage de dates définie Copier cibler et copyr d'un file Excel vers un autre – C # Excel – Formule de tableau car la gamme de noms ne fonctionne pas Rechercher et replace tout le champ (CSV) Coller la valeur de cellule correspondante en utilisant Nested If Code VBA pour ouvrir un document de fusion par correspondance avec les champs de fusion déjà insérés Copies automatiques avec titre dans Word à partir d'un document Excel Problème Création de la mise à jour automatique de la macro avec une fonction VBA la requête SQL en cours d'exécution de sql en excel

Trouver ZEROth Dimension Array

Normalement, lorsque vous cherchez une quantité de diensions, ou leurs bornes, vous pouvez utiliser UBound, et LBound.

Je suis bloqué maintenant parce que j'ai un tableau dynamic et je veux vérifier s'il avait son premier ReDim (ou s'il a au less une dimension).

Sans une seule dimension, UBound (array, 1) est hors de scope.

Alors, comment vérifie-t-il si elle n'a pas de dimesions?

Le résultat devrait être plus ou less comme ceci: 

Dim array() If NO_DIMENSIONS Then ...something... End if

Vous pouvez utiliser un piégeage par erreur pour y parvenir. 

 Function NumberOfDimensions(arr As Variant) 'Sets up the error handler. On Error GoTo FinalDimension 'Visual Basic for Applications arrays can have up to 60000 'dimensions; this allows for that. For DimNum = 1 To 60000 'It is necessary to do something with the LBound to force it 'to generate an error. ErrorCheck = LBound(arr, DimNum) Next DimNum FinalDimension: NumberOfDimensions = DimNum - 1 End Function

Ce code a été modifié dans une fonction à partir du code extrait du support Microsoft .

Donc vous utiliserez comme tel: 

 Dim testArr() If NumberOfDimensions(testArr) = 0 Then 'Do Something End If

Dans cette méthode, vous supprimez cette erreur hors limites et l'utilisez pour countr le nombre de dimensions.