powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма содержимого не скрытых ячеек
7 сообщений из 7, страница 1 из 1
Сумма содержимого не скрытых ячеек
    #39036045
nauf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте! Как в Excel 2010 получить сумму содержимых ячеек одной строки, исключая данных из скрытых СТОЛБЦОВ!
...
Рейтинг: 0 / 0
Сумма содержимого не скрытых ячеек
    #39036259
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
naufЗдравствуйте! Как в Excel 2010 получить сумму содержимых ячеек одной строки, исключая данных из скрытых СТОЛБЦОВ!

ну можно накропать пользовательскую функцию это довольно просто, а можно с доп строкой, но тогда для пересчета придется f9 жать.
...
Рейтинг: 0 / 0
Сумма содержимого не скрытых ячеек
    #39036277
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А действительно... я думал, ПромИтоги, но эта функция обращает внимание только на скрытые строки :(
Вот UDF, обновляется по F9. Диапазон может состоять из нескольких строк и даже нескольких областей, в последнем случае надо объединить диапазон скобками, напр.
=SumVisibleCol((A1:B2;E1:F2))
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Function SumVisibleCol(r As Range)
Dim c As Range
  Application.Volatile
  For Each c In r.Columns
    If Not c.Hidden Then SumVisibleCol = SumVisibleCol + WorksheetFunction.Sum(c)
  Next
End Function
...
Рейтинг: 0 / 0
Сумма содержимого не скрытых ячеек
    #39036302
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Сумма содержимого не скрытых ячеек
    #39039046
nauf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для подсчета количества не скрытых и не пустых ячеек, изменил код:

For Each c In r.Columns
If Not c.Hidden and Not Isnull(c.cells.value) Then S = S+1
Next

не работает, считает все ячейки включая пустые.

Если
For Each c In r.Columns
If Not c.Hidden and c.cells.value>0 Then S = S+1
Next

тогда подсчитывает все не скрытые и не пустые ячейки, но пропускает ячейки с "0".

For Each c In r.Columns
If Not c.Hidden and c.cells.value>=0 Then S = S+1
Next
тоже не работает. Как сделать правильно?
...
Рейтинг: 0 / 0
Сумма содержимого не скрытых ячеек
    #39039066
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
По аналогии - СЧЁТЗ по видимым столбцам
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Function CountAVisibleCol(r As Range)
Dim c As Range
  Application.Volatile
  For Each c In r.Columns
    If Not c.Hidden Then CountAVisibleCol = CountAVisibleCol + WorksheetFunction.CountA(c)
  Next
End Function
...
Рейтинг: 0 / 0
Сумма содержимого не скрытых ячеек
    #39041057
nauf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма содержимого не скрытых ячеек
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]