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

YZC51

请参考
Public Sub ss()
    n = Sheet1.Range("c65535").End(xlUp).Row - 5
    Debug.Print n
    If n <= 15 Then Call 排版15人
    If n <= 20 Then Call 排版20人
    If n <= 25 Then Call 排版25人
    If n <= 30 Then Call 排版30人
End Sub

YZC51

Yalishanda30 发表于 2019-12-10 10:54
模块都删掉了，，，不好模拟啊

是啊！没有办法调试！！！

企鹅先森

Yalishanda30 发表于 2019-12-10 10:54
模块都删掉了，，，不好模拟啊

谢谢  根据大家的思路  调整了一顿  已经满足要求了

企鹅先森

YZC51 发表于 2019-12-10 11:20
请参考
Public Sub ss()
    n = Sheet1.Range("c65535").End(xlUp).Row - 5

谢谢  根据大家的思路  调整了一顿  已经满足要求了

lsdongjh

1. Public Sub ss()
   
2.     n = Sheet1.Range("c65535").End(xlUp).Row - 5
   
3.     Select Case n
   
4.         Case Is > 30  '大于30人
   
5.         Case Is > 25 '>25  <=30
   
6.             Call 排版30人
   
7.         Case Is > 20 '>20  <=25
   
8.             Call 排版25人
   
9.         Case Is > 15 '>15  <=20
   
10.             Call 排版20人
    
11.         Case Is > 0   '>0 <=15
    
12.             Call 排版15人
    
13.         Case Is <= 0
    
14.     End Select
    
15. End Sub

复制代码