No.1
Excel中给表格设置一些颜色，对于表格的观赏性，还是很好的。
如何利用VBA对表格进行渐变色设置，这就需要我们有一个十分热情来掌握其方法。
下图为设置一个渐变色的效果，颜色不太好，但其功能可以实现。
下面具体解释一下，通过vba代码实现的方法。
No.2
首先要明解如何来实现对表格内部背景设置。
我们要知道表格内部用Interior对象来表示，这就是说要用到这个对象的一些属性。
其简单纯色背景只要对Color属性赋值就可以实现背景颜色设置。
例如：
Range（“A”）.interior.color=rgb(222,1,1)
上面代码就对A1单元格背景设置为红色了。
设置为过渡色不能用此属性，另有属性。
下面看一下interior对象的一些属性：
下图是Pattern常量的枚举类型，也是固定好，自由选择了。不多解释了。
真正用到的是Gradient属性的ColorStop对象，如下图：
ColorStop代表某一区域或所选内容中的渐变填充的色标，其复数ColorStop指定系列的所有**ColorStop** 对象的集合
Degree代表了渐变的角度。
这样就可以实现一个单元格内的渐变颜色、角度变化了，当然还有明暗度等等不做介绍，用到其它属性。
首先把角度和颜色来设置好。
看如下代码图：
No.3
代码
Private Sub CommandButton1_Click()
With Selection.Interior
.Pattern = xlPatternLinearGradient'指定为线性渐变
.Gradient.Degree = 45'设置渐变角度
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.Color = RGB(211, 201, 1)'颜色
.TintAndShade = 0 '应用淡色和阴影
End With
End Sub
仔细看代码就会明白，一个表格内部设置用到Interior对象，然后设置线性渐变用到Pattern属性，这个是必需选择常量xlPatternLinearGradient，如果选择其它就不是线性渐变，后面的代码就是报错。
然后用Gradient.Degreeg来设置渐变的角度0-360度。
其次，这里还有一个ADD，是增加一个渐变颜色节点，渐变颜色利用ColorStop对象来设置，这就是相当于是一个色标。
如此就把一个单元格渐变设置完成了。
是不是有点晕，真的很不好理解。因为这里用到了几个不同的对象和属性。
Interior对象最顶层，设置属性.Pattern和.Gradient.Degree，接下来添加一个ColorStop对象，设置其.Color和TintAndShade属性。
简单就没有意义了，就是在这么多个对象和属性之间来回设置一翻，我们得到了一个更加无聊的结果。
如果你有十分美观的视觉处理能力，那么通过这样一番操作，一个漂亮的表格就出现了。
---END---
欢迎收藏、关注
