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

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

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

3、进入到vba的project项目模式下，点击Alt + F11进入，如下图所示：

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

2、代码：

Sheet1.Range("C2：E3").Borders(xlEdgeLeft).Weight = xlThick

Sheet1.Range("C2：E3").Borders(xlEdgeRight).Weight = xlThick

Sheet1.Range("C2：E3").Borders(xlEdgeBottom).Weight = xlThick

Sheet1.Range("C2：E3").Borders(xlEdgeTop).Weight = xlThick

Sheet1.Range("C2：E3").Borders(xlInsideHorizontal).Weight = xlThick

Sheet1.Range("B5：C6").Borders(xlEdgeLeft).Weight = xlThick

Sheet1.Range("B5：C6").Borders(xlEdgeRight).Weight = xlThick

Sheet1.Range("B5：C6").Borders(xlEdgeBottom).Weight = xlThick

Sheet1.Range("B5：C6").Borders(xlEdgeTop).Weight = xlThick

Sheet1.Range("B5：C6").Borders(xlInsideHorizontal).Weight = xlThick

Sheet1.Range("E5：F6").Borders(xlEdgeLeft).Weight = xlThick

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

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

Sheet1.Range("E5：F6").Borders(xlEdgeTop).Weight = xlThick

Sheet1.Range("E5：F6").Borders(xlInsideHorizontal).Weight = xlThick

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

2、最终可以得出，可以将代码实现结果，汉字晶字显示，如下图所示：