Excel说我没对象，于是我让它帮我找了一个

大家好，今天是5月20号，日常打开 Excel，结果它给我显示这个东西：

哈哈哈，开个玩笑，其实Excel当中的对象主要是指图片/图表、文本框/艺术字、控件等浮在Excel单元格上的东西，我们统一称之为对象。

那么如何查找Excel当中的对象？

Ctrl+G——定位条件，勾选“对象”，点击【确定】。

如果你的Excel表中没有图片之类的东西，当然会显示“找不到对象”。

既然今天是520，我们就用Excel做个表白小工具，如下图所示：

发给对方一张表格，当对方打开时，弹出提示框，如果一直点击【取消】，将会陷入死循环，关闭不了工作簿，只有答应你之后（点击【确定】按钮），才会进入Excel，并在工作表中显示由爱心组成的520。

怎么样，这波强行找对象可还行？

思路

这里主要用到两个知识点，一个VBA，一个是条件格式。

VBA控制当用户打开Excel表格时，弹出选项框，条件格式显示红色字体。

插入VBA代码

按Alt+F11键，进入visual basic 界面，双击左侧ThisWorkbook，下拉“通用”，选择“Workbook”，右侧选择“Open”，表示当工作簿被打开时；

在下方输入代码：

Private Sub Workbook_Open() 1: If MsgBox("你愿意做我的女朋友/男朋友吗？", vbQuestion + vbYesNo, "来自小E的表白") = vbNo Then GoTo 1 Cells(1, 1) = 1 End Sub

代码很简短，表示在工作簿被打开时，执行以上代码MsgBox表示显示弹窗；

弹窗内容为：“你愿意做我的女朋友/男朋友吗？” 可随意修改；

vbQuestion 显示警告询问，VbYesNo 显示 “是”和“否”两个按钮；

“来自小E的表白”为弹窗标题，可随意修改；

最后添加一个if语句，如果用户点击“否”按钮，那么重复显示弹窗，直到用户点击“是”按钮，结束if语句，并在单元格A1中输入数字1，这里主要是用来控制“520”显示的。

插入形

插入心形，搜狗输入法输入拼音“xin”,会显示形图标，如果你没有搜狗输入法，也没关系，可以打开阿里巴巴矢量库，这里有很多小图标供下载。

其实Excel2019版本自带图标图，可以插入各类小图案，只不过大部分用户没有安装2019版本。

接着将小爱心排布成520的形状，如下所示：

设置条件格式

选中所有的520单元格，依次点击【开始】—【条件格式】—【新建规则】，选择“使用公式确定要设置格式的单元格”，输入公式【=$A$1=1】，接着将其格式设置成字体颜色红色。

表示当单元格A1等于1的时候，520形变成了红色的。

设置完毕之后，选中所有形，将其颜色设置为白色，这样在刚开始打开工作簿的时候，界面什么也不显示。

工作簿另存为启用宏的工作簿

进行完以上几步，基本算是搞定了，由于插入了VBA代码的缘故，xlsx格式的文件无法保存，这时候需要我们将表格另存为启用宏的工作簿，如下图所示：

接着就可以将这个工作簿发给你要表白的对象啦~

唯一美中不足的是，很多朋友的Excel没有启用过宏，所以第一次打开这个表格的时候，会被自动禁用：

这时需要手动点击“启用内容”即可。

快去试试吧~