L oop на всех листах, кроме названных - PullRequest
Новая
       6

L oop на всех листах, кроме названных

1 голос
/ 05 февраля 2020

Приведенный ниже код предназначен для форматирования ширины столбца, выравнивания и форматирования на всех листах в моей книге , кроме перечисленных ниже, а именно:

  • «Страница содержания», «Завершено», «VBA_Data», «Список командных проектов», «Список групповых проектов», «Список групповых проектов», «Сокращения».

Однако код отображается только для запуска на ActiveSheet, то есть "Contents_Page": 

Public Sub SheetCleanup()
Application.ScreenUpdating = False
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case Is = "Contents Page", "Completed", "VBA_Data", "Front Team Project List", "Mid Team Project 
List", "Rear Team Project List", "Acronyms"

Case Else
        ActiveSheet.Columns("g:g").NumberFormat = "dd-mm"
        ActiveSheet.Columns("i:i").NumberFormat = "0"
        ActiveSheet.Columns("B:K").HorizontalAlignment = xlLeft
        ActiveSheet.Columns("G:G").HorizontalAlignment = xlCenter
        ActiveSheet.Columns("A:A").HorizontalAlignment = xlCenter
        ActiveSheet.Columns("H:H").HorizontalAlignment = xlCenter
        ActiveSheet.Columns("I:I").HorizontalAlignment = xlCenter
        ActiveSheet.Columns("J:J").HorizontalAlignment = xlCenter
        ActiveSheet.Columns("A").ColumnWidth = 27
        ActiveSheet.Columns("B").ColumnWidth = 50
        ActiveSheet.Columns("C").ColumnWidth = 50
        ActiveSheet.Columns("D").ColumnWidth = 21
        ActiveSheet.Columns("E").ColumnWidth = 27
        ActiveSheet.Columns("F").ColumnWidth = 21
        ActiveSheet.Columns("G").ColumnWidth = 20
        ActiveSheet.Columns("H").ColumnWidth = 18
        ActiveSheet.Columns("I").ColumnWidth = 25
        ActiveSheet.Columns("J").ColumnWidth = 24
        ActiveSheet.Rows("3").HorizontalAlignment = xlCenter

End Select
Next sh

End Sub

1 Ответ

0 голосов
/ 05 февраля 2020

ActiveSheet не изменяется в l oop, поэтому он выполняет действия через него. В приведенном ниже коде он выполняет действия с sh, который изменился.

В общем, рассмотрите возможность изменения ActiveWorkbook на ThisWorkbook и посмотрите Как избежать использования Select в Excel VBA 

Public Sub SheetCleanup()

    Application.ScreenUpdating = False
    Dim sh As Worksheet

    For Each sh In ActiveWorkbook.Worksheets
        Select Case sh.Name
        Case Is = "Contents Page", "Completed", "VBA_Data", "Front Team Project List", "Mid Team Project List", "Rear Team Project List", "Acronyms"

        Case Else
            With sh
                .Columns("g:g").NumberFormat = "dd-mm"
                .Columns("i:i").NumberFormat = "0"
                .Columns("B:K").HorizontalAlignment = xlLeft
                .Columns("G:G").HorizontalAlignment = xlCenter
                .Columns("A:A").HorizontalAlignment = xlCenter
                .Columns("H:H").HorizontalAlignment = xlCenter
                .Columns("I:I").HorizontalAlignment = xlCenter
                .Columns("J:J").HorizontalAlignment = xlCenter
                .Columns("A").ColumnWidth = 27
                .Columns("B").ColumnWidth = 50
                .Columns("C").ColumnWidth = 50
                .Columns("D").ColumnWidth = 21
                .Columns("E").ColumnWidth = 27
                .Columns("F").ColumnWidth = 21
                .Columns("G").ColumnWidth = 20
                .Columns("H").ColumnWidth = 18
                .Columns("I").ColumnWidth = 25
                .Columns("J").ColumnWidth = 24
                .Rows("3").HorizontalAlignment = xlCenter
            End With
        End Select
    Next sh

End Sub
...