求助VBA 设置Label的标题

triplefish

我有一个Lable，想通过循环来改变其名称，实现类似开奖的数字变换的效果，但是当代码运行起来时，只有for 循环结束后的最后一次设置才显示，其他中间过程均没有变化，请问哪里有问题呢。
关键代码如下:

1. For i =0 to 1000
   
2.     Sheet1.Lable1.Caption="排名："& i
   
3. Next

复制代码

当for 循环结束后，Lable1直接显示排名：999，并不会向下面逐条显示
排名：1
排名：2
排名：3
……
排名：999

求助大神帮忙解答一下，谢谢

山菊花

    For i = 0 To 1000
        Sheet1.Label1.Caption = "排名：" & i
        DoEvents
    Next