1、首先我们打开一个工作样表作为例子。
2、打开vba编辑器,并插入一个新的模块。在喋碾翡疼模块编辑器中输入以下代码:Sub 查找指定格式() Wit茑霁酌绡h 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、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。