Нижний колонтитул формата Excel VBA, который содержит вычисленное значение

Question

У меня есть макрос для нижнего колонтитула, который использует функции RIGHT и LEN для извлечения строк из различных ячеек на листе. Я проверил на различных листах, и это работает.

ActiveSheet.PageSetup.RightFooter = Right(Range("D11"), 8) + Right(Range("D4"), Len(Range("D4")) - 24)

Я выполнил домашнее задание и применил метод «запись макроса» для форматирования нижнего колонтитула и придумал следующее:

 ActiveSheet.PageSetup.RightFooter = "&""Times New Roman,Regular"

Я не знаю, как объединить эти два без потери моих значений или получения ошибки компиляции.

Answer 1

Ах, он ищет кавычки, как это -

ActiveSheet.PageSetup.RightFooter = "&""Algerian,Bold" & """" & Left(Range("A44"), 7) + " " & Mid(Range("B44"), 4, 11) 

Для тебя -

ActiveSheet.PageSetup.RightFooter = "&""Times New Roman,Regular" & """" & Right(Range("D11"), 8) + Right(Range("D4"), Len(Range("D4")) - 24)