Форматирование ячейки по образцу

[yuretsnsk]

Каким образом можно сделать форматирование (начертание шрифта) ячейки А1 на листе 1 по образцу ячейки А1 на листе 2?

[SAS888]

В Excel 2003 в стандартной панели инструментов есть опция "Формат по образцу".

[yuretsnsk]

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

В Excel 2003 в стандартной панели инструментов есть опция "Формат по образцу".

Хотелось бы сделать в VBA, и без опции формат по образцу.
потому как на первом листе есть объединенные ячейки, требуется изменять только начертание шрифта.

вообще в идеале хочу сделать так:
на листе 2 такие исходные данные по ячейкам:
A1 - 1 Раздел
A2 - позиция 1
A3 - позиция 2

Все данные со второго листа копируются на первый. С первого листа будет происходить печать всех данных. На втором листе будут исх. данные.
Так вот, хочу сделать чтобы на первом листе наименование раздела (1 Раздел) выделялось жирным шрифтом и подчеркивалось.

[tolikman]

может поможет:
копирует формат - выбери нужное:

Public Sub copyFormat(ByRef FromRange As range, ByRef ToRange As range)
    Dim fnt As Font, ntr As Interior
    Set fnt = ToRange.Font
    With FromRange.Font 'соответственно шриф
        fnt.Background = .Background 'фон текста
        fnt.Bold = .Bold 'жирный
        fnt.Color = .Color 'цвет
        fnt.ColorIndex = .ColorIndex 
        fnt.FontStyle = .FontStyle 
        fnt.Italic = .Italic 'косой
        fnt.Size = .Size 'размер
        fnt.Strikethrough = .Strikethrough 'зачеркнутый
        fnt.Subscript = .Subscript 'верхний регистр
        fnt.Superscript = .Superscript 'нижний
        fnt.TintAndShade = .TintAndShade
        fnt.Underline = .Underline 'подчеркнутый
    End With
    Set ntr = ToRange.Interior
    With FromRange
        ToRange.HorizontalAlignment = .HorizontalAlignment 'горизонатльное выравнивание
        ToRange.VerticalAlignment = .VerticalAlignment 'вертикальное выравнивание
    End With
    With FromRange.Interior 'настройки самой ячейки
        ntr.Color = .Color
        ntr.ColorIndex = .ColorIndex
        ntr.Pattern = .Pattern
        ntr.PatternColor = .PatternColor
        ntr.PatternColorIndex = .PatternColorIndex
        ntr.PatternTintAndShade = .PatternTintAndShade
        ntr.TintAndShade = .TintAndShade
    End With
End Sub

[SAS888]

Посмотрите вложение. Запустите макрос "Main". Сделано для 1-го листа.
В коде макроса есть закомментированная строка. Если ее задействовать, то формулы из столбца "H" на листе "Спецификация на ПЕЧАТЬ" можно будет удалить, т.к. макрос помимо форматов, перенесет и сами значения.