图示EXCEL表格vba系列83之代码实现汉字品显示，简要说明如何使用编写代码实现汉字品字显示水貔藻疽，若是想了解其他系列可以关注。
工具/原料
EXCEL表格2007
链接：https://pan.baidu.com/s/151dEraIpSVesNJL0khfo2w
密码在注意事项里面
方法/步骤
1、首先需要建立一张表格，并设置一个按钮控件，实现汉字品字显示，如下图所示：
2、点击右键找到指定宏，就可以建立模块一，以便编写代码，如下图所示：
3、进入到vba的project项目模式下，以便可以使用代码实现汉字编写，如下图所示：
方法/步骤2
1、接下来就是编写代码，实现代码线条汉字品字编写，如下图所示：
2、代码：Sheet1.Range("C2：E4").B艺皱麾酪orders(xlEdgeTop).Weight=x造婷用痃lThickSheet1.Range("C2：E4").Borders(xlEdgeBottom).Weight=xlThickSheet1.Range("C2：E4").Borders(xlEdgeLeft).Weight=xlThickSheet1.Range("C2：E4").Borders(xlEdgeRight).Weight=xlThickSheet1.Range("B6：C8").Borders(xlEdgeTop).Weight=xlThickSheet1.Range("B6：C8").Borders(xlEdgeBottom).Weight=xlThickSheet1.Range("B6：C8").Borders(xlEdgeLeft).Weight=xlThickSheet1.Range("B6：C8").Borders(xlEdgeRight).Weight=xlThickSheet1.Range("E6：F8").Borders(xlEdgeTop).Weight=xlThickSheet1.Range("E6：F8").Borders(xlEdgeBottom).Weight=xlThickSheet1.Range("E6：F8").Borders(xlEdgeLeft).Weight=xlThickSheet1.Range("E6：F8").Borders(xlEdgeRight).Weight=xlThick
方法/步骤3
1、最后就是点击按钮，执行代码，实现结果，显示出效果，如下图所示：
2、可以简单的使用代码，实现结果，品字显示，如下图所示：
3、最终可以得出结果，使用线条显示出汉字品。