1、本教程以下图数据(包含公式)为例,使用黄色填充包含公式的单元格。
2、插入一个表单控件(即ActiveX控件)中的按钮控件,不清楚此操作的可以参考以下链接:
3、绘制按钮后会自动弹出一个指定宏窗口,选择“新建”按钮。
4、此时会弹出一个模块,如图所示。
5、在Sub 按钮1_Click()和End Sub之间输入如下代码:Dim rng 钽吟篑瑜As RangeSet rng = ActiveS茑霁酌绡heet.Range("A1").CurrentRegion For Each rng In rng.Cells If rng.HasFormula Then ’若单元格包含公式,则执行Then rng.Select With Selection.Interior ‘设置包含公式单元格的属性 .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If Next
6、返回Excel界面,设置按钮格式,为了便于查找以及理解,将按钮编辑文字为:标记公式。
7、点击一下“标记公式“按钮,表中所有公式单元格都会变成黄色填充,点击按钮前、后表格变化如图所示。