[算表] VBA 頁首抓取固定儲存格文字並且設定格式

[lgtenos (我真是猜不透你阿)]

軟體:EXCEL

版本:365


頁首是固定文字的話，這樣寫可以指定頁首的文字格式
ActiveSheet.PageSetup.CenterHeader = "&18&B&""Microsoft JhengHei""test"

頁首如果是要抓取工作表內某儲存格的文字，要如何設定頁首的文字格式呢?
ActiveSheet.PageSetup.CenterHeader = ActiveSheet.Cells(2, 10)

試了好久都寫不出來
有人能幫幫忙嗎



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.133.19.154 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1638937356.A.B4D.html
推 waiter337: ActiveSheet.Cells(2, 10) 改成
→ waiter337: 文字格式喔= = ?
→ lgtenos: 是的，想要修改頁首的字型，文字大小，粗體
推 gunit01: 可以試試看錄製巨集修改格式，再把你要的條件加入巨集
→ soyoso: 二個雙引號改為一個
→ soyoso: https://i.imgur.com/HiJRrcA.gif 如儲存格內改為這樣的話
→ soyoso: ...cells(2,10)是可行的
→ waiter337: https://imgur.com/a/j33eJrV
→ waiter337: """&18&B&""""Microsoft JhengHei""""" & ActiveSheet.
→ waiter337: Cells(2, 10) & """"
→ waiter337: 我沒招了
→ lgtenos: 謝謝各位
→ lgtenos: 最後修改成如下就可以了
→ lgtenos: ...header="&""微軟正黑體,粗體""&16" + Act...(2, 10)
→ lgtenos: 是不是因為要先塞一個字串讓他設定好格式之後
→ lgtenos: 才能抓取儲存格資料
→ waiter337: 他的centerHeader 有很煩的機制
→ waiter337: 我建議 .centerheader 要做兩次
→ waiter337: 第一次 要用.CenterHeader = ""  清空所有資料
→ waiter337: 第二次再放入你要的格式跟文字  不然會被前一次卡住
→ waiter337: 試到最後還失敗 只能用s大的方法
→ waiter337: 我一直遇到 第一次有用  第二次就改不掉的問題