EXCEL使用技巧：[3]宏与VBA妙用（颜色）

1、第一步，设置颜色

EXCEL中找两个方格，B2、D2，随机找个颜色赋给B2

2、选择颜色

3、改变后的颜色

4、第二步，录制宏

录制一个宏，内容是把颜色1(B2)用格式刷刷给颜色2(D2)

点击录制

5、把颜色1(B2)用格式刷刷给颜色2(D2)

6、第三步，查看宏代码

代码如下

*******************代码↓********************

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

*******************代码↑********************

但是代码中并未出现颜色，这就要用到调试了

7、第四步，调试

在代码区按F8，进入单步调试

8、待黄色箭头走到

Range("B2").Select

这一句的下一行，在监视窗口下右击->添加监视

9、在弹出的对话框，输入Range("B2")

10、第五步，找到颜色参数

找到颜色参数Range("B2").Interior.Color，在监视窗口这行的数值就是颜色值，记录下颜色值：5276238

11、第六步，根据需要设置颜色

这一步就可以根据需要设置颜色了，比如我要将F2方格设置成和B2颜色一样，就可以写一个SUB块，如下

Sub Macro2()

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

End Sub

12、执行，会发现F2方格变得和B2颜色一样了