返回列表 上一主題 發帖

[發問] 改變字型

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-10-2 14:23 | 只看該作者

[發問] 改變字型

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

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

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

c120565667

帖子
2 
主題
0 
精華
0 
積分
8 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
10 
性別
男 
註冊時間
2012-10-9 
最後登錄
2012-10-9 
6#
發表於 2012-10-9 11:41 | 只看該作者
大家一起研究學習成長

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2012-10-5 15:28 | 只看該作者
回復 4# Hsieh
大大,

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-10-3 17:38 | 只看該作者
回復 3# PJChen

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

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2012-10-3 08:45 | 只看該作者
回復 2# Hsieh
大大,

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

fonts.zip (46.29 KB)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題