VBA控制变量让心形波动动起来
{{ interaction.likeNum == 0 ? (pageType === 'video' ? '抢首赞' : '点赞') : formatNumber(interaction.likeNum) }}
{{ interaction.collectionNum == 0 ? '收藏' : formatNumber(interaction.collectionNum) }}
{{ interaction.discussNum == 0 ? (pageType === 'video' ? '抢沙发' : '讨论') : formatNumber(interaction.discussNum) }}
分享
适合人群
对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
效果:
展开更多
{{tips.text}}
{{ noteHeaderTitle }}
笔记{{ hasMyNote ? '我的笔记' : '记笔记' }}
{{ hasMyNote ? '我的笔记' : '记笔记' }}
优质笔记
更新于:{{ $dayjs.formate('YYYY-MM-DD HH:mm:ss', item.last_uptime*1000) }}
公开笔记对他人可见,有机会被管理员评为“优质笔记”
{{ noteEditor.content.length }}/2000
公开笔记
保存提问
讲师收到你的提问会尽快为你解答。若选择公开提问,可以获得更多学员的帮助。
记录时间点
记录提问时视频播放的时间点,便于后续查看
公开提问
提交课程大纲
自动连播
![学习更多Excel函数之VLOOKUP查找匹配视频课程](https://s2.51cto.com/images/201612/11cd2e111595ff272476735239256635339feb.jpg?x-oss-process=image)
学习更多Excel函数之VLOOKUP查找匹配视频课程
45948人学习
孙忠
5.0
会员免费
![EXCEL公式函数简易进销存系统的模板制作教程](https://s2.51cto.com/images/201610/b72fc28653151bff506605a3715272dd292253.jpg?x-oss-process=image)
EXCEL公式函数简易进销存系统的模板制作教程
13933人学习
孙忠
4.9
会员免费
![学习更多EXCEL函数-count Countif countifs条件计数函视频课程](https://s2.51cto.com/images/201611/6395a9642c615a46c48329c33d443a5f55b9d8.jpg?x-oss-process=image)
学习更多EXCEL函数-count Countif countifs条件计数函视频课程
8170人学习
孙忠
4.9
会员免费
![跟着网管学习EXCEL函数-IF逻辑判断从知道到学习视频课程](https://s2.51cto.com/images/201611/412c0c799d1607d3b294143b01aee863e6e374.jpg?x-oss-process=image)
跟着网管学习EXCEL函数-IF逻辑判断从知道到学习视频课程
6876人学习
孙忠
5.0
会员免费
![EXCEL函数,取最大值最小值四舍五入随机数max min round mod rand](https://s2.51cto.com/images/201612/f8f715c52bdf7bca702816f864032b79ca1b94.jpg?x-oss-process=image)
EXCEL函数,取最大值最小值四舍五入随机数max min round mod rand
5607人学习
孙忠
5.0
免费
![学习更多EXCEL函数之index与offset引用函数的应用需求案例](https://s2.51cto.com/images/201612/428a30583caea70d89552059d7dc6416b1ed79.jpg?x-oss-process=image)
学习更多EXCEL函数之index与offset引用函数的应用需求案例
5351人学习
孙忠
5.0
会员免费
![学习更多Excel函数之left mid right字符串裁取函数应用视频课程](https://s2.51cto.com/images/201612/38b1f0a31fb72a5c8ae997484e01fd76dae3d1.jpg?x-oss-process=image)
学习更多Excel函数之left mid right字符串裁取函数应用视频课程
4767人学习
孙忠
5.0
会员免费
![excel强大功能应用之查找定位 条件定位CTRL+G/F5功能应用视频课程](https://s2.51cto.com/images/201708/06/82a5f8ba7c0dcb9c3423cd979dfc11d0.jpg?x-oss-process=image)
excel强大功能应用之查找定位 条件定位CTRL+G/F5功能应用视频课程
4726人学习
孙忠
5.0
会员免费