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

Odpowiedzi:

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