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