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

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

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

3、进入到vba的project项目模式下，以便可以编写代码，如下图所示：

1、接下来就是编写代码，实现汉字回字显示，利用单元格的线条实现，如下图所示：

2、代码：

Sheet1.Range("C5").Borders.Weight = xlThick

Sheet1.Range("B4:D6").Borders(xlEdgeLeft).Weight = xlThick

Sheet1.Range("B4:D6").Borders(xlEdgeRight).Weight = xlThick

Sheet1.Range("B4:D6").Borders(xlEdgeTop).Weight = xlThick

Sheet1.Range("B4:D6").Borders(xlEdgeBottom).Weight = xlThick

显示汉字回字

1、最后就是点击按钮，执行代码，实现结果，显示汉字回，如下图所示：

2、最终可以利用单元格的线条，代码编写实现汉字回字显示，如下图所示：