返回列表下一主題上一主題發帖

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

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-24 11:18 | 只看該作者

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

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

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

或 ARGB、RGB  能夠轉 ColorIndex

樓主熱帖

是學程式而不是要程式，是進步的基礎

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 245
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-12

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-1-24 11:31 | 只看該作者

回復 1# 暗黑

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

學海無涯_不恥下問

TOP

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

3^#

發表於 2011-1-24 13:58 | 只看該作者

感謝 Hsieh 可以了...

是學程式而不是要程式，是進步的基礎

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

4^#

發表於 2011-1-24 21:33 | 只看該作者

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

100 字節以內
不支持自定義 Discuz! 代碼

TOP

jazzlee37

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: XP
軟體版本: Pro
閱讀權限: 10
性別: 男
註冊時間: 2012-5-21
最後登錄: 2015-4-16

5^#

發表於 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
=========================================

TOP

lpk187