返回列表 上一主題 發帖

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

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-5-31 11:58 | 只看該作者

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

[版主管理留言]
  • GBKEE(2018/6/1 06:51): 上傳檔案看看

dear  all 大大
1.指定儲存格範圍變更顏色問題請教
1.1 圖一為判斷原則. 1為範圍起始點 如圖一  
        range(a2:a3)一組   - 儲存格藍底  
        range(a4:a6)一組   - 儲存格紅底
       range(a7:a7)一組  - 儲存格黃底  
       range(a8:a9)一組........
2.不同組儲存格底色不同.
3.VBA如何書寫,煩不吝賜教   thanks *10000  
圖一
range("a2")=1
range("a3")=2
range("a4")=1
range("a5")=2
range("a6")=3
range("a7")=1
range("a8")=1
range("a9")=2..........
收藏 分享
羅

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題