Question

Excel怎样用VBA代码实现代码的延迟（1秒）执行

设计一个小鸡吃米的动作，代码如下，两端代码都看不到小鸡有动作执行，只在代码开始或者结束后有一下动作
Sub xiaoji1()
ActiveSheet.Shapes("图片 2").Select
Selection.ShapeRange.Rotation = -30
Application.Wait (Now + TimeValue("0:00:01"))
ActiveSheet.Shapes("图片 2").Select
Selection.ShapeRange.Rotation = 30
'xiaoji1
End Sub

Answer 1

暂停的代码如下：
Application.Wait Now() + CDate("00:00:01")

追问

使用两次暂停一秒才可以！

追答

亲，你到底要实现什么功能？什么东西要“使用两次”暂停一秒？

追问

暂停的代码，两种都可以，只是要用两次才能看到动作！

追答

“用两次”？什么东西用两次？
如果是暂停的代码用两次，就在你需要的地方再复制一条Application.Wait...不就可以了？