VBA Compter des Valeurs dans la gamme

J'ai lu le post sur ce VBA problème, mais mon script VBA ne fonctionne toujours pas.

Public Sub Test()

Dim arrNames As Variant                     'Declare array named "arrNames"
arrNames = Sheet1.Range("F2:F1000")         'Array filled with column F
intN = Application.CountIf(arrNames, "*")   'does not work intent: count cells w/info
'intN = Application.CountA(arrNames)        'works but MsgBox displays value of 999
MsgBox (intN)

End Sub

Comment puis-je obtenir le nombre de cellules de mon tableau contenant une valeur quelconque?

Version modifiée d'après l'aide

Public Sub Test()

Dim arrNames As Variant                     'Declare array named "arrNames"
Dim i As Long

arrNames = Sheet1.Range("F2:F1000")           'Array filled with column F

For i = LBound(arrNames) To UBound(arrNames)
    If (arrNames(i,1) = "") Then
        EmptyCounter = EmptyCounter + 1
    End If
Next i
End Sub
  • Vous n'avez pas déclaré Dim EmptyCounter As Long
  • Pouvez-vous ne pas utiliser l'approche la plus simple comme MsgBox Application.WorksheetFunction.CountBlank(Range("F2:F1000"))??
  • a ma solution ci-dessous pour aider?
  • Non et Oui. arrNames doit être changé sur la Ligne 9, après les Si la déclaration en tant que telle: Si arrNames(i,1) sinon une erreur indice hors de portée des résultats.
InformationsquelleAutor Greg | 2014-07-03
  1. 0

    Vous pouvez essayer ceci:

    intN = Worksheets("Sheet1").Range("F2:F1000").Cells.SpecialCells(xlCellTypeConstants).Count
MsgBox intN

    100%, il fonctionne.

    • Cela fonctionne, cependant j'ai besoin de "compter" pour un tableau que mes tableaux sont manipulés dans le script.
    • Je suis nit bien sûr, je reçois vous droit sur celui-ci. Mais si je le fais, vous pouvez essayer quelque chose comme ceci: intN = arrNames.Cells.SpecialCells(xlCellTypeConstants).Count - je suis en supposant que vous aviez déclaré arrNames comme avant. Cela vous aide?
    • Ce que je voulais dire, c'est votre réponse vraiment évalue les valeurs qui seront placés dans le tableau, pas le tableau iteself. Mais il y a des moments j'ai besoin de compter le tableau après j'ai "triés", supprimé les doublons, etc à partir du tableau. Dans ce cas, la intN = Feuilles de calcul... ne fonctionnerait pas.
    • ok, toujours pas abandonner sur ce que vous pouvez re-définir votre gamme en termes de lignes comme ceci: Dim TheLastRow As Long TheLastRow = Worksheets("Sheet1").Range("F2:F1000").Cells.SpecialCells(xlCellTypeLastCell).Row MsgBox (TheLastRow) - que l'on trouve le dernier non-vide de ligne. ensuite, vous pouvez lancer le code que j'ai proposé dans ma première réponse.
    • Cela a un sens, et intN vous donnera un entier de valeur. Cependant comment puis-je entrer dans la dernière ligne de la valeur de réglage de la plage de matrice? Le code suivant ne fonctionne pas. arrNames = Feuil1.Range("F2":intN)
    • arrNames = Feuil1.Range(cells(2, 6), les Cellules(intN, 6))

    InformationsquelleAutor crazylane
  2. 1

    Il n'y a pas de moyen direct de le faire, comme je le comprends. Mais vous pouvez exécuter une simple boucle pour vérifier si les valeurs sont égales à "" en supposant que la chaîne de données.

    Pour, par exemple,

    For i = LBound(ArrayName) to UBound(ArrayName)
    If (ArrayName(i) = "") Then
        EmptyCounter = EmptyCounter + 1
    End If
Next i

    Si c'est numérique ou autre type de données, vous pouvez essayer des variations de la au-dessus de boucle à l'aide de fonctions telles que IsEmpty(VariableName) etc.

    • Il usally juste une chaîne de caractères, e.g mélange de données comme S12-9
    • Ensuite, vous pouvez utiliser le code directement
    • Si (arrNames(i) = "") Then 'Script se bloque sur cette ligne
    • qu'entendez-vous "bloque"? Quelle est l'erreur qui s'affiche?
    • Erreur d'exécution '9':Indice hors de Gamme
    • C'est très très bizarre, si c'est de passer de LBound à Ubound, il est presque impossible pour que. Est i déclaré aussi Longtemps? ou Entier? Veuillez déclarer comme Long et de voir de nouveau.
    • la variable "i" est déclaré comme étant de Long. Le résultat est toujours le même. Erreur d'exécution '9':Indice hors de Gamme
    • Merci de poster votre code révisé à la question, il est difficile à lire ici.
    • Voir révisée post ci-dessus.

    InformationsquelleAutor hnk