通过滚动条来控制单元格的颜色。

在表格中绘制几个滚动条，通过滚动条就可以更改单元格颜色。这个模仿电脑中三色调颜色。

我们看如何实现的。

思路介绍一下：

可以通过RGB来设置单元格颜色，这个是最基本的原理。

Range(“a1”).inderior.color=RGB(0,255,0)

开发工具中按如下插入滚动条。

对滚动条需要设置属性

选中滚动条，按如下设置属性

主要设置，最小值，最大值，以及链接的单元格。

RGB取值范围为0-255,所以最小值为0，最大值为255

LinkedCell为G5,也就是拖动滚动条G5的数值会发生变化。

另外的两个滚动条分别链接到G6,G7

最后的代码如下，三个滚动条都有事件过程，只要滚动条改变了，A1单元格颜色将变化。

A1:H1为合并单元格，所以只需要设置A1单元格的颜色。

Private Sub ScrollBar1_Change() Range("A1").Interior.Color = RGB(Cells(5, 7), Cells(6, 7), Cells(7, 7)) End Sub

Private Sub ScrollBar2_Change() Range("A1").Interior.Color = RGB(Cells(5, 7), Cells(6, 7), Cells(7, 7)) End Sub

Private Sub ScrollBar3_Change() Range("A1").Interior.Color = RGB(Cells(5, 7), Cells(6, 7), Cells(7, 7)) End Sub

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。