close
2212 |
儲存格的顏色依自己的設定做改變 |
如果我們要利用VBA來將工作表中A、B、C三欄的內容將D欄填入其代表的RGB色彩,要如何做呢?
1、按ALT+F11鍵,開啟VBA視窗。
2、點取「插入 > 模組表」指令。
3、輸入如下程式:
Sub demo()
For i = 2 To 6
R = Cells(i, 1)
G = Cells(i, 2)
B = Cells(i, 3)
Cells(i, 4).Interior.Color = RGB(R, G, B)
Next
End Sub
【程式說明】
Cells(列編號,欄編號)
Interior.Color 屬性
物件 |
色彩 |
---|---|
Border |
框線的色彩。 |
Borders |
指某範圍所有四條框線的色彩。如果它們的色彩並不完全相同,Color會傳回0(零)。 |
Font |
字型的色彩。 |
Interior |
儲存格的網底色彩或繪圖物件的填滿色彩。 |
Tab |
索引標籤的色彩。 |
RGB(紅色、綠色、藍色)
4、按ALT+F4鍵關閉VBA視窗,回到工作表視窗。
5、點取「檢視 > 巨集▼鈕 > 檢視巨集」指令。
6、在【巨集】對話方塊,點取「巨集名稱」列示方塊中「DEMO」項目,再點取「執行」鈕。
結果如下圖:
文章標籤
全站熱搜
留言列表