Excel VBA WorksheetFunction.CountA - ne fonctionne pas après la mise à niveau vers Office 2010

Le morceau de code suivant fonctionne dans Excel avant 2010:

myRange = Range("A:A")
NumRows = Application.CountA(myRange)

Il y a 38 cellules contenant du texte ou des valeurs dans la colonne A. Lorsque le code est exécuté dans Excel 2007, NumRows correctement évalue à 38, cependant, il (à tort) évalue à 65 536 dans Excel 2010.

Entrer dans le CountA fonction dans la cellule fonctionne bien dans les deux versions.

Fil similaire est question 16696891, mais il n'y avait pas de réponse et les suggestions ont été, je pense, harengs rouges...

Des idées?

OriginalL'auteur Richard Ell | 2014-09-17

  1. 8

    Je ne sais pas exactement quel est ton problème, parce que je ne peux pas obtenir votre code de travail comme l'a écrit. Deux choses semblent évidentes:

    1. Il semble que vous êtes en s'appuyant sur VBA pour déterminer les types de variables et de modifier en conséquence. Cela peut être source de confusion si vous n'êtes pas prudent, parce que VBA peut attribuer un type de variable que vous n'avez pas l'intention. Dans votre code, un type de Range doit être attribué à myRange. Depuis un Range type est un objet en VBA, il doit être Set, comme ceci: Set myRange = Range("A:A")
    2. Votre utilisation de la fonction de feuille de calcul CountA() doit être appelé avec .WorksheetFunction

    Si vous ne le faites pas déjà, pensez à utiliser l'Option Explicite option en haut de votre module, et en tapant vos variables avec Dim états, comme je l'ai fait ci-dessous.

    Le code suivant fonctionne pour moi en 2010. Espérons que cela fonctionne pour vous aussi:

    Dim myRange As Range
Dim NumRows As Integer

Set myRange = Range("A:A")
NumRows = Application.WorksheetFunction.CountA(myRange)

    Bonne Chance.

    Salut Merci pour les deux. Désolé, doit il ressort clairement de la gamme est définie en utilisant le mot-clé Set. En fait, vous n'avez pas besoin .WorksheetFunction, en fait Application.CountA doit travailler sur son propre. Sur le PC en question, Application.WorksheetFunction.CountA(Range("A:A")) montre de 65 536 même si seulement 38 cellules contiennent quoi que ce soit. Je ne peut pas reproduire sur mon propre bureau. J'ai pensé qu'il pourrait être une sorte de problème avec la mise à niveau d'une version d'office à l'autre. Le "nouveau" PC Office 2010 sur Windows 7, et a été mis à niveau à partir d'Office 2007 sur Windows 2003.
    Pourrait-il être un problème avec la feuille de calcul. Essayez de sélectionner tous les "vider" les cellules, de les supprimer, et de l'économie. Si cela ne résulte pas prévue dans le "38" résultat, je suis perplexe.

    OriginalL'auteur Instant Breakfast

  2. 3

    Cette réponse d'un autre forum a résolu le problème.

    (à remplacer par votre propre gamme pour le "I:I" montré ici)

    Re: Nbval pas de travail en VBA

    Should be:

Nonblank = Application.WorksheetFunction.CountA(Range("I:I"))

You have to refer to ranges in the vba format, not the in-excel format.

    OriginalL'auteur Justin

  3. 1

    Ce code fonctionne pour moi:

    Sub test()
    Dim myRange As Range
    Dim NumRows As Integer

    Set myRange = Range("A:A")
    NumRows = Application.WorksheetFunction.CountA(myRange)

    MsgBox NumRows
End Sub

    OriginalL'auteur CallumDA

  4. 0

    Il semble qu'il y ait un changement dans la façon dont l'Application.COUNTA travaille dans VB7 vs VB6. J'ai essayé les deux versions de VB.

       ReDim allData(0 To 1, 0 To 15)
   Debug.Print Application.WorksheetFunction.CountA(allData)

    En VB6 il renvoie 0.

    Inn VB7 il retourne 32

    Ressemble VB7 ne tient pas compte des COUNTA être COUNTA plus.

    OriginalL'auteur unhappy VB7 users

  5. 0

    Il peut être évident, mais, en indiquant la Plage et ne comprenant pas quel classeur ou une feuille de calcul, puis il peut être essayer de Nbval() sur une autre feuille entièrement.
    Je trouve, pour répondre pleinement à ces choses permet d'économiser beaucoup de maux de tête.

    OriginalL'auteur perfo