- 畅销套餐
- 精选套餐
- 人气套餐
- 尊享套餐
- 高薪套餐
![](https://s2.51cto.com/images/201708/06/82a5f8ba7c0dcb9c3423cd979dfc11d0.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201612/428a30583caea70d89552059d7dc6416b1ed79.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201610/b72fc28653151bff506605a3715272dd292253.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201903/10/64de8a5867199ba0bb56df16f6b5ab0f.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201703/06a4c1f77e5301aa6b83814992a126cfa22b46.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201902/02/5ddd2f730abca76b864cca46583a4a27.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201710/16/7bd40d49d158cf3b7e99954ef08a85e9.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201611/412c0c799d1607d3b294143b01aee863e6e374.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201612/11cd2e111595ff272476735239256635339feb.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201710/16/7bd40d49d158cf3b7e99954ef08a85e9.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201612/38b1f0a31fb72a5c8ae997484e01fd76dae3d1.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201611/6395a9642c615a46c48329c33d443a5f55b9d8.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201710/16/7bd40d49d158cf3b7e99954ef08a85e9.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201612/38b1f0a31fb72a5c8ae997484e01fd76dae3d1.jpg?x-oss-process=image)
![](https://s2.51cto.com/images/201611/6395a9642c615a46c48329c33d443a5f55b9d8.jpg?x-oss-process=image)
- 课程介绍
- 课程大纲
适合人群:
对EXCEL有兴趣的人;
你将会学到:
学习制作EXCEL心型波动动态图表,VBfor循环简单应用;
课程简介:
跟着网管学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
效果:
课程大纲-跟网管孙忠学EXCEL之心形波动图表 散点图表制作教程
“孙忠”老师的其他课程更多+