首先，看上图，我们会用到图中的一个对象：Interior
此对象可使用单元格的Range.Iterior返回。
如：Range("A1").Interior
就表示返回A1单元格的内部对象，接下来对它进行属性设置，就会改变A1单元格的内部格式。
Interior属性有如下几种：利用上述属性可以设置单元格内部颜色，填充图案，和填充颜色以及颜色的明暗度等等。
下面有一个示例来具体看一下，设置不同属性值带来的变化。No.2
代码
设置单元格Interior属性
Private Sub CommandButton1_Click()Dim cell As RangeSet cell = ActiveSheet.Rows(3)With cell.Interior.Color = QBColor(11) '背景颜色.TintAndShade = 0.5 '灰度值.Pattern = xlPatternChecker '填充图案.PatternColor = 15 '填充图案颜色End WithEnd Sub
滚动条改变背景灰度
Private Sub ScrollBar1_Change()Dim xV As DoublexV = Me.ScrollBar1.Value / 10Me.TextBox1.Value = xVsetBackColor xV'调用函数End Sub
设置背景颜色和灰度函数
Private Sub setBackColor(xV As Double)Dim cell As RangeSet cell = ActiveSheet.CellsWith cell.Interior.Color = QBColor(12).TintAndShade = xVEnd WithEnd Sub
Interor对象对于VBA编程十分有用，其属性也不多，属于比较容易掌握的一类对象，所以，在工作当中，可以多学习此类属性应用。
欢迎关注、收藏
---END---