求助查询后按人数调用程序的写法

caizhiliang

当查询结果为15人以内  调用15人的排版当查询结果为20人以内  调用20人的排版
当查询结果为25人以内  调用25人的排版
当查询结果为30人以内  调用30人的排版




请老师帮忙

caizhiliang

If i <= 15 Then
        Call 排版15人
    End
    If i <= 25 Then
        Call 排版25人
        End If

可是  i  这个变量怎么表示出来   我就不懂写了

请老师指点

hfwufanhf2006

1、把你的变量判断变换一下：
    if i<=15 then
       call 排版15人
    endif
    if (i>15) and (i<=25) then
       call 排版25人
    endif

2、用case
    select case i
    case is <=15
      call 排版15人
    case is <=25
     call 排版25人
    case else       '这是例外情况，根据情况使用，可以不写这一行
     
    end select

大灰狼1976

1. Sub test()
   
2. Dim n&
   
3. n = 28
   
4. If n <= 15 Then n = 15 Else n = -Int(-n / 5) * 5
   
5. Run "排版" & n & "人"
   
6. End Sub

复制代码

caizhiliang

hfwufanhf2006 发表于 2019-12-10 08:35
1、把你的变量判断变换一下：
    if i15) and (i

老师  您的代码放进去没有反应

caizhiliang

大灰狼1976 发表于 2019-12-10 09:54

老师  您的代码放进去后声明重复   删了声明后  也是没有反应

hfwufanhf2006

caizhiliang 发表于 2019-12-10 10:49
老师  您的代码放进去没有反应

我看不明白你说的“没反应”是什么意思：1、要么代码有错误，会有错误提醒，你根据错误信息再更正；

2、要么达不到你希望的目标，这个需要根据变量值的变化来调试，一般要用到断点调试才好找出原因；

你文件我也下载了，你这个文件在你之前的帖子也有过的，但我完全看不懂。因为你这个项目是一个大工程，不是三言两语能讲明白的。
我也看不到你所说问题的代码在哪里？排版15人、排版25人、排版30人这三个过程我是看到了的，但你的控制流程代码我找不到，无法帮你调试；

大灰狼1976

网络限制不能下载附件，我的本意只是举个例子，能看明白就会套用，看不明白，即使帮你写好了，
以后你要更改功能还是要求人，下面是完整的示例，你可以整体复制到标准模块下面测试。
注意：不是必须在标准模块下面才能运行，但是代码需要稍作修改。

1. Sub test()
   
2. Dim n&
   
3. n = InputBox("Please enter a number between 1 and 30")
   
4. If n <= 15 Then n = 15 Else n = -Int(-n / 5) * 5
   
5. If n > 30 Then MsgBox "Overflow!": Exit Sub
   
6. Run "test_" & n
   
7. End Sub
   
8. 
   
9. Sub test_15()
   
10. MsgBox "test15"
    
11. End Sub
    
12. 
    
13. Sub test_20()
    
14. MsgBox "test20"
    
15. End Sub
    
16. 
    
17. Sub test_25()
    
18. MsgBox "test25"
    
19. End Sub
    
20. 
    
21. Sub test_30()
    
22. MsgBox "test30"
    
23. End Sub

复制代码

caizhiliang

大灰狼1976 发表于 2019-12-10 12:53
网络限制不能下载附件，我的本意只是举个例子，能看明白就会套用，看不明白，即使帮你写好了，
以后你要更 ...

版主您好   用了if 语句判断   写好了   之前是自己没有注意细节    没有加else   导致每次都直接到最后一个了
还是非诚感谢大家   新手上路   请大家多指教