Как одновременно (синхронно) изменять данные и параметры форматирования сразу в нескольких рабочих листах — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Для этого, скопируйте нижеприведённый код в модуль ThisWorkbook (ЭтаКнига) нужной рабочей книги и сохраните внесённые изменения. Теперь, после активации любого из листов, входящих в группу, Вы сможете продолжить работу с группой выделенных листов.
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error GoTo ErrHandler '
    Select Case LCase(Sh.Name)
        Case "архив", "копия": iSheets = Array("Архив", "Копия")
        Case "бухгалтер", "директор": iSheets = Array("Бухгалтер", "Директор")
        Case "семенов", "петров", "отчет": iSheets = Array("Семенов", "Петров", "Отчет")
        Case Else: Exit Sub
    End Select
    Me.Worksheets(iSheets).Select
ErrHandler:
    Select Case Err.Number
        Case 9: MsgBox "Отсутствует лист(ы) с указанным именем", , ""
        Case 1004: MsgBox "Листы не должны быть скрытыми", , ""
    End Select
End Sub

Похожие записи/страницы:

Leave a Comment