[已解决]一个看起来很简单的宏 求人实现下

zjdh

tzjx200521 发表于 2014-2-12 22:33
比如把关闭两字直接改成其它的……在选中这个控件的时候显示控件的名字…………刚才没说清楚  可能

Sub 选项按钮1_Click()
    Range("A1") = Sheet1.Shapes("选项按钮 1").AlternativeText
End Sub
Sub 选项按钮2_Click()
    Range("A1") = Sheet1.Shapes("选项按钮 2").AlternativeText
End Sub
工作表1.rar (13.52 KB, 下载次数: 3)

2014-2-13 09:46 上传

点击文件名下载附件