作者lgtenos (我真是猜不透你阿)
看板Office
标题[算表] VBA 页首抓取固定储存格文字并且设定格式
时间Wed Dec 8 12:22:33 2021
软体:EXCEL
版本:365
页首是固定文字的话，这样写可以指定页首的文字格式
ActiveSheet.PageSetup.CenterHeader = "&18&B&""Microsoft JhengHei""test"
页首如果是要抓取工作表内某储存格的文字，要如何设定页首的文字格式呢?
ActiveSheet.PageSetup.CenterHeader = ActiveSheet.Cells(2, 10)
试了好久都写不出来
有人能帮帮忙吗
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.133.19.154 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1638937356.A.B4D.html
1F：推 waiter337: ActiveSheet.Cells(2, 10) 改成 12/08 12:34
2F：→ waiter337: 文字格式喔= = ? 12/08 12:36
3F：→ lgtenos: 是的，想要修改页首的字型，文字大小，粗体 12/08 12:37
4F：推 gunit01: 可以试试看录制巨集修改格式，再把你要的条件加入巨集 12/08 12:46
5F：→ soyoso: 二个双引号改为一个 12/08 12:47
7F：→ soyoso: ...cells(2,10)是可行的 12/08 12:48
9F：→ waiter337: """&18&B&""""Microsoft JhengHei""""" & ActiveSheet. 12/08 13:06
10F：→ waiter337: Cells(2, 10) & """" 12/08 13:06
11F：→ waiter337: 我没招了 12/08 13:08
12F：→ lgtenos: 谢谢各位 12/08 13:14
13F：→ lgtenos: 最後修改成如下就可以了 12/08 13:14
14F：→ lgtenos: ...header="&""微软正黑体,粗体""&16" + Act...(2, 10) 12/08 13:15
15F：→ lgtenos: 是不是因为要先塞一个字串让他设定好格式之後 12/08 13:16
16F：→ lgtenos: 才能抓取储存格资料 12/08 13:16
17F：→ waiter337: 他的centerHeader 有很烦的机制 12/08 13:49
18F：→ waiter337: 我建议 .centerheader 要做两次 12/08 13:50
19F：→ waiter337: 第一次 要用.CenterHeader = "" 清空所有资料 12/08 13:50
20F：→ waiter337: 第二次再放入你要的格式跟文字 不然会被前一次卡住 12/08 13:50
21F：→ waiter337: 试到最後还失败 只能用s大的方法 12/08 14:55
22F：→ waiter337: 我一直遇到 第一次有用 第二次就改不掉的问题 12/08 14:55