[已解决]窗体按扭设置

c888

按扭设置.rar (6.63 KB, 下载次数: 12)

2012-8-29 15:27 上传

点击文件名下载附件
谢谢老师指导！

最佳答案

月排行榜 / 总排行榜

n520

2012-8-29 16:19

按照你的意思做的

跳转到最佳答案楼层

mxg825

1. Private Sub CommandButton1_Click() '只用一个按钮就可以了！
   
2. Select Case ComboBox1.Text
   
3. Case Is = "语文"
   
4.    Call 语文的代码子过程
   
5. Case Is = "数学"
   
6.    Call 数学的代码子过程
   
7. End Select
   
8. End Sub
   
9. Private Sub UserForm_Initialize()
   
10.    ComboBox1.RowSource = Range("学科").Address
    
11. End Sub
    
12. Sub 语文的代码子过程()
    
13.    Label1 = "您现在是在运行“语文”数据处理！"
    
14. End Sub
    
15. Sub 数学的代码子过程()
    
16.    Label1 = "您现在是在运行“数学”数据处理！"
    
17. End Sub

复制代码

那么的帅

按扭设置-1(VBA).rar (29.82 KB, 下载次数: 12)

2012-8-29 15:47 上传

点击文件名下载附件

n520

按照你的意思做的

c888

那么的帅 发表于 2012-8-29 15:47

感谢帅师一直以来的指导。谢谢！