close

2212

儲存格的顏色依自己的設定做改變

果我們要利用VBA來將工作表中ABC三欄的內容將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」項目,再點取「執行」鈕。

結果如下圖:


arrow
arrow
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()