返回列表 上一主題 發帖

[發問] 改變字型

[發問] 改變字型

請教各位大大:
附件: fonts.zip (22.13 KB)

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

P.S. 電腦中的字型,可能會一直增加,因字型很多,想一次性看到所有的字型以供套用,如何辦到?

回復 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
複製代碼
學海無涯_不恥下問

TOP

回復 2# Hsieh
大大,

可否幫忙看一下,字型自第305列就無法自動改變字型了,我將您寫的程式已加在檔案中.

fonts.zip (46.29 KB)

TOP

回復 3# PJChen

超出EXCEL的規格限制
唯一的字型類型 1,024 種通用字型;每一個活頁簿可使用 512 種
學海無涯_不恥下問

TOP

回復 4# Hsieh
大大,

了解,所以我可以將改變的字型另存,再做下一步! TKS.

TOP

大家一起研究學習成長

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題