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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Для того, чтобы определить порядок всех изначально заданных листов, т.е. проверить не было ли изменений в названии листов и их расположении, можно использовать любой из представленных вариантов.
 
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
или
 
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

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

Leave a Comment