12
返回列表 上一主題 發帖

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

29249946

帖子
5 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-4-2 
最後登錄
2015-1-5 
6# 跳轉到 »
發表於 2011-4-5 22:06 | 只看該作者
回復 5# Hsieh


   謝謝呢!!

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-4-5 18:13 | 只看該作者
基本上EXCEL並無此功能
就算打完後要更改自行也必須逐一選取更改字型
要達到這樣效果可借助VBA來達成
在thisworkbook模組中
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2. Dim A As Range
  3. For Each A In Target
  4.    For i = 1 To Len(A)
  5.       k = Asc(Mid(A, i, 1))
  6.       If (k >= 65 And k <= 90) Or (k >= 97 And k <= 122) Then
  7.          A.Characters(i, 1).Font.Name = "Times New Roman"
  8.          ElseIf k >= 255 Or k < 0 Then
  9.          A.Characters(i, 1).Font.Name = "標楷體"
  10.       End If
  11.    Next
  12. Next
  13. End Sub
複製代碼
這樣整個活頁簿輸入時就會依照該分類顯示字型 部分字型.rar (7 KB)
學海無涯_不恥下問

TOP

gong

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

論壇貢獻勳章
4#
發表於 2011-4-5 17:46 | 只看該作者
最後再一次編輯不可以嗎
要即時顯示你的需求有困難
知之為知之，不知為不知，誠實也！

TOP

29249946

帖子
5 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-4-2 
最後登錄
2015-1-5 
3#
發表於 2011-4-4 10:05 | 只看該作者
可是我在統計帳單時，中英文都會參在同一格，這樣就很麻煩要改字型;
打到中文換一次，打到英文又換一次。

TOP

bvge

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

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

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
12
返回列表 上一主題