VBA Cell内部颜色，从黑色到白色渐变

Question

我正在使用Excel 2003，想知道从黑色改变单元格内部颜色的最佳方法，然后逐渐淡化为白色。

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

Answer 1

试试这个：

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