Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скрытие строк в границах динамической таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк в границах динамической таблицы (Макросы/Sub)
Скрытие строк в границах динамической таблицы
Сергей13 Дата: Пятница, 06.12.2019, 23:50 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Ребята, при нахождении ячейки в границах динамической таблице производится скрытие любых выделенных строк таблицы,
[vba]
Код
Sub HideTbl()
    Dim ShSales As Worksheet                    'Переменная Листа log_book
    Set ShSales = ThisWorkbook.Worksheets("log_book")     'Лист log_book
    If Not Intersect(ActiveCell, ShSales.Range("tabl_logbook")) Is Nothing Then Selection.EntireRow.Hidden = True 'Скрытие выделенных строк в границе таблицы
End Sub
[/vba]
но нежелательное скрытие возможно и при комбинации выделения строк таблицы с захватом нижних строк не входящих в динамическую таблицу.
Каким образом исправить данную погрешность или неправильность кода дабы скрывать выделенные строки, строку только в границах таблицы.
К сообщению приложен файл: stroki.xlsm(15.7 Kb)


Сообщение отредактировал Сергей13 - Суббота, 07.12.2019, 00:08
 
Ответить
СообщениеЗдравствуйте!
Ребята, при нахождении ячейки в границах динамической таблице производится скрытие любых выделенных строк таблицы,
[vba]
Код
Sub HideTbl()
    Dim ShSales As Worksheet                    'Переменная Листа log_book
    Set ShSales = ThisWorkbook.Worksheets("log_book")     'Лист log_book
    If Not Intersect(ActiveCell, ShSales.Range("tabl_logbook")) Is Nothing Then Selection.EntireRow.Hidden = True 'Скрытие выделенных строк в границе таблицы
End Sub
[/vba]
но нежелательное скрытие возможно и при комбинации выделения строк таблицы с захватом нижних строк не входящих в динамическую таблицу.
Каким образом исправить данную погрешность или неправильность кода дабы скрывать выделенные строки, строку только в границах таблицы.

Автор - Сергей13
Дата добавления - 06.12.2019 в 23:50
Michael_S Дата: Суббота, 07.12.2019, 00:44 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 372 ±
Замечаний: 0% ±

Excel2016
[vba]
Код
Sub HideTbl()
    Dim ShSales As Worksheet, Rn As Range                    'Переменная Листа log_book
    Set ShSales = ThisWorkbook.Worksheets("log_book")     'Лист log_book
    Set Rn = Intersect(Selection.EntireRow, ShSales.Range("tabl_logbook"))
    If Not Rn Is Nothing Then Rn.EntireRow.Hidden = True 'Скрытие выделенных строк в рамках таблицы
End Sub
[/vba]


Сообщение отредактировал Michael_S - Суббота, 07.12.2019, 00:45
 
Ответить
Сообщение[vba]
Код
Sub HideTbl()
    Dim ShSales As Worksheet, Rn As Range                    'Переменная Листа log_book
    Set ShSales = ThisWorkbook.Worksheets("log_book")     'Лист log_book
    Set Rn = Intersect(Selection.EntireRow, ShSales.Range("tabl_logbook"))
    If Not Rn Is Nothing Then Rn.EntireRow.Hidden = True 'Скрытие выделенных строк в рамках таблицы
End Sub
[/vba]

Автор - Michael_S
Дата добавления - 07.12.2019 в 00:44
Сергей13 Дата: Суббота, 07.12.2019, 17:49 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 344
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Michael_S, Благодарю!
 
Ответить
СообщениеMichael_S, Благодарю!

Автор - Сергей13
Дата добавления - 07.12.2019 в 17:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк в границах динамической таблицы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!