VBA單元格內部顏色，從黑色漸變爲白色

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