"Шапка" а VBA

[valerij]

Как сделать "шапку" в коде или надо ли, ее, делать в коде?
Один, лист(КОТ), отличается одним столбцом "В" от других и это вызывает, мои трудности.

З. Ы.
Надоело в каждом листе править ее размеры, как они меняются, загадка

[VictorM]

Вообще-то все эти "шапки" элементарно записываются макрорекордером. Вот пример подредактированного макроса одной строки Вашей шапки

Sub Макрос1()
With Application
     .EnableEvents = False
    Range("A1").Interior.ColorIndex = 3
    With Range("B1:D1")
        .MergeCells = True
        .HorizontalAlignment = xlCenter
        .FormulaR1C1 = "ПОСТАВЩИКИ"
        .Interior.ColorIndex = 16
    End With
    With Range("E1:F1")
        .MergeCells = True
        .HorizontalAlignment = xlCenter
        .FormulaR1C1 = "Хлебо_завод"
        .Interior.ColorIndex = 11
    End With
    With Range("G1:H1")
        .MergeCells = True
        .HorizontalAlignment = xlCenter
        .FormulaR1C1 = "Реализация"
        .Interior.ColorIndex = 10
    End With
    With Range("I1")
        .FormulaR1C1 = "НАКЛАДНЫЕ"
        .Interior.ColorIndex = 36
        .Font.Size = 12
        .Font.ColorIndex = 3
        .Font.Bold = True
    End With
    With Range("J1:K1")
        .MergeCells = True
        .HorizontalAlignment = xlCenter
        .FormulaR1C1 = "Доставка ХЗ"
        .Interior.ColorIndex = 42
        .Font.Size = 12
        .Font.ColorIndex = 0
        .Font.Bold = True
    End With
        With Range("B1:H1").Font
        .Name = "Arial Cyr"
        .Size = 12
        .ColorIndex = 2
        .Bold = True
    End With
    .EnableEvents = True
End With

End Sub

здесь еще нужно, если нужно, выставить размеры столбцов или можно авторазмер по надписи
.EntireColumn.AutoFit
все это пишет макрорекордер.
Записывайте и анализируйте код.

[valerij]

Сообщение от VictorM

Вообще-то все эти "шапки" элементарно записываются макрорекордером.

А как быть с листом(КОТ)?

[VictorM]

Что такое макрорекордер?

на листе Excel меню Сервис - Макрос - Начать запись
проделываете необходимые действия и выключаете запись макроса.
Смотрите в редакторе VBE получившийся код. Анализируете.
Конечно, получившийся в результате записи макроса код будет избыточным и отличаться от того, что например я выложил (в последующем его можно просто сократить и модифицировать), но будет полностью работоспособным.
Кстати, самый лучший способ в начальной стадии изучения VBA, для понимания "что и как" - анализ кода записанных макросов.
При пошаговом (F8) выполнении макроса, расположив рабочее окно Excel и окно редактора VBA рядом (благо размеры современнх мониторов это позволяют) можно отслеживать что и как делает каждая строка кода.

А как быть с листом(КОТ)?

точно так же.

[valerij]

Сообщение от VictorM

точно так же.

И какого размера все это будет?
А формой?

[VictorM]

И какого размера все это будет?

код? нормального.

А формой?

???

[valerij]

Сообщение от VictorM

код? нормального.

Нет, листинг, полкилометра.
Наверно, проще, в коде размеры проставить?

[VictorM]

Нет, листинг, полкилометра.

1. я говорил, что код записанный макросом избыточный и редактируется.
2. а Вам его что, носить?

Наверно, проще, в коде размеры проставить?

в коде можно проставить ВСЁ