图示EXCEL表格vba系列101之TintAndShade=1属性

1、首先需要建立一个表格，并建立一个按钮控件，方便点击触发TintAndShade=1属性事件，如下图所示：

2、点击鼠标右键，进入到按钮控件中的指定宏属性，如下图所示：

3、进入到EXCEL表格vba的project项目模式下，如下图所示：

1、接下来就是编写代码，编写体现TintAndShade=1属性情况，编写代码如下图所示：

2、代码：

Sub Msg()

Sheet1.Range("C2:D3").Borders(xlEdgeRight).TintAndShade = 1

End Sub

体现TintAndShade = 1属性情况显示

1、最后就是点击按钮控件，执行代码，显示结果，将TintAndShade = 1属性的结果显示出来，如下图所示：

2、最终可以得出TintAndShade = 1属性代码显示出来的结果为单元格的线条显示，如下图所示：