1、点击菜单栏上面的【开发工具】，再点击【Visual Basic】打开VBA编辑器。
2、在VBA编辑器的菜单栏上面点击【插入】，【模块】。
3、在代码框里面输入以下VBA程序：
Sub IfEqual()
Dim i, j, m As Long '数据类型定义
On Error Resume Next '如果运行过程中出错，则忽略
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
Set mysheet3 = ThisWorkbook.Worksheets("Sheet3") '定义工作表
mysheet3.Range("A2:E1000") = "" '将该范围内清空
For i = 2 To 1000 '执行1000次循环
If mysheet1.Cells(i, 1) = mysheet3.Cells(1, 8) Then '如果与输入条件相同则执行
For j = 2 To 1000 '执行1000次循环
If mysheet3.Cells(j, 2) = "" Then '如果单元格是空白，则执行填充
For m = 1 To 5 '本行里面从 1-5 列进行填充
mysheet3.Cells(j, m) = mysheet1.Cells(i, m)
Next
Exit For '执行完一行后退出循环
End If
Next
End If
Next
End Sub
4、输入完程序后，点击“保存”图标进行保存。
5、回到sheet3工作表界面，点击【插入】，在工具栏里面的“形状”下拉选项里面选择“矩形”。
6、在Excel表格里面进行绘制，填充所喜欢的颜色，并添加文本注释，如：“执行”。
7、在图形上面单击右键，选择“指定宏”。
8、选择所在VBA程序里面编写的宏的名称，如：IfEqual。
9、在要查找的单元格里面输入“日期”，再点击所定义宏的矩形图标就可以显示出所需的结果。
