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、最终可以利用单元格的线条,代码编写实现汉字回字显示,如下图所示:
