1、首先需要建立一张表格，并设置简单的格式，建立按钮控件，如下图所示：
2、点击鼠标右键，找到指定宏，如下图所示：
3、进入到vba的project项目中，方便编写代码，如下图所示：
1、接下来就是编写代码，在vba的project项目中模块一模式下，如下图所示：
2、代码编写：
Sub Msg()
Sheet1.Range("B3:C3").Borders.Weight = xlThick
Sheet1.Range("B2:B4").Borders(xlEdgeRight).Weight = xlThick
End Sub
1、最后就是点击按钮执行代码，显示结果，如下图所示：
2、最终结果可以看到，可以编写代码实现汉字中字显示，如下所示：
