[已解决]求助VBA

GYUHJ

Book1.rar (9.14 KB, 下载次数: 11)

2012-12-28 11:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-12-28 13:44

1. Sub a()
   
2.     Select Case Range("g2")
   
3.     Case 3
   
4.         Call 模块1.MNA1
   
5.     Case 2
   
6.         Call 模块1.MNA2
   
7.     Case 1
   
8.         Call 模块1.MNA3
   
9.     Case 0
   
10.         Call 模块1.MNA4
    
11.     End Select
    
12. End Sub

复制代码

给你举了个例子

跳转到最佳答案楼层

zjcat35

1. Sub a()
   
2.     Select Case Range("g2")
   
3.     Case 3
   
4.         Call 模块1.MNA1
   
5.     Case 2
   
6.         Call 模块1.MNA2
   
7.     Case 1
   
8.         Call 模块1.MNA3
   
9.     Case 0
   
10.         Call 模块1.MNA4
    
11.     End Select
    
12. End Sub

复制代码

给你举了个例子