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