Доброго времени суток, ДрУги во программировании на VBA!
Второй день бьюсь с проблемой программного изменения шрифта (название, полужирность и проч.) в ЧАСТИ текста колонтитула
Наш другпишичитай макрорекордер, кроме всего прочего, дает такой код
так вот в этой заготовке никак не могу заменить некоторые слова на переменные
Т.к. апмперсанд (&), кроме того, что он оператор объединения строк, в колонтитулах он еще и управляющий символ (см. строку с Датой и Временем)
Никак не могу правильно расставить эти амперсанды с кавычками.
В файле два листа. Первый - колонтитулы выставлены и оформлены вручную, второй - нужно так-же сделать программно, через переменные
Спасибо.
Второй день бьюсь с проблемой программного изменения шрифта (название, полужирность и проч.) в ЧАСТИ текста колонтитула
Наш друг
Код |
---|
Sub Макрос3() 'записано макрорекордером With ActiveSheet.PageSetup .LeftHeader = "&""Arial,полужирный""СТР:&""-,обычный"" &D &T" .CenterHeader = "&""Arial,полужирный""СТРАНА:&""-,обычный"" Россия &""Arial,полужирный""РЕГИОН: &""-,обычный""Москва" .RightHeader = "&""Arial,полужирный""САЙТ:&""-,обычный"" WWW.MOS.GOV" End With End Sub |
Код |
---|
Sub PreKolon2() Country$ = "Россия" City$ = "Москва" Site$ = "WWW.MOS.GOV" With ActiveSheet.PageSetup .LeftHeader = "&""Arial,полужирный""СТР:&""-,обычный"" &D &T" 'Дата и Время 'слова Россия, Москва заменить переменными Country, Сity .CenterHeader = "&""Arial,полужирный""СТРАНА:&""-,обычный"" Россия &""Arial,полужирный""РЕГИОН: &""-,обычный""Москва" 'WWW.MOS.GOV заменить на Site .RightHeader = "&""Arial,полужирный""САЙТ:&""-,обычный"" WWW.MOS.GOV" End With ActiveSheet.PrintPreview End Sub |
Никак не могу правильно расставить эти амперсанды с кавычками.
В файле два листа. Первый - колонтитулы выставлены и оформлены вручную, второй - нужно так-же сделать программно, через переменные
Спасибо.
Согласие есть продукт при полном непротивлении сторон