操作方法
第一步,设置颜色 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颜色一样了