[發問] 儲存格底色 RGB 的用法?

暗黑

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

或 ARGB、RGB  能夠轉 ColorIndex

Hsieh

回復 1# 暗黑

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

暗黑

感謝  Hsieh   可以了...

b9208

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

jazzlee37

回復 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

回復 5# jazzlee37


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

jazzlee37

拜謝指導~~可以了