教大家做一个又简单又漂亮的宏按钮

laynet · 发表于 2012-2-8 09:33

本帖最后由 laynet 于 2012-2-9 16:21 编辑

效果图:

首先是在单元格中插入一个圆角矩形:
自选图形-基本形状-圆角矩形

然后设置图形格式-在颜色和线条里选择填充-颜色-填充效果:

效果如下,我只是举个例子.

做好矩形好,加上说明文字,然后右键矩形,选择插入超链接
在屏幕提示里输入你要给按钮添加的提示文字
单元格引用就引用到你按钮所在的单元格里.比如我的是在C7格.为什么要这样我在下面说明

这样就做好了一个按钮,一点击它就会自动连接到C7格

这个时候不能直接给矩形添加宏,因为这样只会执行超链接而不会执行宏
也不能删除超链接,因为这样就不会有屏幕提示
所以我们要用一个取巧的方法,在工作表的代码上加上:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7" Then Call aaa
'作用:点击本工作表的C7单元格就自动执行宏aaa
End Sub
'-----------------------------------------
Sub aaa()
MsgBox "这是一个宏按钮"
Range("D7").Select
End Sub

复制代码

需要说明的是,上面那个代码如果光标本身就在C7格了,那么再点击C7格不会执行宏,需要将光标移开再点C7格才会
所以我在引用的宏aaa的最后加上一句Range("D7").Select将光标移开.

如果这样做的宏按钮多了,不知道会不会给工作薄带来更多的计算量造成卡的现象.如果还有更好的办法,欢迎各位共享一下.

例子工作薄:

Book4.rar (6.72 KB, 下载次数: 1104)

dzymx · 发表于 2012-2-8 09:48

谢谢分享。

manitou · 发表于 2012-2-8 10:59

这在做一个按钮链接，谢谢，学习了，很强大

rtnhf · 发表于 2012-3-28 10:56

是我想要的，学习

香川群子 · 发表于 2012-3-28 11:21

楼主画蛇添足啊。不需要使用超链接。毫无意义。

zhang139 · 发表于 2012-3-29 08:08

不错学习了

laynet · 发表于 2012-3-30 16:17

香川群子发表于 2012-3-28 11:21
楼主画蛇添足啊。不需要使用超链接。毫无意义。

是有点画蛇添足,不过我要的是那个注释的效果,这样有一种指向宏按钮就会有这个宏按钮的功能说明注释出来的效果.看起来也美观很多.但是如果直接添加宏,注释效果就出不来了,我用的版本是2003,不知道以上的版本会不会有所不同

michelle_60 · 发表于 2012-3-30 16:31

学习了，以后可以学着做

香川群子 · 发表于 2012-3-30 16:57

laynet 发表于 2012-3-30 16:17
是有点画蛇添足,不过我要的是那个注释的效果,这样有一种指向宏按钮就会有这个宏按钮的功能说明注释出来的 ...

一般在宏按钮上，写入一个简洁的名称，应该就足够了。

如果你一定需要加入字数较多的注释……
估计是给别人看的吧。

那么，简单的思路是：

1. 宏运行，出来一个消息窗，告诉你我这个宏有什么作用（即你要的注释内容）
2. 这个消息窗有两个按钮。按OK就正式执行宏，按Cancel就取消，终止宏的运行。

这样不就足够了么。

换一种方法吧。

解决思路：

jack_wei_jack · 发表于 2012-10-3 22:14

这在做一个按钮链接，谢谢，学习了，很强大

		自动登录	找回密码
密码			免费注册

[分享] 教大家做一个又简单又漂亮的宏按钮