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」項目，再點取「執行」鈕。

結果如下圖：


arrow
arrow
    文章標籤
    cells 巨集 色彩 vba interior rgb demo color 指令 sub 網底 borders 程式
    全站熱搜

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

    E-mail轉寄