如何vba设置单元格中英文、数字、符号的字体？

A1:B10 中已填入数据，有中文、英文、数字及标点符号，默认全部为宋体，如何用vba实现将 A1:B10 中的英文、数字和标点符号的字体更改为 Calibri，而中文部分不变？请高手指点，谢谢！

举报该问题

第1个回答 2021-04-07

Sub 改字体()
Range("A1:B10").Select

With Selection.Font
.Name = "Calibri"
.FontStyle = "常规"
End With
End Sub

相似回答

...中利用VBA实现将选中区域的中文字体改成黑体,英文字体和数字改成Aria...答：把原有的代码做一个修改，把活动单元格（With ActiveCell)变成所选范围(With Selection)。你在执行下面的按钮的之前，选择要更改的范围，即可 Private Sub CommandButton1_Click()Dim str As String Dim i As Integer str = ActiveCell ' With ActiveCell With Selection For i = 1 To Len(str)...

vba如何更改指定内容的字体?答：If Mid(.Value, i, 1) Like "[一-龥]" Then .Characters(i, 1).Font.Name = "宋体"Next End With End Sub

...设置单元格中所有数字的字体大小和字体颜色?VBA,函数或条件格式的解...答：1，使用定位功能：使用快捷键CTRL+G调出定位菜单，选择“常量”（如果是公式得到的数字，则需要在公式下进行选择），去掉常量下除了数值外的其他所有选项，然后点确定。这时候你可以看到，只有数值区域已被选中。这时候就可以设置单元格格式了。例如字体和颜色。2.使用条件格式。条件为: and(单元格位置>=...

在word中VBA去设置表格中的字体,万分感谢!答：Sub test()For i = 1 To ActiveDocument.Tables.Count With ActiveDocument .Range(.Tables(i).Cell(3, 1).Range.Start, .Tables(i).Cell(5, 3).Range.End).Select End With Selection.Font.Size = 8 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Next End Sub ...

excel 批量设置同一单元格中中英文的不同字体答：Else rC.Characters(i, 1).Font.Name = "楷体" End If NextNextApplication.ScreenUpdating = TrueEnd Sub 打开你的工作簿，Alt+F11打开VB编辑器，把上面的代码拷贝后贴进去，关闭VBA编辑器选中需要做这个动作的单元格或区域，工具宏宏，运行既可附件可参考 ...

用VBA怎样设置B列单元格有字符的字体,字号,没有字符的单元不需设置字体...答：= 2 Then If c.Value = "" Then c.ClearFormats Else With c.Font .Name = "华文新魏" '在这里修改你要设的字体 .Size = 18 '在这里修改你要设的字号 End With End If End If NextEnd Sub

大家正在搜

分离单元格中的中文英文 vba引用单元格的数值单元格中英文分开 excel单元格内中英文分开 excel单元格中英文分离 Excel单元格内容中英文转换单元格中英文拆分 vba选中单元格 vba获取单元格的值

excel vba 设置中文、英文和数字字体不同和默认字号

Excel如何批量设置单元格中所有数字的字体大小和字体颜色？...

如何在excel利用VBA将选中单元格中中文改成“宋体”，字...

如何用excel VBA编程将一个单元格中文字数字字母中的数...

VBA(excel)如何批量设置所有有数字的单元格中数字(非...

用vba实现指定的单元格内的数字，字体加粗？

word VBA 设置数字字体为Times New Roma...

excel 批量设置同一单元格中中英文的不同字体