Как проверить наличие изменений имени и индекса изначально созданных листов?

Категория: Basic
2012-07-03 16:36:07

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

code: #vba
Option Compare Text
 
Private Sub Auto_Open()
    For Each iSheet In Sheets
        iSheetName = Choose(iSheet.Index, "Приход", "Расход", "График")
        If Not IsNull(iSheetName) Then
           If iSheet.Name <> iSheetName Then
              MsgBox "Лист : " & iSheet.Name & _
              " не соответствует заданным параметрам", , ""
           End If
        Else
           MsgBox "Лист : " & iSheet.Name & _
           " не соответствует заданным параметрам", , ""
        End If
    Next
End Sub

или

code: #vba
Option Compare Text: Option Base 1
 
Private Sub Auto_Open()
    iSheets = Array("Приход", "Расход", "График")
    For Each iSheet In Sheets
        If iSheet.Index <= UBound(iSheets) Then
           If iSheet.Name <> iSheets(iSheet.Index) Then
              MsgBox "Лист : " & iSheet.Name & _
              " не соответствует заданным параметрам", , ""
           End If
        Else
           MsgBox "Лист : " & iSheet.Name & _
           " не соответствует заданным параметрам", , ""
        End If
    Next
End Sub
Поделиться:

Похожие статьи:

теги: excel, vba, макросы, рабочий лист