在Excel中创建进度条而不使用用户表单

Question

我想知道，如何在没有表单的情况下在excel vba中创建进度条。

我已经添加了MS进度条，但我想知道如何在运行宏

时运行

提前致谢

使用下面的代码但是位置在顶部，我想把它移到其他一些我怎么能这样做？

Sub test()
Dim i As Long, nextT As Single
Dim pb As ProgressBar

Set pb = ActiveSheet.OLEObjects("ProgressBar21").Object

pb.Value = 0
pb.Visible = True

For i = 1 To 100
nextT = Timer + 0.05
While Timer < nextT
Wend
nextT = Timer
pb.Value = i
Next
pb.Visible = False

End Sub

Answer 1

我只是手动将excel表格中的进度条移动到我想要的位置，就是它开始工作了。

注意：在我移动进度条位置后执行代码后。