1、点击开发工具——选择Visual Basic,也可以同时按下Alt+F11,快速打开VBA编辑器,点击插入——模块。
2、打开模块后,输入如下代码:Sub Colour() Cells.Select Selection.FormatConditi泠贾高框ons.AddUniqueValues Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority Selection.FormatConditions(1).DupeUnique = xlDuplicate With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = FalseEnd Sub
3、最后点击开发工具——插入——表单控件——选择命令——在弹出的指定宏中选择:colour宏——点击确定,宏就会改变颜色了,点击命令控件就可以改变颜色了。