[已解决](求助）这个程序如何取消对话框？

梅子M

如附件 多条件随机数.rar (29.99 KB, 下载次数: 2)

2012-9-8 07:27 上传

点击文件名下载附件 （07版）

先谢谢！

最佳答案

月排行榜 / 总排行榜

cbg2008

2012-9-8 08:13

当中一段改掉

1.     '=================前期数据输入=========================================
   
2.     absen(1) = 45: absen(2) = 48
   
3.     For i = 1 To UBound(absen)
   
4.         beginNum(absen(i)) = 0
   
5.     Next
   
6.     i = 1
   
7.     loca(1, 1) = 20: loca(1, 2) = 1
   
8.     loca(2, 1) = 6: loca(2, 2) = 2
   
9.     loca(3, 1) = 34: loca(3, 2) = 21
   
10.     loca(4, 1) = 35: loca(4, 2) = 22
    
11.     beginNum(20) = 1
    
12.     beginNum(6) = 1
    
13.     beginNum(34) = 1
    
14.     beginNum(35) = 1
    
15. 
    
16. 
    
17. 
    
18.     '===========================数据处理=========================================

复制代码

跳转到最佳答案楼层

long826121

我的是03版的，没办法.............{:011:}

cbg2008

当中一段改掉

1.     '=================前期数据输入=========================================
   
2.     absen(1) = 45: absen(2) = 48
   
3.     For i = 1 To UBound(absen)
   
4.         beginNum(absen(i)) = 0
   
5.     Next
   
6.     i = 1
   
7.     loca(1, 1) = 20: loca(1, 2) = 1
   
8.     loca(2, 1) = 6: loca(2, 2) = 2
   
9.     loca(3, 1) = 34: loca(3, 2) = 21
   
10.     loca(4, 1) = 35: loca(4, 2) = 22
    
11.     beginNum(20) = 1
    
12.     beginNum(6) = 1
    
13.     beginNum(34) = 1
    
14.     beginNum(35) = 1
    
15. 
    
16. 
    
17. 
    
18.     '===========================数据处理=========================================

复制代码