EXCEL使用技巧：[3]巨集與VBA妙用（顏色）?

巧妙地利用巨集和VBA除錯中的各項資料，隨心所欲調節顏色。

本文目的：

1 巨集錄製的好處

2 通過除錯錄製巨集，得到相應資訊

工具/原料

EXCEL

方法/步驟

第一步，設定顏色

EXCEL中找兩個方格，B2、D2，隨機找個顏色賦給B2

選擇顏色

改變後的顏色

第二步，錄製巨集

錄製一個巨集，內容是把顏色1(B2)用格式刷刷給顏色2(D2)

點選錄製

把顏色1(B2)用格式刷刷給顏色2(D2)

第三步，檢視巨集程式碼

程式碼如下

*******************程式碼↓********************

Sub Macro1()

'

' Macro1 Macro

'

'

Range("B2").Select

Application.CutCopyMode = False

Selection.Copy

Range("D2").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

End Sub

*******************程式碼↑********************

但是程式碼中並未出現顏色，這就要用到除錯了

第四步，除錯

在程式碼區按F8，進入單步除錯

待黃色箭頭走到

Range("B2").Select

這一句的下一行，在監視視窗下右擊->新增監視

在彈出的對話方塊，輸入Range("B2")

第五步，找到顏色引數

找到顏色引數Range("B2").Interior.Color，在監視視窗這行的數值就是顏色值，記錄下顏色值：5276238

第六步，根據需要設定顏色

這一步就可以根據需要設定顏色了，比如我要將F2方格設定成和B2顏色一樣，就可以寫一個SUB塊，如下

Sub Macro2()

Range("F2").Interior.Color = 5276238

End Sub

執行，會發現F2方格變得和B2顏色一樣了

注意事項

方法不是最優，但是著實有效。