[說明]
利用RGB色碼，讓儲存格不斷變色
 
[程式碼]
Sub JS() '不斷讓儲存格變色
 
 ActiveCell.Interior.Color = RGB(255, 255, 255) '儲存格顏色為白色
 
 For x = 1 To 2 '變色的循環次數，此範例為2次
  r = 256
  g = 256
  b = 256
 
For w = 0 To 255 '白變紅
 g = g - 1
 b = b - 1
 ActiveCell.Interior.Color = RGB(r, g, b)
Next w
 
 For g = 0 To 255 '紅變綠
  r = r - 1
  ActiveCell.Interior.Color = RGB(r, g, b)
 Next g
 
  For b = 0 To 255 '綠變藍
   g = g - 1
   ActiveCell.Interior.Color = RGB(r, g, b)
  Next b
 
  For y = 0 To 255 '藍變黑
   b = b - 1
   ActiveCell.Interior.Color = RGB(r, g, b)
  Next y
 
  For b = 0 To 255 '黑變藍
   ActiveCell.Interior.Color = RGB(r, g, b)
  Next b
    
  For g = 0 To 255 '藍變綠
   b = b - 1
   ActiveCell.Interior.Color = RGB(r, g, b)
  Next g
  
  For r = 0 To 255 '綠變紅
   g = g - 1
   ActiveCell.Interior.Color = RGB(r, g, b)
  Next r
  
  For w = 0 To 255 '紅變白
   g = g + 1
   b = b + 1
   ActiveCell.Interior.Color = RGB(r, g, b)
  Next w
  
Next x
     
End Sub
 
[特別說明]
這會讓正在被選取的儲存格不斷變色
 
 
20180128 黑.png

arrow
arrow
    文章標籤
    Excel VBA 程式 迴圈 巨集 RGB 儲存格變色 三原色
    全站熱搜

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄