標題:
[發問]
改變字型
[打印本頁]
作者:
PJChen
時間:
2012-10-2 14:23
標題:
改變字型
請教各位大大:
附件: [attach]12671[/attach]
如何在C:F欄依B欄位所指定的字型改變原先的字?
P.S. 電腦中的字型,可能會一直增加,因字型很多,想一次性看到所有的字型以供套用,如何辦到?
作者:
Hsieh
時間:
2012-10-2 19:10
回復
1#
PJChen
Sub ex()
On Error Resume Next '字型不存在會出錯,讓程序繼續執行
Dim A As Range
For Each A In Range([B2], [B2].End(xlDown))
ft = Split(A, ".")(0)
A.Resize(, 5).Font.Name = ft
Err.Clear '清除錯誤
Next
End Sub
複製代碼
作者:
PJChen
時間:
2012-10-3 08:45
回復
2#
Hsieh
大大,
可否幫忙看一下,字型自第305列就無法自動改變字型了,我將您寫的程式已加在檔案中.
[attach]12685[/attach]
作者:
Hsieh
時間:
2012-10-3 17:38
回復
3#
PJChen
超出EXCEL的規格限制
唯一的字型類型 1,024 種通用字型;每一個活頁簿可使用 512 種
作者:
PJChen
時間:
2012-10-5 15:28
回復
4#
Hsieh
大大,
了解,所以我可以將改變的字型另存,再做下一步! TKS.
作者:
c120565667
時間:
2012-10-9 11:41
大家一起研究學習成長
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)