【原】Excel最强表白教程，不要错过了！

心形图教程来啦

找小助手领取源文件吧~

这是一个美丽的案情故事，相传在笛卡尔与公主的最后一封信中，留下了一个方程式：r=a(1－sinθ），聪明的公主把方程解了出来，并画成图形，便有了这个著名的“心形线“。

这次咱们便以 r=a(1－sinθ）为原型，利用Excel图表，制作更高逼格的动态表白心形图吧！

>>>进入教程<<<

01

插入方程式

通过x、a值的变化，生成一系列有关f(x)的数据区域，取f(x)插入散点图，再利用Excel控件，控制常数a的大小，最终实现心形的变化。

对应的Excel公式如下：

f(x)=POWER(x^2,1/3)+0.9*SQRT(3.3-x^2)*SIN(a*PI()*x)

<<<向左滑动查看完整公式<<<

用到的Excel函数有：乘幂函数POWER、平方根函数SQRT、正弦函数SIN、圆周率的近似值函数PI。

02

准备数据

x取值范围[-1.81,1.81]，原因是要保证方程中的（3.3-x^2）取值为正。

在A4输入-1.81，以等差值为0.02依次增大至1.81。

B4输入转化后的Excel公式，设x=A4，a=$B$2（B2要加上$绝对引用）

03

插入散点图

选取B列数据→插入→图表→散点图→带平滑线的散点图

当修改B2的值时，可以看到图形会相应的产生变化

04

美化图表

删除不必要的元素，调整形状颜色等

05

添加背景文字

在单元格中输入以下文字，数字用公式等于B2

双击图表区，在设置图表区格式中，把填充颜色设置为【无填充】，同时也可以把边框设置为【无线条】

为了实现图表自动变化，咱们可以这样

06

自动控制

在开发工具中，打开VB窗口，把以下代码复制至ThisWorkbook中，另存为启用宏的工作簿。

Public pp As BooleanSub 心形图()  pp = Not (pp)  For i = 0 To 1000 * 4    If pp = False Then      Exit Sub    Else      DoEvents      [B2] = i / 5 / 4      If i Mod 1 = 0 Then        DoEvents      End If    End If  Next iEnd Sub

07

插入按钮

开发工具→插入→按钮→指定宏→选择[ThisWorkbook.心形图]→确定→鼠标拉出按钮→更改按钮名字

08

心动时刻

点击按钮，心动开始，再次点击，心动结束。

加上背景图，大功告成

---