Событие "скрыть строку" (Worksheet, Events, Hidden, Rows)

@tolikt · Регистрация: 08.05.2011

Студворк — интернет-сервис помощи студентам

Хотелось бы узнать возможность отслеживания события "скрыть/отобразить" строку или столбец. В частности, для следующей проблемы:
Есть пользовательская функция подсчёта суммы видимых ячеек.

Visual Basic
1
2
3
4
5
6
7
8
9
Function SumVisib(Adr As Range)
Application.Volatile
SumVisib = 0
For Each s In Adr
If s.Rows.Hidden = False Then
SumVisib = SumVisib + s.Value
End If
Next
End Function

Как сделать, чтобы сумма считалась сразу после скрытия или отображения строк? А то приходится каждый раз пересчитывать лист через F9. Впрочем, если скрытие строк происходит после наложения фильтра, то сумма считается сразу.
ЗЫ: Пожалуйста, отвечайте по существу и не надо предлагать мне воспользоваться поиском, который не работает!

@Pavel55 · 04.12.2006, 17:03

особенно не вникал в проблему, но может эта тема поможет
http://forum.developing.ru/showthread.php?t=6937&highlight=Applicat ion.Volatile http://forum.developing.ru/showthread.php?t=6937&highlight=Applicat ion.Volatile

@VladConn · 05.12.2006, 00:05

Что такое "s"? Оно у вас нигде не отдекларировано. И какой тип должна возвращать ваша функция?
Да, вопрос хороший! Пока играюсь с вашей функцией.
Ничего лучше пока не придумал:

Visual Basic
1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Calculate
End Sub

Тогда, если кликнуть по листу после скрытия или отображения строк, то пересчитывает. Кликать легче, чем F9.
И кстати, а если прячут колонки?
И, наконец, события "скрыть/отобразить" строку или столбец по-моему просто нет. Вы вот просмотрите-то список событий в правом верхнем комбо боксе. Там все они. А которых нет, так и нет.

@tolikt · 28.12.2006, 18:36 **[ТС]**

Понятно, что если бы в списке событий листа было что-то типа "скрытие ячейки" и "отображение ячейки", то и вопросов бы не возникало. Однако отсутствие какого-то конкретного события иногда получается обойти.
Например, есть событие Workbook_BeforePrint. Ясно, что из него легко сделать событие типа Worksheet_BeforePrint. Внеся в код Workbook_BeforePrint строку типа If ActiveSheet.Name = "XXX" Then Cancel = True.
Кроме того, можно соорудить событие Workbook_AfterPrint, которого тоже нет в списке событий. Это может потребоваться, например, в случае, когда необходимо, чтобы какие-либо данные на листе Excel отображались постоянно, но на печать их выводить не надо. Т. е. перед печатью такие данные удалять или делать их невидимыми, а после распечатывания возвращать всё в исходное состояние. В следующем примере при печати в ячейке А1 будет всегда печататься текст "УРА!".

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Application.ScreenUpdating = False
Cancel = True
Dim x
x = Cells(1, 1)
Cells(1, 1) = "УРА!"
ActiveSheet.PrintOut
Cells(1, 1) = x
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Это только пример, в нём, конечно, можно найти изъяны. Например, если на печать отправить сразу более одного листа или если настройки печати были не по умолчанию (диапазон печати, тип принтера, количество копий и т. д.).
Вопрос как раз и был в том, какой хитрый способ придумать из имеющихся стандартных, чтобы можно было отследить скрытие или отображение строки или столбца. Ведь при скрытии/отображении не просходит изменения данных на листе или изменения выделенной области.
Кстати, данный вопрос точно поднимался на этом форуме. Но т. к. поиск сейчас не работает, то найти те темы не смог. И не знаю, решилась ли и как данная проблема.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Pavel55 999 / 358 / 135 Регистрация: 27.10.2006 Сообщений: 764
	04.12.2006, 17:03
	особенно не вникал в проблему, но может эта тема поможет http://forum.developing.ru/showthread.php?t=6937&highlight=Applicat ion.Volatile http://forum.developing.ru/showthread.php?t=6937&highlight=Applicat ion.Volatile 0