Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.09.2011, 17:54   #1
johny_03
Форумчанин
 
Регистрация: 21.01.2011
Сообщений: 134
По умолчанию СЧЕТЗ на VBA

Имеется формула =СЧЁТЗ(C5:C100) которая считает количество заполненных ячеек в столбце. Как то же самое сделать на VBA по клику кнопки?
Огромное спасибо!
johny_03 вне форума Ответить с цитированием
Старый 27.09.2011, 17:59   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Запишите запись формулы макросом (даже просто замените например 100 на 101), полученный код повесьте на кнопку.
Вернее преобразуйте в нечто вида
Код:
Sub tt()
Dim x&
x = Application.CountA([c5:c100])
End Sub
А зачем вообще это? Есть другие способы...
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 27.09.2011 в 18:05.
Hugo121 вне форума Ответить с цитированием
Старый 27.09.2011, 18:12   #3
johny_03
Форумчанин
 
Регистрация: 21.01.2011
Сообщений: 134
По умолчанию

дело в том, что диапазон С5:С100 заполняется по клику кнопки, и каждый раз содержимое и количество ячеек меняется, поэтому вместо готового результата я имею #ССЫЛКА, когда пользуюсь формулой =СЧЁТЗ(C5:C100). Поэтому я хочу, чтобы подсчет ячеек происходил в определенное время по клику кнопки. Может я и не знаю более лучших способов, но буду благодарен за совет.
johny_03 вне форума Ответить с цитированием
Старый 27.09.2011, 18:44   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

может ...
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;C5:C100)
без VBA
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 27.09.2011, 18:47   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

чтобы не зависеть от удаления (добавления) ячеек - формулами это так:
сумм(индекс(C:C;5):индекс(C:C;100))
или сумм(двссыл("C5:C100"))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA Word,VBA Excel решить 2 задачи fafolo4ka Фриланс 6 05.03.2012 01:15
VBA kolochkov Помощь студентам 1 13.04.2011 17:50
VBA stck Помощь студентам 1 31.12.2010 18:48
VBA Мариночка=)! Помощь студентам 7 23.05.2010 03:53
VBA Amles Microsoft Office Word 9 01.06.2009 02:57