我很清楚这个世界的肮脏和人性的丑陋,我在寻找净土,这是一件非常酷的事情。
斩男斩女必杀技,斩前先买热干面,告白成功一起吃
先看最终效果,以下为实拍
开始制作:
新建一个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:
文章不能方附件,需要实例文件的可以私信或者留言
发表回复