Excel VBA для создания заголовка ОШИБКА

Question

В настоящее время я использую макрос ниже, чтобы настроить заголовок, основанный на содержимом ячейки B3 в электронной таблице «Ссылка», и использовал его когда-то сейчас.

В настоящее время я сталкиваюсь с проблемой, когда шрифт заголовка становится очень большим. Заголовок становится настолько большим, что, если я печатаю таблицу (которую я часто делаю с этим файлом), она монополизирует всю страницу - другими словами - заголовок обгоняет всю область печати, потому что она такая большая.

Может ли кто-нибудь увидеть, где я ошибаюсь в макросе, или у вас есть идея, почему это происходит и как решить эту проблему?

---- 

'========================================================================= 
' Custom Header based on value of specified cell 
'========================================================================= 

Sub HeaderFont() 

ActiveSheet.PageSetup.RightHeader = "&""Calibri,bold""&11" & Sheets("Reference").Range("B3") 

End Sub 

Answer 1

Возможно, вам будет интересно узнать что-то наподобие следующего кода. Он проверяет длину строки в ячейке «B3» и в соответствии с длиной (с использованием Select Case) задает размер шрифта заголовка. Вам нужно будет отрегулировать значения внутри Case s в соответствии с вашими потребностями.

Option Explicit 

'========================================================================= 
' Custom Header based on value of specified cell 
'========================================================================= 

Sub HeaderFont() 

Dim FntSize As Integer 

Select Case Len(Sheets("Reference").Range("B3")) 
    Case Is > 300 ' <-- length of string is more than 300 characters 
     FntSize = 11 

    Case Is > 200 ' <-- length of string is more than 200 characters 
     FntSize = 12 

    Case Else 
     FntSize = 13 

    ' you can add more Cases to have more scenarios 

End Select 

ActiveSheet.PageSetup.RightHeader = "&""Calibri,Bold""&" & FntSize & "" & Sheets("Reference").Range("B3") 

End Sub