Excel VBA WorksheetFunction.CountA - nie działa poczta uaktualnienia do Office 2010

Question

Poniższy kawałek kodu działa w Excelu przed 2010:

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

Istnieje 38 komórek zawierających tekst/wartości w kolumnie A. Gdy kod jest uruchamiany w programie Excel 2007, NumRows poprawnie ocenia do 38, jednak (błędnie) ocenia do 65 536 w programie Excel 2010.

Wprowadzanie funkcji w komórce CountA działa poprawnie w obu wersjach.

Podobny wątek jest question 16696891, ale nie było odpowiedzi i sugestii, myślę, czerwone śledzie ...

Jakieś pomysły?

Answer 1

Ten kod działa dla mnie:

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

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

    MsgBox NumRows 
End Sub 

Answer 2

nie jestem pewien dokładnie, jaki jest twój problem, bo nie mogę dostać się do pracy jako kod napisany. Dwie rzeczy wydają się oczywiste:

1. Wygląda na to, że polegasz na VBA, aby określić typy zmiennych i odpowiednio je zmodyfikować. Może to być mylące, jeśli nie jesteś ostrożny, ponieważ VBA może przypisać typ zmiennej, który nie był zamierzony. W swoim kodzie typ Range powinien zostać przypisany do myRange. Ponieważ typ Range jest obiekt w VBA musi być Set, tak: Set myRange = Range("A:A")
2. Korzystanie z funkcji arkusza CountA() powinno nazywać się .WorksheetFunction

Jeśli nie robi to już, należy rozważyć użycie Opcja Option Explicit u góry modułu i wpisywanie zmiennych za pomocą instrukcji Dim, tak jak to zrobiłem poniżej.

Poniższy kod działa dla mnie w roku 2010. Mam nadzieję, że to działa dla Ciebie:

Dim myRange As Range 
Dim NumRows As Integer 

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

powodzenia.

Answer 3

Wygląda na to, że w aplikacji VB7 i VB6 występuje zmiana Application.COUNTA. Próbowałem następujące w obu wersjach VB.

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

W VB6 to zwraca 0.

Inn VB7 powraca 32

Wygląda VB7 nie uważa COUNTA być COUNTA więcej.

Answer 4

Ta odpowiedź z innego forum rozwiązała problem.

(podstawić własny zakres dla "I: I" pokazanego tutaj)

Re: COUNTA nie działa w 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. 

Answer 5

Może to być oczywiste, ale, stwierdzając zakresie i nie obejmuje w skoroszycie lub arkuszu kalkulacyjnym, może to być całkowicie próbowanie CountA() na innym arkuszu. Znajduję się, aby w pełni rozwiązać te problemy, oszczędzając wiele bólów głowy.