返回列表 上一主題 發帖

[發問] 指定儲存格範圍變更底色顏色問題請教-VBA

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2018-6-10 02:05 | 顯示全部帖子
本帖最後由 luhpro 於 2018-6-10 02:14 編輯

回復 1# rouber590324
抱歉, 為了程式計算方便,
底色變更順序沒有依你所述.

若要需要完全依你所述的順序變更底色,
我想到的是用一個指定顏色代號的陣列來取用,
那需要你先提供完整的顏色循環資料,
再來看程式要如何修改...
  1. Private Sub 變更底色_Click()
  2.   Dim iColor%
  3.   Dim lRow&
  4.   
  5.   lRow = 1
  6.   iColor = 2
  7.   Do While Cells(lRow, 1) <> 0
  8.     If Cells(lRow, 1) = 1 Then
  9.       iColor = iColor + 1
  10.       If iColor > 48 Then iColor = 3
  11.     End If
  12.     Cells(lRow, 1).Interior.ColorIndex = iColor
  13.     lRow = lRow + 1
  14.   Loop
  15. End Sub
複製代碼
  1. Private Sub 清除底色_Click()
  2.   Cells.Interior.ColorIndex = -4142
  3. End Sub
複製代碼


變更底色.zip (9.62 KB)

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題