|
本帖最后由 yuan1987 于 2015-11-25 10:15 编辑
VBA设定单元格中中文为华文楷体,数字跟字母是times new Roman,详见附件
Sub Click()
Dim x, s$, i%
For Each x In Selection
x.Font.Name = "华文楷体"
For i = 1 To Len(x)
s = Mid(x, i, 1)
If s Like "#" Then x.Characters(Start:=i, Length:=1).Font.Name = "Times New Roman"
If s Like "[a-zA-Z]" Then x.Characters(Start:=i, Length:=1).Font.Name = "Times New Roman"
Next i
Next x
End Sub
VBA设定格式2.rar
(14.18 KB, 下载次数: 13)
|
|