標題: [發問] 指定儲存格範圍變更底色顏色問題請教-VBA [打印本頁]

---

作者: rouber590324    時間: 2018-5-31 11:58     標題: 指定儲存格範圍變更底色顏色問題請教-VBA

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: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

複製代碼

[attach]28809[/attach]

[attach]28810[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)