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 With

End Sub

运行上面代码，这样我们输入中文就是11号宋体，输入数字或英文就是Times New Roman 字体。