使用组进行循环的问题

cherrycdh

我有一个疑问，就是如果我有几十台计算机，然后计算机呢，有三个小组，这三个小组分别要在一定的时间内进行一个弹窗提醒，我该怎么操作比较好呢？


我一开始设定了这个，然后想着使用循环

1. Private Sub 定时提醒()
   
2.    
   
3. Computername = Environ("computername")
   
4. 
   
5. 'Application.OnTime TimeValue("12:20:00"), "提醒关闭暂停"

复制代码

然后在设置弹窗

1. Sub 提醒关闭暂停()
   
2. 
   
3. '设置一个提醒消息
   
4. 
   
5. msg = MsgBox("请关闭暂停按钮", vbInformation, "吃饭时间结束")
   
6. 
   
7. End Sub
   

复制代码

但是有一个问题，就是我需要的就是三个时间，但是计算机比较多，比如说50台，然后一个一个循环就比较麻烦了，后续如果有增加或者取消的计算机也麻烦，那我能不能把它当成三个组，设置组名，现在就是我可以使用组，然后再每个组进行循环吗？如果这个计算机名在组里没有的时候再到下一个组，相同的如果计算机有修改，只要修改组内就行了呢？

cherrycdh

第一个代码我修改了，就是发不出来，我直接发代码吧
Private Sub 定时提醒()
   
Computername = Environ("computername")

'Application.OnTime TimeValue("12:20:00"), "提醒关闭暂停"

   If Computername= "LOGIC-24" Or Computername= "LOGIC-25" Or Computername= "LOGIC-26"  Then            
            Select Case Computername
            Case "LOGIC-24"
                autoer = Application.OnTime TimeValue("12:20:00"), "提醒关闭暂停" '弹窗变量
            Case "LOGIC-25"
                autoer = Application.OnTime TimeValue("12:30:00"), "提醒关闭暂停" '弹窗变量
            Case "LOGIC-26"
                autoer = Application.OnTime TimeValue("11:30:00"), "提醒关闭暂停" '弹窗变量
            End Select