【求助】如何使按键始终显示在我看得到的地方

Dreamer_09 · 发表于 2007-11-15 16:33

QUOTE:

以下是引用zlt518在2007-11-15 15:27:54的发言：

在工具栏--自定义--命令--自定义按钮

点住自定义按钮，拖至工具栏的适当位置，放开即可；

然后，右键点击连接宏。

万分感谢

连同我的另一个问题也解决了……

BobPan · 发表于 2007-11-19 10:59

赞成定义按钮，VBA代码实现了功要求，但可能会给工作带来更大的不变

柳qing · 发表于 2007-11-19 12:42

QUOTE:

以下是引用BobPan在2007-11-19 10:59:51的发言：
赞成定义按钮，VBA代码实现了功要求，但可能会给工作带来更大的不变

此话怎讲？为什么会给工作带来更大的不变，是因为代码运行占用内存的缘故吗？

BobPan · 发表于 2007-11-19 13:52

因为实现浮动按钮，是通过不断的判断当前窗口的第一行行号，也就判断用户有没有滚动窗口，如果有，就移动按钮的位置

不断的判断可能是每秒一次，也就是说每秒钟都会有代码运行，所以会给工作带来诸多的不变

hhzjxss · 发表于 2007-11-20 08:33

to wangminbai:

为什么打开后，点击一下工作表的单元格，就出错了呢？

[此贴子已经被作者于2007-11-20 8:34:09编辑过]

XUZHANCHENG · 发表于 2007-11-20 12:31

厉害啊

秦关明月 · 发表于 2007-11-20 21:40

看看这个行不？我用了两个浮动按钮，代码好象没那么长（在2楼）：

http://club.excelhome.net/viewthread.php?tid=277019&extra=&page=1#277019

[此贴子已经被作者于2007-11-20 21:41:49编辑过]

wpcpa · 发表于 2007-11-20 22:29

确实不断地在判断，占用系统资源

sjzhouah · 发表于 2007-11-20 22:39

如果不是对滚动条响应，而仅仅对选择储存格响应的话，也可以这样：

Private Sub CommandButton1_Click()
MsgBox "OK"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Target.Top
CommandButton1.Left = Target.Left + Target.Width + 10
End Sub

cPizMHZU.rar (7.98 KB, 下载次数: 153)

poongsan · 发表于 2007-11-24 12:28

高手啊!!!我学学!!

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