Excel VBA 页面字体设置（中英文字体设置）

1、首先打开Excel工作表，或新建一个表格。

3、在模块中编写如下代码：Sub Selectfont() With ActiveSheet.Cells.Font .Name = "宋体" .Size = 11 End With With ActiveSheet.Cells.Font .Name = "Times New Roman" .Size = 11 End WithEnd Sub运行上面代码，这样我们输入中文就是11号宋体，输入数字或英文就是Times New Roman 字体。