Stopka formatu Excel VBA, która zawiera obliczoną wartość

Mam makro dla mojej stopki, która używa funkcji PRAWO i DŁUGOŚĆ do pobierania ciągów z różnych komórek w arkuszu. Testowałem na różnych arkuszach i to działa.

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

Odrobiłem pracę domową i skorzystałem z metody „record macro”, aby sformatować stopkę, i wymyśliłem:

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

Nie wiem, jak je połączyć, nie tracąc wartości ani nie otrzymując błędu kompilacji.

microsoft-excel vba macros

— dasMetzger
źródło

Czy trzeba je łączyć? Spróbuj pozostawić je jako osobne polecenia w osobnych wierszach. Jeden będzie działał po zakończeniu drugiego.

— CharlieRB

Kiedy stosuję kod jako osobne polecenia w osobnych wierszach, albo otrzymuję pustą stopkę, albo otrzymuję stopkę w domyślnej czcionce Arial 10 pkt.

— dasMetzger

Ach, szuka znaków cudzysłowu, takich jak ten -

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

Dla Was -

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

— Raystafarian
źródło

@dasMetzger powinno to zrobić

— Raystafarian

to działa! na końcu nie potrzebowałem dodatkowych „” „”. Czy wiesz, dlaczego szukał tych cytatów? nie mam wystarczającej liczby przedstawicieli, aby cię głosować. ale dzięki

— dasMetzger

@dasMetzger coś o tym, że chce napisu, jakbyś zobaczył, że zarejestrowałby makro, które by to zrobił"&""font""what you typed"

— Raystafarian

podczas rozwiązywania problemów próbowałem umieścić całą formułę RIGHT w cytatach, ale oczywiście nie dostałem nic w zamian za fizyczne znaki w formule.

— dasMetzger

Tak, ponieważ VBA ""jest technicznie „ w zwykłym programie Excel”, potrzebujesz „” „”

— Raystafarian