Board logo

標題: [發問] 改變字型 [打印本頁]

作者: PJChen    時間: 2012-10-2 14:23     標題: 改變字型

請教各位大大:
附件: [attach]12671[/attach]

如何在C:F欄依B欄位所指定的字型改變原先的字?

P.S. 電腦中的字型,可能會一直增加,因字型很多,想一次性看到所有的字型以供套用,如何辦到?
作者: Hsieh    時間: 2012-10-2 19:10

回復 1# PJChen
  1. Sub ex()
  2. On Error Resume Next '字型不存在會出錯,讓程序繼續執行
  3. Dim A As Range
  4. For Each A In Range([B2], [B2].End(xlDown))
  5.   ft = Split(A, ".")(0)
  6.   A.Resize(, 5).Font.Name = ft
  7.   Err.Clear '清除錯誤
  8. Next
  9. 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/)