1、第一步,设置颜色EXCEL中找两个方格,B2、D2,随机找个颜色赋给B2
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/054056fe1e425d6b42a0079a11883913e9e500c4.jpg)
2、选择颜色
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/4759c1dae43b3b86515001e4185653bbf92075c4.jpg)
3、改变后的颜色
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/52fae62064fb960b6b504bd28fa355e982ae6cc4.jpg)
4、第二步,录制宏录制一个宏,内容是把颜色1(B2)用格式刷刷给颜色2(D2)点击录制
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/1570c1b6326c5766febe4ce0a4632385e13661c4.jpg)
5、把颜色1(B2)用格式刷刷给颜色2(D2)
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/32a127723d03bbea4cf77efbea43d7d4493154c4.jpg)
6、第三步,查看宏代码代码如下*******************代码↓**********涯箨唁峦**********Sub Macro1()'' Macro1 Macro&垆杪屑丝#39;' Range("B2").Select Application.CutCopyMode = False Selection.Copy Range("D2").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = FalseEnd Sub*******************代码↑********************但是代码中并未出现颜色,这就要用到调试了
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/05aae8a75f0f822b0f9f5281c018512c8df14dc4.jpg)
7、第四步,调试在代码区按F8,进入单步调试
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/8db0c6a7263348844e92059fddee7b7f870e45c4.jpg)
8、待黄色箭头走到Range("B2").Select这一句的下一行,在监视窗口下右击->添加监视
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/4a6d48ee7b7f860ef404ab4777f5ee0d3bcebec4.jpg)
9、在弹出的对话框,输入Range("B2")
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/ab966c6b0ce265e7a57e2acb9f23beb9773eb7c4.jpg)
10、第五步,找到颜色参数找到颜色参数Range("B2").Interior.Color,在监视窗口这行的数值就是颜色值,记录下颜色值:5276238
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/65390a23beb9763eb7b3f5656ad06de89b61b0c4.jpg)
11、第六步,根据需要设置颜色这一步就可以根据需要设置颜色了,比如我要将F2方格设置成和B2颜色一样,就可以写一个SUB块,如下Sub Macro2() Range("F2").Interior.Color = 5276238End Sub
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/2083a5d6e1d06de80010c896ca93cee8b104acc4.jpg)
12、执行,会发现F2方格变得和B2颜色一样了
![EXCEL使用技巧:[3]宏与VBA妙用(颜色)](https://exp-picture.cdn.bcebos.com/87645f93cee8b004cb6a9fbc79260d9a300ea9c4.jpg)