图示EXCEL表格vba系列96之代码利用线条显示电字

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

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

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

1、接下来就是编写代码，实现汉字电字显示，代码编写实现，如下图所示：

2、代码：

3、Sheet1.Range("C3：D4").Borders.Weight = xlThick

Sheet1.Range("C2：D2").Borders(xlInsideVertical).Weight = xlThick

Sheet1.Range("C5：D5").Borders(xlInsideVertical).Weight = xlThick

Sheet1.Range("D5：E5").Borders(xlEdgeBottom).Weight = xlThick

Sheet1.Range("E5").Borders(xlEdgeRight).Weight = xlThick

显示汉字电字显示。

1、最后即使点击按钮，运行代码，实现结果，显示汉字电字显示，如下图所示：

2、最终就是利用单元格的线条，实现汉字电字显示，利用代码体现，如下图所示：