VBA单元内部颜色，由黑变白

我正在使用Excel2003，想知道将电池的内部颜色从黑色改为白色的最佳方法

我的想法是，我将使用“工作表更改”事件慢慢显示一些放入相关单元格中的黑色文本。

尝试以下操作：

Sub tester()
    FadeToWhite Selection.Offset(1, 0)
End Sub

Sub FadeToWhite(c As Range)
    Const SLOWNESS As Long = 300000
    Dim i As Long, v
    For i = 1 To 255 * SLOWNESS
        If i Mod SLOWNESS = 0 Then
            v = i / SLOWNESS
            c.Interior.Color = RGB(v, v, v)
            DoEvents
        End If
    Next i
End Sub

---

您可能还需要编写一个

子暂停

例程。这样你就可以更容易地控制过渡的速度。哇，这太棒了！