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

---

作者: 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/)