我很清楚这个世界的肮脏和人性的丑陋，我在寻找净土，这是一件非常酷的事情。

斩男斩女必杀技，斩前先买热干面，告白成功一起吃

先看最终效果，以下为实拍

开始制作：

新建一个excel文档，alt+F11打开开发工具–选中输入以下代码:点击保存或者ctrl+s保存，关闭vba对话框。以下中文字可以自己改、添加、删除

Sub ()

“阿妹啊，其实……”

“我喜欢你很久了~”

“我尝试过克制自己，但是都没用”

“不是我爱上了你，是你终结了我的理智”

“我们已经相遇很久”

“我们可能在另一个时空一直陪伴彼此”

“你了解我所有的黑暗面”

“在没有你的岁月里，我已经爱了你很久很久”

“感谢你出现在我的生活中”

“让我所有的邪恶得到释放”

“情话都是抄来的”

“但爱你是真的”

End Sub

2.根据方程y=x⅔+0.9×(N-x²)½×sin(a×π×x)制作心形曲线，对应excel方程为f(x)=POWER(x^2,1/3)+0.9*SQRT(3.3-x^2)*SIN(a*PI()*x)

先设定x的值，A列填充x值范围[-1.81,1.81]，这是为了3.3-x^2大于0，A3输入-1.81，按照0.02的步长累增到1.81，这里可以用自动填充来帮我们完成，步骤如下：

选中A3,点击开始—填充–序列，然后选择列，等差序列，步长值为0.02，终止值为1.81，点击确定即可

填充完后，我们在B3输入方程=POWER(A3^2,1/3)+0.9*SQRT(3.3-A3^2)*SIN($B$1*PI()*A3),方程里面的A3对应的就是x的值，这里方程a的值我这里引用B1单元格的值，我这是50.注意这里必须绝对引用，不要写成 B1，要写成$B$1，然后依次下拉填充全部y的值

3.完成值的填充后，选中y列的值，点击插入–图表—带平滑线的散点图

然后我们调整下图案，删除多余的线条，只保留心形

然后把颜色改成红色，在页面布局–主题–颜色这里改

然后我们加上图案标题，并把H6单元格设置成不保留小数点位数

接着，alt+F11打开开发工具，选中，输入代码，保存后关闭

pp As

Sub 心形图()

pp = Not (pp)

For i = 0 To 150 * 4

If pp = False Then

Exit Sub

Else

[B1] = i / 5 / 4

If i Mod 1 = 0 Then

End If

End If

Next i

End Sub

然后，点击开发工具–插入–表单控件–按钮，宏名选择心形图，点击确定，自己改下按钮名字

添加按钮后就可以直接运行了：最后大家自己再美化下，去除表格线，再设置一下背景图之类的，想表白不得用点心吗？

最后，另存为启用宏的xlsm格式的excel文件，打开后就能运行了

TIPS：

文章不能方附件，需要实例文件的可以私信或者留言