29249946

小學生 Rank: 1

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-3 00:09 | 只看該作者

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

請問Excel 2003，儲存格內的中文要改成標楷體，英文改成Times New Roman，有辦法和Word一樣中英文改不同字型嗎?

不必每次要打字遇就要把中英文都要再重複更改字型。

麻煩各位大大，第一次發文，有違規的地方請見諒。

樓主熱帖

bvge

中學生 Rank: 2

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

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

2^#

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

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

TOP

29249946

小學生 Rank: 1

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

3^#

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

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

TOP

gong

版主 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 | 只看該作者

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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)

學海無涯_不恥下問

TOP

29249946

小學生 Rank: 1

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

6^#

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

回復 5# Hsieh

謝謝呢!!

TOP

trainee

中學生 Rank: 2

帖子: 92
主題: 12
精華: 0
積分: 217
點名: 90
作業系統: Window XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2025-4-22

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

7^#

發表於 2011-4-6 17:50 | 只看該作者

再見識多一次 Hsieh超級版主的功力！
真的使我看得目瞪口呆，勁！

請問，若要全頁均作此設定，
應如何作出攸改？
請版主見諒，我並不是倚頼別人幫忙，
只是我所識有限，力有不逮！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2011-4-6 18:16 | 只看該作者

回復 7# trainee

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

學海無涯_不恥下問

TOP

trainee

中學生 Rank: 2

帖子: 92
主題: 12
精華: 0
積分: 217
點名: 90
作業系統: Window XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2025-4-22

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

9^#

發表於 2011-4-6 18:27 | 只看該作者

本帖最後由 trainee 於 2011-4-6 18:28 編輯

HSIEH超級版主，多謝賜教！
:) :)

TOP

zse4rfv41

小學生 Rank: 1

帖子: 14
主題: 8
精華: 0
積分: 1
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2011-8-19
最後登錄: 2011-9-18

10^#

發表於 2011-8-19 11:01 | 只看該作者

超級版主Hsieh真是厲害
這個問題困擾我很久
在GOOGLE幫助下找到了這個解答
我也加入了本論壇
可惜還是小學生身分
無法下載
殘念

TOP