[已解决]求一命令按钮

cqzcs

     求一命令按钮，要求点击按钮时，在按钮上显示“选择”，同时在单元格A1里也显示“选择”，而再次点击按钮时按钮上显示“取消”
， 同时单元格A1里也显示“取消”。谢谢！！！最好给个实例附件。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-22 19:03

按钮03.rar (10.87 KB, 下载次数: 15)

2013-2-22 19:03 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Select Case Me.CommandButton1.Caption
   
3.         Case "开始"
   
4.             Range("a1") = "取消"
   
5.             Me.CommandButton1.Caption = "取消"
   
6.         Case "取消"
   
7.             Range("a1") = "开始"
   
8.             Me.CommandButton1.Caption = "开始"
   
9.     End Select
   
10. End Sub

复制代码

hwc2ycy

按钮.rar (17.32 KB, 下载次数: 5)

2013-2-22 18:46 上传

点击文件名下载附件

hwc2ycy

按钮.rar (17.19 KB, 下载次数: 5)

2013-2-22 18:43 上传

点击文件名下载附件
标题弄错了，

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Select Case Me.CommandButton1.Caption
   
3.         Case "选择"
   
4.             Range("a1") = "取消"
   
5.             Me.CommandButton1.Caption = "取消"
   
6.         Case "取消"
   
7.             Range("a1") = "选择"
   
8.             Me.CommandButton1.Caption = "选择"
   
9.         Case Else
   
10.             Range("a1") = "选择"
    
11.             Me.CommandButton1.Caption = "选择"
    
12.     End Select
    
13. End Sub

复制代码

cqzcs

老师能否上传个2003版本的附件啊？没用个高版本的，打不开啊。麻烦了，谢谢！！！

hwc2ycy

按钮03.rar (10.87 KB, 下载次数: 15)

2013-2-22 19:03 上传

点击文件名下载附件

hwc2ycy

我这木有03，好不容易找了个有宏代码的03文件。

cqzcs

谢谢hwc2ycy，正是我所需要的，再次感谢！！！

zgm1201

学习了，谢谢分享！