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

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

2、使用Alt+F11组合快捷键进入vbe编辑器或者单击【开发工具】-VIsual Basic，并插入一个新的模块。如图所示。

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 字体。