Excel VBA для каждого рабочего цикла

Ответ 1

Попробуйте немного изменить код:

Sub forEachWs()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Call resizingColumns(ws)
    Next
End Sub

Sub resizingColumns(ws As Worksheet)
    With ws
        .Range("A:A").ColumnWidth = 20.14
        .Range("B:B").ColumnWidth = 9.71
        .Range("C:C").ColumnWidth = 35.86
        .Range("D:D").ColumnWidth = 30.57
        .Range("E:E").ColumnWidth = 23.57
        .Range("F:F").ColumnWidth = 21.43
        .Range("G:G").ColumnWidth = 18.43
        .Range("H:H").ColumnWidth = 23.86
        .Range("i:I").ColumnWidth = 27.43
        .Range("J:J").ColumnWidth = 36.71
        .Range("K:K").ColumnWidth = 30.29
        .Range("L:L").ColumnWidth = 31.14
        .Range("M:M").ColumnWidth = 31
        .Range("N:N").ColumnWidth = 41.14
        .Range("O:O").ColumnWidth = 33.86
    End With
End Sub

Обратите внимание, что процедура resizingColumns принимает параметр - рабочий лист, к которому относятся диапазоны.

В основном, когда вы используете Range("O:O") - операторы кода с диапазоном от ActiveSheet, то почему вы должны использовать оператор With ws а затем .Range("O:O").

И нет необходимости использовать глобальные переменные (если вы не используете их где-то в другом месте)

Ответ 2

Попробуйте этот более сжатый код:

Sub LoopOverEachColumn()
    Dim WS As Worksheet
    For Each WS In ThisWorkbook.Worksheets
        ResizeColumns WS
    Next WS
End Sub

Private Sub ResizeColumns(WS As Worksheet)
    Dim StrSize As String
    Dim ColIter As Long
    StrSize = "20.14;9.71;35.86;30.57;23.57;21.43;18.43;23.86;27.43;36.71;30.29;31.14;31;41.14;33.86"
    For ColIter = 1 To 15
        WS.Columns(ColIter).ColumnWidth = Split(StrSize, ";")(ColIter - 1)
    Next ColIter
End Sub

Если вам нужны дополнительные столбцы, просто измените с 1 to 15 на 1 to X где X - индекс столбца StrSize столбца, и добавьте размер столбца, который вы хотите использовать в StrSize.

Например, если вы хотите, чтобы P:P имел ширину 25, просто добавьте ;25 в StrSize и измените ColIter... на ColIter = 1 to 16.

Надеюсь это поможет.

Ответ 3

Вам нужно поместить идентификатор рабочего листа в операторы диапазона, как показано ниже...

 Option Explicit
 Dim ws As Worksheet, a As Range

Sub forEachWs()

For Each ws In ActiveWorkbook.Worksheets
Call resizingColumns
Next

End Sub

Sub resizingColumns()
ws.Range("A:A").ColumnWidth = 20.14
ws.Range("B:B").ColumnWidth = 9.71
ws.Range("C:C").ColumnWidth = 35.86
ws.Range("D:D").ColumnWidth = 30.57
ws.Range("E:E").ColumnWidth = 23.57
ws.Range("F:F").ColumnWidth = 21.43
ws.Range("G:G").ColumnWidth = 18.43
ws.Range("H:H").ColumnWidth = 23.86
ws.Range("i:I").ColumnWidth = 27.43
ws.Range("J:J").ColumnWidth = 36.71
ws.Range("K:K").ColumnWidth = 30.29
ws.Range("L:L").ColumnWidth = 31.14
ws.Range("M:M").ColumnWidth = 31
ws.Range("N:N").ColumnWidth = 41.14
ws.Range("O:O").ColumnWidth = 33.86
End Sub

Ответ 4

Вместо добавления "ws". перед каждым диапазоном, как было предложено выше, вы можете добавить "ws.activate" перед вызовом.

Это приведет вас к рабочему листу, над которым вы хотите работать.