[算表] VBA 页首抓取固定储存格文字并且设定格式

楼主: lgtenos (我真是猜不透你阿)   2021-12-08 12:22:33
软件:EXCEL
版本:365
页首是固定文字的话,这样写可以指定页首的文字格式
ActiveSheet.PageSetup.CenterHeader = "&18&B&""Microsoft JhengHei""test"
页首如果是要抓取工作表内某储存格的文字,要如何设定页首的文字格式呢?
ActiveSheet.PageSetup.CenterHeader = ActiveSheet.Cells(2, 10)
试了好久都写不出来
有人能帮帮忙吗
作者: waiter337 (给开司一罐苏格登)   2021-12-08 12:34:00
ActiveSheet.Cells(2, 10) 改成文字格式喔= = ?
楼主: lgtenos (我真是猜不透你阿)   2021-12-08 12:37:00
是的,想要修改页首的字型,文字大小,粗体
作者: gunit01 (晋纬)   2021-12-08 12:46:00
可以试试看录制宏修改格式,再把你要的条件加入宏
作者: soyoso (我是耀宗)   2021-12-08 12:47:00
二个双引号改为一个https://i.imgur.com/HiJRrcA.gif 如储存格内改为这样的话...cells(2,10)是可行的
作者: waiter337 (给开司一罐苏格登)   2021-12-08 13:05:00
https://imgur.com/a/j33eJrV"""&18&B&""""Microsoft JhengHei""""" & ActiveSheet.Cells(2, 10) & """"我没招了
楼主: lgtenos (我真是猜不透你阿)   2021-12-08 13:14:00
谢谢各位最后修改成如下就可以了...header="&""微软正黑体,粗体""&16" + Act...(2, 10)是不是因为要先塞一个字串让他设定好格式之后才能抓取储存格资料
作者: waiter337 (给开司一罐苏格登)   2021-12-08 13:49:00
他的centerHeader 有很烦的机制我建议 .centerheader 要做两次第一次 要用.CenterHeader = "" 清空所有资料第二次再放入你要的格式跟文字 不然会被前一次卡住试到最后还失败 只能用s大的方法我一直遇到 第一次有用 第二次就改不掉的问题

Links booklink

Contact Us: admin [ a t ] ucptt.com