test

wwl44

test test test test

饮冰e士

没太明白这个抽签的目的是什么。
“停止”在没有开始的时候，是没有意义的，因此可以忽略。
想快一点，就把Sleep后面的数字改小一点：

1. Sub 立即开始()
   
2. 
   
3.     [A2] = "=INDEX(人员名单!A:B,抽签系统!A1,2)"
   
4.     mark = True
   
5.     Do While mark
   
6.         DoEvents
   
7.         Sleep 10
   
8.         ActiveSheet.Calculate
   
9.      Loop
   
10. 
    
11. End Sub
    

复制代码

饮冰e士

感觉这个第几名，实际使用场景应该是人名吧？

wwl44

饮冰e士 发表于 2024-6-2 17:03
感觉这个第几名，实际使用场景应该是人名吧？

可以把名去掉，改成1 2 3 4 这样，出场顺序的抽签序号

wwl44

饮冰e士 发表于 2024-6-2 17:02
没太明白这个抽签的目的是什么。
“停止”在没有开始的时候，是没有意义的，因此可以忽略。
想快一点，就 ...

就是抽出场顺序，第一 第二这样，如果不小心多点一下停止就会少一个出场顺序，一直点停止后面就没有可以抽的了