Как использовать в vba функцию COUNTA?

Question

[sky144]

В эеселе заполняем символами ячейки с A1 по F1

Пишем в экселе формулу =COUNTA(A1:F1) ,
получаем значение 6 (шесть непустых ячеек)

Согласно линку
howtoo.ru/ispol-zovanie-funktsij-microsoft-excel-v...
чтобы использовать функцию экселя в vba, надо перед функцией написать
Application.WorksheetFunction.

Ок, пишем. Получается
MsgBox Application.WorksheetFunction.CountA("A1:F1")

Запускаем сценарий, получаем 1. Почему один? Должно быть шесть!

Comments

[sky144]

он не хочет понимать диапазон, и в конструкции ("A1:F1") делает подсчет только в ячейке А1.
Как ему диапазон прописать?

[sky144]

можно всю строку посчитать через MsgBox Application.WorksheetFunction.CountA(Rows(1)) но диапазон как - непонятно

[Роман Воронов]

sky144: вот некоторые варианты возможного задания диапазона для Вашего случая:

MsgBox Application.WorksheetFunction.CountA([A1:F1])
MsgBox Application.WorksheetFunction.CountA(Range("A1:F1"))
MsgBox Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(1, 6))
MsgBox Application.WorksheetFunction.CountA(Cells(1, 1).Resize(1, 6)) и так далее.

Учтите, что в приведённых выше примерах мы обращаемся к активному листу. Если нужен другой лист для анализа - это прописывается перед заданием диапазона. На лист ссылаться - тоже есть варианты.

Answer 1

[h8nor]

Согласно линку...
Ок, пишем. Получается
MsgBox Application.WorksheetFunction.CountA("A1:F1")

Вы передаёте функции значение A1:F1, а вам нужно передать диапазон ячеек Range("A1:F1"); также, как вы делали со строкой Rows(1).