怎样设置要点击停止才可以点保存，并且只能点击一次（现在点击多次会把没...

wwl44

怎样设置要点击停止抽签才可以点保存抽签，并且只能点击一次（现在点击多次会把没有抽过的抽掉）
或者能不能在保存的时候加个弹框确认
或者能不能在保存的时候加个弹框确认

保存抽签的时候会把人员名单清除（点一次保存清除一个）

LIUZHU

抽签这个问题怎么发的好频繁啊

一江春水1688

不知道具体何意？

试试：

1. Dim mark As Boolean
   
2. mark = False '初始值为 False
   
3. 
   
4. Sub 停止抽奖()
   
5.     If mark Then
   
6.         '这里写停止抽奖的相关代码
   
7.     End If
   
8.     mark = False
   
9. End Sub
   
10. 
    
11. Sub 立即开始()
    
12.     [A2] = "=INDEX(人员名单!A:B,抽签系统!A1,2)"
    
13.     mark = True
    
14.     Do While mark
    
15.         DoEvents
    
16.         Sleep 50
    
17.         ActiveSheet.Calculate
    
18.      Loop
    
19. End Sub
    

复制代码

最好是使用按钮控件 CommandButton，通过赋值 CommandButton1.Enabled，让其等于 True 或 False，控制按钮是否可以点击。

wwl44

一江春水1688 发表于 2024-6-5 13:02
不知道具体何意？

试试：

现在就是没有点开始也可以点停止，多点一次停止抽签池就少一个，这样就会导致抽签签号少了

wwl44

LIUZHU 发表于 2024-6-5 09:48
抽签这个问题怎么发的好频繁啊

因为一直在审核

LIUZHU

记得前阵子做过类似的一个，找不到了，看看别人怎么做把

一江春水1688

很久没用vba了，模块级变量初始化有点问题，忘了要怎么处理。换一种方式，改用ActiveX控件吧。比较容易实现。

抽签.zip (829.09 KB, 下载次数: 3)

2024-6-5 19:20 上传

点击文件名下载附件

wwl44

在保存代码里面加个msgbox “文字”就可以实现了