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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2009, 09:32   #1
extremobile
Новичок
Джуниор
 
Регистрация: 15.04.2009
Сообщений: 2
Вопрос подсчет заполненных ячеек

Добрый день!

Помогите плиз в решении проблемы!

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

насколько я понимаю, функции такой в эксель нет..
extremobile вне форума Ответить с цитированием
Старый 28.05.2009, 15:35   #2
roplius
Пользователь
 
Регистрация: 06.05.2009
Сообщений: 15
По умолчанию

Можно создать пользователскую функцию. Скопируйте код функции в окно модуля, и пользуйтесь на здоровье. В качестве аргумента функции укажите адрес зоны ячеек.
Код:
Function MAXCountA(zona As Range)
    MAXCountA = 0
    countpodriad = 0
    For k = 1 To zona.Count
        If zona(k) <> "" Then countpodriad = countpodriad + 1 Else countpodriad = 0
        If countpodriad > MAXCountA Then MAXCountA = countpodriad
    Next k
End Function
roplius вне форума Ответить с цитированием
Старый 28.05.2009, 17:26   #3
extremobile
Новичок
Джуниор
 
Регистрация: 15.04.2009
Сообщений: 2
По умолчанию

огромное спасибо!!!!!!
extremobile вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подсчет суммы ячеек с разных страниц при выполнении условия sttafi Microsoft Office Excel 27 07.12.2012 17:50
подсчет ячеек в зависимости от даты Алексей777 Microsoft Office Excel 4 20.02.2009 13:48
СУММИРОВАНИЕ И ПОДСЧЕТ ЯЧЕЕК ОКРАШЕННЫХ В РАЗНЫЙ ЦВЕТ Arina Microsoft Office Excel 11 29.01.2009 14:35
Подсчет r2n Общие вопросы Delphi 4 01.05.2007 05:48