excel vba如何设置一个按钮暂停运行

亲，不要把代码放到Thisworkbook的辩迟Open事件里即可。

如唤灶敬下图，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧Thisworkbook上双击，右侧的代码剪切下和慎来。

然后在左侧空白处点击右键，“插入”，“模块”。右侧空白处粘贴代码，去掉第一行和最后一行。

你在某个单元格里（比如C1）写=now(),这个就是做定位时间的

然后，你A1作为你开始耐数辩时间，A2开始是你的结束时间。

添加一个暂停按钮，然后按钮函数就写

Dim t As Single

t = 1

Do While Cells(t, 1) <>""

t = t + 1

Loop

Cells(t, 1) = Cells(1, 3)

If t <>1 Then

Cells(t, 2) = Cells(t, 1) - Cells(t - 1, 1)

End If

记得要把A和B列的格式设置好。

停止的基毕散本一样的思路昌缺，清楚所有时间就好

Do While Cells(t, 1) <>""

Cells(t, 1) = ""

t = t + 1

Loop

---