註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 改變字型
返回列表
下一主題
上一主題
發帖
[發問]
改變字型
PJChen
發短消息
加為好友
PJChen
(PJ)
當前離線
UID
6204
帖子
913
主題
150
精華
0
積分
1089
金錢
1089
點名
0
作業系統
win10
軟體版本
office 2019
閱讀權限
50
性別
女
在線時間
851 小時
註冊時間
2011-8-28
最後登錄
2023-7-19
暱稱:
PJ
大學生
帖子
913
主題
150
精華
0
積分
1089
點名
0
作業系統
win10
軟體版本
office 2019
閱讀權限
50
性別
女
註冊時間
2011-8-28
最後登錄
2023-7-19
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2012-10-2 14:23
|
只看該作者
[發問]
改變字型
請教各位大大:
附件:
fonts.
zip
(22.13 KB)
下載次數: 8
2012-10-2 14:18
如何
在C:F欄依B欄位所指定的字型改變原先的字?
P.S. 電腦中的字型,可能會一直增加,因字型很多,想一次性看到所有的字型以供套用,如何辦到?
樓主熱帖
讓公式的值,直接帶入儲存格
找出各群組的眾數(不含0)
自動套表
不同的sheet相同的動作,如何讓它一次性完成
填入廠缺&註解
根據"料號欄"為依據,做排序
如何匯入EXCEL資料?
對應日期貼盤點資料
巨集陣列的程式
Norton Ghost 11以USB開機
收藏
分享
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
120
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4138 小時
註冊時間
2010-4-30
最後登錄
2025-5-18
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
120
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-5-18
2
#
發表於 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
複製代碼
學海無涯_不恥下問
TOP
PJChen
發短消息
加為好友
PJChen
(PJ)
當前離線
UID
6204
帖子
913
主題
150
精華
0
積分
1089
金錢
1089
點名
0
作業系統
win10
軟體版本
office 2019
閱讀權限
50
性別
女
在線時間
851 小時
註冊時間
2011-8-28
最後登錄
2023-7-19
暱稱:
PJ
大學生
帖子
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)
下載次數: 7
2012-10-3 08:44
TOP
Hsieh
發短消息
加為好友
Hsieh
當前離線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
120
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4138 小時
註冊時間
2010-4-30
最後登錄
2025-5-18
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
120
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-5-18
4
#
發表於 2012-10-3 17:38
|
只看該作者
回復
3#
PJChen
超出EXCEL的規格限制
唯一的字型類型 1,024 種通用字型;每一個活頁簿可使用 512 種
學海無涯_不恥下問
TOP
PJChen
發短消息
加為好友
PJChen
(PJ)
當前離線
UID
6204
帖子
913
主題
150
精華
0
積分
1089
金錢
1089
點名
0
作業系統
win10
軟體版本
office 2019
閱讀權限
50
性別
女
在線時間
851 小時
註冊時間
2011-8-28
最後登錄
2023-7-19
暱稱:
PJ
大學生
帖子
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
c120565667
發短消息
加為好友
c120565667
當前離線
UID
11252
帖子
2
主題
0
精華
0
積分
8
金錢
8
點名
0
作業系統
WINXP
軟體版本
OFFICE2003
閱讀權限
10
性別
男
在線時間
0 小時
註冊時間
2012-10-9
最後登錄
2012-10-9
小學生
帖子
2
主題
0
精華
0
積分
8
點名
0
作業系統
WINXP
軟體版本
OFFICE2003
閱讀權限
10
性別
男
註冊時間
2012-10-9
最後登錄
2012-10-9
6
#
發表於 2012-10-9 11:41
|
只看該作者
大家一起研究學習成長
TOP
靜思自在 :
有心就有福,有願就有力,自造福田,自得福緣。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲