標題: [發問] 儲存格底色 RGB 的用法? [打印本頁]

---

作者: 暗黑    時間: 2011-1-24 11:18     標題: 儲存格底色 RGB 的用法?

本帖最後由 暗黑 於 2011-1-24 11:21 編輯

請教各位先進..
  儲存格底色是用interior.colorindex     然後 =   代號  (如 6)
  那  可以用ARGB  的方式  或 RGB  嗎

或 ARGB、RGB  能夠轉 ColorIndex

---

作者: Hsieh    時間: 2011-1-24 11:31

回復 1# 暗黑

Range("A1").Interior.Color = RGB(255, 0, 0)
k = [A1].Interior.Color
[A2].Interior.Color = k

---

作者: 暗黑    時間: 2011-1-24 13:58

感謝  Hsieh   可以了...

---

作者: b9208    時間: 2011-1-24 21:33

感謝先進分享
學習了另外使用儲存格底色的方法
謝謝

---

作者: jazzlee37    時間: 2015-4-16 13:35

回復 2# Hsieh


    你好, 我想用三階迴圈去指定一排儲存格的RGB顏色
程式如下,但是一直出現型態不符合,在後面打好多星星的那一行
可以請教問題在哪嗎?
=========================================
Sub assign_color()

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim p As Integer

p = 3
For i = 0 To 255 Step 20
    For j = 0 To 255 Step 20
        For k = 0 To 255 Step 20
            Range("A" & p).Value = p - 2
            Range("B" & p).Value = i
            Range("C" & p).Value = j
            Range("D" & p).Value = k
            Range("E" & p).Interior.Color = RGB(Cells("B", p).Value, Cells("C", p).Value, Cells("D", p).Value)  **************
            p = p + 1
        Next
    Next
Next

End Sub
=========================================

---

作者: lpk187    時間: 2015-4-16 14:20

回復 5# jazzlee37


  Cells("B", p)====>應該是Cells(p, "B")
Cells和Range位置不同，Cells(列,欄)，Range("欄列")

---

作者: jazzlee37    時間: 2015-4-16 19:49

拜謝指導~~可以了

---

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