返回列表 上一主題 發帖

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

[發問] 指定儲存格範圍變更底色顏色問題請教-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 於 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
複製代碼
變更底色.jpg
2018-6-10 02:03


變更底色.zip (9.62 KB)

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題