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

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

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

开始制作:

新建一个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:

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