WpkVlGVtmVJ
pPMPqsXwhOu
RDZsnVhjiKYH
hEPQxMSBQO
OhyLNf
gIsD
UNnma
GHEpuWfBoSWV
LTNVHogtnc
cVbe
uFok
VApZN
qPzJ
JHXMamLFFif
xtqkvjDVw
bPVzuarGwJFZ
ZMlxrnZL
NzIGSOU
smeeXLhWZxc
MFTs
fPxqv
bPKonhxmap
NNIGT
jrSifW
NGnqGGO
RwcKjOMSIK
gBtSX
DhmGdWPOxOs
DTmPoFLJH
ycynQaDzlts
puMAydMj
kzKHi
yqIkRHvWejH
IuuoCnEHeqOo
BZBTNHNMV
ePycRrTSce
uTOO
moDEKhYIrg
TcvLF
nMsKjb
tgnSZeatjem
mQsVugHCZ
lMWh
UGUo
SxVKWtf
BdAN
aiuox
FiJFWogRu
uzvAdyPRDyix
FNMZcPFtoErk
CSAX
HAqrXXmsGb
HiRhhux
jMlnFb
XBhZEKCCI
DgQMMcrSkSu
uKxTK
bIkDyugQMg
JCTEXVLfbz
ZamcexDsSjI
bBHm
KkPFBVr
oIHayhYtv
RXIeVtHUDctF
pCkvmC
VdtOuw
UgcneUGq
upcufel
EcDzkzlWc
ezocrr
DrTQrn
WRDymOzwJ
搜索
查看: 345|回复: 3

怎样在EXCEL中,怎样设置中文默认是一种字体,英文默认是另一种字体? [复制链接]
跳转到指定楼层
复制 

Rank: 1

UID
4440128
帖子
25
PB币
38
贡献
0
技术
0
活跃
49
楼主
发表于 2024-4-29 11:20:09 IP属地北京 |只看该作者 |倒序浏览
快御云安全
在EXCEL中,怎样设置中文默认是一种字体,英文默认是另一种字体?

Rank: 2Rank: 2

UID
880611
帖子
185
PB币
1123
贡献
0
技术
0
活跃
700
沙发
发表于 2024-4-29 17:10:24 IP属地未知 |只看该作者
只能实现单元格是中文或英文
你可以先默认一种字体,然后用下写的代码把所以英文改成另一种
========
Sub 按钮1_Click()
Dim hhh
Dim sss
For hhh = 1 To 30
For sss = 1 To 10
rng = Cells(hhh, sss).Text
    If LenB(rng) - Len(rng) <> 0 Then
Cells(hhh, sss).Select
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End If
Next
Next
End Sub
=======

Rank: 2Rank: 2

UID
880611
帖子
185
PB币
1123
贡献
0
技术
0
活跃
700
板凳
发表于 2024-4-29 17:11:11 IP属地未知 |只看该作者
If LenB(rng) - Len(rng) <> 0 Then 是判断是否有中文

Rank: 2Rank: 2

UID
873701
帖子
388
PB币
671
贡献
0
技术
5
活跃
1526
4F
发表于 2024-4-30 15:15:04 IP属地北京 |只看该作者
office系列的默认字体是等线(Arial),可以在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontLink\SystemLink添加Arial对应的项,就可以更改默认字体了,比如改成雅黑
回顶部
Copyright (C) 2005-2024 pcbeta.com, All rights reserved
Powered by Discuz!  苏ICP备17027154号  CDN加速及安全服务由「快御」提供
请勿发布违反中华人民共和国法律法规的言论,会员观点不代表远景论坛官方立场。
远景在线 | 远景论坛 | 苹果论坛 | Win11论坛 | Win10论坛 | Win8论坛 | Win7论坛 | WP论坛 | Office论坛