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

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

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

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

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: office2003
閱讀權限: 10
註冊時間: 2011-4-2
最後登錄: 2015-1-5

6^# 跳轉到 »

發表於 2011-4-5 22:06 | 只看該作者

回復 5# Hsieh

謝謝呢!!

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 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: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

4^#

發表於 2011-4-5 17:46 | 只看該作者

最後再一次編輯不可以嗎
要即時顯示你的需求有困難

知之為知之，不知為不知，誠實也！

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: office2003
閱讀權限: 10
註冊時間: 2011-4-2
最後登錄: 2015-1-5

3^#

發表於 2011-4-4 10:05 | 只看該作者

可是我在統計帳單時，中英文都會參在同一格，這樣就很麻煩要改字型;
打到中文換一次，打到英文又換一次。

中學生 Rank: 2

帖子: 73
主題: 13
精華: 0
積分: 174
點名: 292
作業系統: xp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-2-6
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2011-4-3 04:55 | 只看該作者

如果中文字都是打在A欄，點選A欄最上端，使A欄整欄全部反白
然後，格式\儲存格\字型選標楷體確定
那以後只要在A欄任何一列打字都會顯示為標楷體
如果英文字都是打在B欄，作法如上

靜思自在 : 不要小看自己，因為人有無限的可能。

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