[实验成功] VBA 模仿水滴波纹

davidhawk · 发表于 2014-8-28 13:51

baigangliao 发表于 2014-8-21 11:29
真的做得很好，可惜不会

其实计算逻辑很简单, 从中心点往外就是一个正弦波, 波幅逐渐缩小为0, 每次循环让正弦波往外移动一点点.

2001927f · 发表于 2014-8-28 15:36

任何东西也无法阻挡，EXCEL神人们的创意了啊。

davidhawk · 发表于 2014-8-29 10:26

解析一下附件中的VBA部分:

Private Sub CommandButton1_Click()
'21*21的数据源大小,使用"曲面图",这一段是归零
For j = 1 To 21
For k = 1 To 21
   Sheet1.Cells(j, k) = 0
Next
Next
'这里开始计算了
For i = 1 To 60 Step 0.1       '循环60次,每次针对21*21个数字重新计算高度,高度计算使用正弦,基于21*21的点距离中心点(11,11)的距离
For j = 1 To 21                   ' 21*21的X轴
   For k = 1 To 21             ' 21*21的Y轴
      If ((k - 11) ^ 2 + (j - 11) ^ 2) ^ (0.5) <= i Then ' 这里判断是防止一开始21*21都被计算, 因为水滴开始的时候只有中心在动
         Sheet1.Cells(j, k) = Sin((((k - 11) ^ 2 + (j - 11) ^ 2) ^ 0.5) - i) * (10 - i / 6) ' 这里就是计算21*21中每个点的高度, * (10 - i / 6) 是波幅随 I 的增加而减少
      End If
   Next
Next
DoEvents ' 别忘记释放焦点,否则动态chart很容易变成固态
Next
End Sub

justinf1981 · 发表于 2017-1-4 20:22

非常赞，好有创意

沙漠oo飞鹰 · 发表于 2017-1-5 19:45

效果也太赞了啊啊啊啊啊啊。求指导

schwein250 · 发表于 2017-1-11 23:54

真是太有才了！

wulinman · 发表于 2019-5-23 21:42

大神，手下我的kneel

梁家大侠 · 发表于 2019-5-27 23:08

太牛了,感觉excel什么都能干！

liaoxianlu · 发表于 2019-5-28 10:09

大神好厉害，学习了！

		自动登录	找回密码
密码			免费注册

[原创] [实验成功] VBA 模仿水滴波纹