OFFICE 2003 Excel 中英文字型 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » OFFICE 2003 Excel 中英文字型

返回列表下一主題上一主題發帖

[發問] OFFICE 2003 Excel 中英文字型

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-4-5 18:13 | 顯示全部帖子

基本上EXCEL並無此功能
就算打完後要更改自行也必須逐一選取更改字型
要達到這樣效果可借助VBA來達成
在thisworkbook模組中

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim A As Range
For Each A In Target
For i = 1 To Len(A)
k = Asc(Mid(A, i, 1))
If (k >= 65 And k <= 90) Or (k >= 97 And k <= 122) Then
A.Characters(i, 1).Font.Name = "Times New Roman"
ElseIf k >= 255 Or k < 0 Then
A.Characters(i, 1).Font.Name = "標楷體"
End If
Next
Next
End Sub

複製代碼

這樣整個活頁簿輸入時就會依照該分類顯示字型

部分字型.rar (7 KB)

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-4-6 18:16 | 顯示全部帖子

回復 7# trainee

上面的程式碼是利用活頁簿事件，整個活頁簿有效
若要指定工作表可判斷Sh的名稱
或是將成是利用工作表事件驅動

學海無涯_不恥下問

靜思自在 : 要用心，不要操心、煩心。

返回列表下一主題上一主題