Excel 宏练习

任务描述：

    利用 Excel 绘制函数图像 f(x)=x^2/3+0.9*(3.3-x^2)^1/2*sin(a*x)，并通过按钮事件来刷新图像。

问题分析：

    可以参考类似 Matlab 绘图的方式，定义自变量 x：[-1.816,1.816,0.1]，因变量 y：= POWER(A1*A1,1/3)+0.9*POWER((3.3-A1*A1),1/2)*SIN($C$1*A1)（其中 a 的值存放在 $C$1 单元格中）然后插入关于 y 的折线图；

    按钮事件可以通过插入矩形，并为其定义宏来更新单元格 $C$1 的值，如下图所示。

 

Sub test()

Dim i As Integer
Dim Savetime As Single

For i = 1 To 100

'选择执行
If i Mod 10 = 0 Then
Cells(1, 3) = i
'MsgBox('hello')
'Application.Wait (Now + TimeValue("0:00:03"))

'等待一会再执行下一次循环
Savetime = Timer
While Timer < Savetime + 0.02
DoEvents '转让控制权'
Wend

End If

Next
i = i + 1

End Sub