心形波动散布图表效果展示

跟着网管学EXCEL之心形波动图表 心型图表动态图表制作

公式：

   =ABS(B4)^(2/3)-0.9*(3.3-ABS(B4)^2)^(1/2)*SIN($D$3*PI()*ABS(B4))

VBA代码：

Sub xin()

Dim i As Integer

For i = 20 To 2000 Step 1

    Range("d3") = i / 20

    Calculate

Next

End Sub

上面VBA代码如果只是数据变图表不变可以试试下面俩方法：

Sub xinxin()

Dim i As Integer

For i = 10 To 1000 Step 1

Range("D3") = i / 10

Worksheets("Sheet1").Activate

ActiveCell.CurrentRegion.Select

Next

End Sub

Sub supengxing()
Dim i As Integer
For i = 1 To 100 Step 1
Range("D3") = i
t = Now + TimeValue("00:00:01") / 10
Do Until Now > t
DoEvents
Loop
Next
End Sub 

效果：