首页 > Excel专区 > Excel函数 >

Excel浪漫表白公式,发给心仪的她/他

Excel函数 2023-01-08

今天给大家分享一个使用Excel做浪漫表白的方法,试想一下,将你做好的表白公式发给心仪的她,在她打开时,会不会由意想不到的惊喜呢,希望不是惊吓,哈哈……

Excel很强大,也可以做很多中表白图形,,今天我们讲一种制作动态图形的方法,效果如下:

Excel之浪漫表白公式,发给心仪的她/他

1、A2单元格录入-1.81,A3列录入公式=A2+0.02,下拉A列,直到A列的值为1.81

B2单元格录入公式:=POWER(A2^2,1/3)+0.9*SQRT(3.3-A2^2)*SIN($B$1*PI()*A2)

选中B列数据,插入待平滑线的散点图。

Excel之浪漫表白公式,发给心仪的她/他

2、修改散点图的颜色,删除所有多余的元素。

Excel之浪漫表白公式,发给心仪的她/他

3、点击开发工具->Visual Basic。

Excel之浪漫表白公式,发给心仪的她/他

4、在弹出的界面输入以下代码,然后另存为启用宏的工作簿。

Public pp As Boolean

Sub 心形图()

pp = Not (pp)

For i = 0 To 1000 * 4

If pp = False Then

Exit Sub

Else

DoEvents

[B1] = i / 5 / 4

If i Mod 1 = 0 Then

DoEvents

End If

End If

Next i

End Sub

Excel之浪漫表白公式,发给心仪的她/他

5、在开发工具->插入->按钮,然后在指定宏中选择“心形图”。

Excel之浪漫表白公式,发给心仪的她/他

点击按钮即可开始或结束动态效果图啦。


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.