Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4453|回复: 10

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

[复制链接]
发表于 2014-2-12 21:51 | 显示全部楼层 |阅读模式
一个看起来很简单的宏 求人实现下
最佳答案
2014-2-13 09:46
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
(, 下载次数: 3)

新建 Microsoft Excel 工作表.rar

9.63 KB, 下载次数: 9

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-2-12 21:58 | 显示全部楼层
这个貌似不用宏就能完成啊。

新建 Microsoft Excel 工作表.zip

8.38 KB, 下载次数: 11

回复

使用道具 举报

 楼主| 发表于 2014-2-12 22:01 | 显示全部楼层
回复

使用道具 举报

发表于 2014-2-12 22:02 | 显示全部楼层
Sub 打开()
Range("a1").Value = "打开"
End Sub
Sub 关闭()
Range("a1").Value = "关闭"
End Sub
右键指定宏就可以了

评分

参与人数 1 +3 收起 理由
tzjx200521 + 3 方法不错。给力!

查看全部评分

回复

使用道具 举报

发表于 2014-2-12 22:03 | 显示全部楼层
GIF图。。
1.gif

评分

参与人数 3 +21 收起 理由
baksy + 3 赞一个!
tzjx200521 + 3 很给力!
冠军欧洲2010 + 15 龙哥。厉害。

查看全部评分

回复

使用道具 举报

发表于 2014-2-12 22:07 | 显示全部楼层
好弄啊。
  1. Sub 选项按钮1_Click()
  2.     Range("A1") = "关闭"
  3. End Sub
  4. Sub 选项按钮2_Click()
  5.     Range("A1") = "打开"
  6. End Sub
复制代码

工作簿1.rar

14.51 KB, 下载次数: 9

回复

使用道具 举报

 楼主| 发表于 2014-2-12 22:09 | 显示全部楼层
冠军欧洲2010 发表于 2014-2-12 22:07
好弄啊。

如果没CLINK???直接打开就选中一个你这代码实现不了吧??
回复

使用道具 举报

发表于 2014-2-12 22:14 | 显示全部楼层
当然可以啦。
22.gif

评分

参与人数 1 +3 收起 理由
tzjx200521 + 3 赞一个!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-2-12 22:16 | 显示全部楼层
冠军欧洲2010 发表于 2014-2-12 22:14
当然可以啦。

有没有办法直接表示两个单选的名字???
回复

使用道具 举报

 楼主| 发表于 2014-2-12 22:33 | 显示全部楼层
tzjx200521 发表于 2014-2-12 22:16
有没有办法直接表示两个单选的名字???

比如把关闭两字直接改成其它的……在选中这个控件的时候显示控件的名字…………刚才没说清楚  可能
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 13:16 , Processed in 0.470098 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表