图示EXCEL表格vba系列89之单元格线条实现回字

在VBA Excel教程系列89中，我们将演示如何通过编程代码绘制线条以实现回字效果。深入学习这一技巧后，如需探索更多相关主题，请持续关注我们的其他章节。

1、 首先可以建立表格一张，并创建一个按钮控件，触发按钮后显示回字，如下图所示：

2、 点击鼠标右键，找到指定宏，建立一个模块，如下图所示：

3、 进入到vba的project项目模式下，以便可以编写代码，如下图所示：END1接下来就是编写代码，实现汉字回字显示，利用单元格的线条实现，如下图所示：

2、 代码：Sheet1.Range("C5").Borders.Weight = xlThickSheet1.Range("B4:D6").Borders(xlEdgeLeft).Weight = xlThickSheet1.Range("B4:D6").Borders(xlEdgeRight).Weight = xlThickSheet1.Range("B4:D6").Borders(xlEdgeTop).Weight = xlThickSheet1.Range("B4:D6").Borders(xlEdgeBottom).Weight = xlThick显示汉字回字END1最后就是点击按钮，执行代码，实现结果，显示汉字回，如下图所示：