excel中使用vba来对单元格格式进行查找显示

1、首先我们打开一个工作样表作为例子。

2、打开vba编辑器，并插入一个新的模块。在模块编辑器中输入以下代码：

Sub 查找指定格式()

    With Application.FindFormat.Font

        .Name = "宋体"

        .FontStyle = "Bold"

        .Size = 11

    End With

    Cells.Find(what:="", SearchFormat:=True).Activate

    Selection.Interior.ColorIndex = 4    '加亮显示

End Sub

3、我们使用Application.FindFormat.Font这个函数设置其参数为字体为宋体，字形加粗，字号为11。

4、然后在单元格内查找，并激活该单元格。这里有一行参数what：=“”表示的是空值，因为查找命令的查找内容是必需参数，所以这个参数必须这样写，其他的参数可以直接用逗号“，”占位省略。

5、 Selection.Interior.ColorIndex将查找到的单元格修改格式绿色底纹， 参数4是绿色的下标，大家可以对应颜色下标进行不同的设置。

6、最后我们来看一下效果，插入一个控件按钮，指定宏，然后运行。可以看到这个代码的实际运行效果。这里需要提醒大家的事，该代码查找格式完全匹配才行。

7、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。