作者home0303 (Blue night)
看板Office
標題[算表] 變更自訂頁尾的VBA
時間Wed Oct 16 02:18:11 2019
軟體:EXCEL
版本:2010
一個工作表的版面設定假如已經有自訂頁尾(置中)
如果我想只更改一件事
那就是將自訂頁尾的"字型" 改成"Times New Roman"
請問要如何以VBA實現呢
原本自訂頁尾有可能是各種文字 或者是如&P、&N之類的變數
若是頁尾原本從無到有的話我可以錄製後加以修改成
.CenterFooter = _
"&12&""Times New Roman,標準""第&""Times New Roman,標準""&P&""Times
New Roman,標準""頁,共&""Times New Roman,標準""&N&""Times New Roman,標準""頁"
可是針對已經存在的頁尾要修改他的格式 我就卡關了
請指教謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.71.62.20 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1571163493.A.984.html
1F:→ soyoso: 可以用個變數=錄製後的字串(如內文"&12&""..."頁") 10/16 06:58
2F:→ soyoso: 要改字型的話,取代replace,centerfooter=取代後的變數 10/16 06:58
3F:→ soyoso: 如要針對已存在的頁尾的話,可以變數=.centerfooter取得 10/16 06:59
4F:→ soyoso: 再去取代 10/16 07:00
5F:→ home0303: 謝S大 但若不知道原本人家所用的字型 恐怕就也無法取代 10/16 16:33
6F:→ home0303: 了是吧 10/16 16:33
7F:→ soyoso: 如以變數=.centerfooter,再對變數來抓取字型名稱出現於該 10/16 17:03
8F:→ soyoso: 字串內位置,如instr找到逗號(,),往instrrev回找",這為 10/16 17:03
9F:→ soyoso: 字型名稱;或以split來取得。 10/16 17:03
10F:→ home0303: 了解 謝謝S大 10/17 09:47