Excel - скрыть одни и те же столбцы в нескольких книгах - PullRequest
0 голосов
/ 28 сентября 2018

Мне нужно скрыть одни и те же столбцы в нескольких книгах.

Например, я хочу скрыть столбцы B, C, F, H, I, J, K, R, Q, AA и т. Д., И мне нужно быстро скрыть эти же столбцы во многих различных книгах при открытии этих книг.учебные пособия.Другими словами,

Мне нужно создать собственное представление, которое я могу быстро применить к любой открываемой книге.

Я использую Excel 2016.

Спасибо!

Ответы [ 2 ]

0 голосов
/ 28 сентября 2018

Вы можете использовать цикл For Each для циклического прохождения набора Workbooks и Worksheets соответственно и повторения действия "for each" и каждого из них.

Private Sub hide_columns()

   Dim wb As Workbook
   Dim ws As Worksheet

   For Each wb In Workbooks ' loop through all workbooks
     For Each ws In wb.Worksheets ' loop through all worksheets in workbooks
        ws.Columns("C").EntireColumn.Hidden = True
        ws.Columns("H:K").EntireColumn.Hidden = True
        ' - add the rest of the columns here 
     Next ws
   Next wb

End Sub
0 голосов
/ 28 сентября 2018

Вы можете использовать событие открытия рабочей книги, чтобы установить свойства нужных столбцов:

Private Sub Workbook_Open()
Range("B:D,F:F").EntireColumn.Hidden = True

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...