Привязкa функции и скрытие отдельных строк

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Привязкa функции и скрытие отдельных строк (Макросы/Sub)

lutorius

Дата: Среда, 15.11.2017, 21:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день

Имеется функция

Sub HideEmptyRows()
Dim r As Long, FirstRow As Long, LastRow As Long
FirstRow = ActiveSheet.UsedRange.Row
LastRow = ActiveSheet.UsedRange.Rows.Count - 1 + ActiveSheet.UsedRange.Row
For r = LastRow To FirstRow Step -1
If Application.CountA(Rows®) = 0 Then
Rows®.Hidden = True
Else
Rows®.Hidden = False
End If
Next r
End Sub

Как ее привязать к отдельным листам и указать в ней строки, которые не надо скрывать на этих листах?
(Строки на каждом листе разные)

Спасибо

Ответить

_Boroda_

Дата: Среда, 15.11.2017, 21:43 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

_Igor_61

Дата: Среда, 15.11.2017, 21:48 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

Репутация: 90 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте! Без файла, навскидку - попробуйте так (для 3-й строки лист1):
Удалено администрацией
Нужно в сообщениях оформлять код тегами (кнопка "#")
P.S. Пока писал что нужен файл и про кнопку - модераторы опередили

Сообщение отредактировал _Igor_61 - Среда, 15.11.2017, 21:50

Ответить

Привязкa функции и скрытие отдельных строк (Макросы/Sub)

Страница 1 из 1
1