图示EXCEL表格vba系列84之线条实现晶字显示

在VBA Excel教程系列的第84讲中，我们将展示如何通过编程代码实现汉字以晶字形式的动态显示。如需探索更多内容，请关注相关系列教程。

1、 首先需要建立一张表格，并设置控件按钮，实现汉字晶字显示，如下图所示：

2、 点击鼠标右键，找到指定宏，就可以建立模块一，这样就可以实现按钮运行代码，如下图所示：

3、 进入到vba的project项目模式下，点击Alt F11进入，如下图所示：END1接下来就是编写代码，实现汉字晶字编写，代码如下图所示：

2、 代码：Sheet1.Range("C2：E3").Borders(xlEdgeLeft).Weight = xlThickSheet1.Range("C2：E3").Borders(xlEdgeRight).Weight = xlThickSheet1.Range("C2：E3").Borders(xlEdgeBottom).Weight = xlThickSheet1.Range("C2：E3").Borders(xlEdgeTop).Weight = xlThickSheet1.Range("C2：E3").Borders(xlInsideHorizontal).Weight = xlThickSheet1.Range("B5：C6").Borders(xlEdgeLeft).Weight = xlThickSheet1.Range("B5：C6").Borders(xlEdgeRight).Weight = xlThickSheet1.Range("B5：C6").Borders(xlEdgeBottom).Weight = xlThickSheet1.Range("B5：C6").Borders(xlEdgeTop).Weight = xlThickSheet1.Range("B5：C6").Borders(xlInsideHorizontal).Weight = xlThickSheet1.Range("E5：F6").Borders(xlEdgeLeft).Weight = xlThickSheet1.Range("E5：F6").Borders(xlEdgeRight).Weight = xlThickSheet1.Range("E5：F6").Borders(xlEdgeBottom).Weight = xlThickSheet1.Range("E5：F6").Borders(xlEdgeTop).Weight = xlThickSheet1.Range("E5：F6").Borders(xlInsideHorizontal).Weight = xlThickEND1最后就是点击按钮，执行代码，显示结果，实现汉字晶字显示，如下图所示：