“单击”在编程中怎么表示？

办公之星

Sub 插入标题行() Range("A1:D1").Copy （单击在这里怎么表示）Insert Shift:=xlDown End Sub

编程的目的是：将A1:D1作为一个标题行插入到单击处的上方“行”。

[此贴子已经被作者于2004-10-14 12:22:39编辑过]

办公之星

感谢！

1.假如把这个宏粘贴到一个新的模块中，如何让其运行？（命名或通过其他方式？希望能具体点、详细点）

2.现在录制宏时，原来的那个“停止”对话框没有了，非常通过主菜单停止，如何恢复。

啊一

工具——自定义——工具栏

办公之星

以下是引用fieldsun在2004-10-14 12:40:00的发言： 是工作表事件,放到模块中是不能执行的

真是急人。

我并不是非常要将它放到模块，我的本意是，您给的程序（原来是工作表事件！）应当怎么设置到代码中才能执行？

代码中，我还没能力区分对象、属性、方法、事件以至控件等等的。

办公之星

谢谢5楼朋友。

以下语句是否属于事件？

Application.CommandBars("Stop Recording").Visible = False

办公之星

谢谢。

可是你还没有告诉我：它属于事件吗？

还有，这个代码没有宏名，为什么，怎么让它启动，又怎么让它停止执行？

麻烦您一个一个地说清楚好吗？

shangyu

fieldsun版主的例子是利用事件驱动代码运行的。

什么是事件？你老兄用鼠标去选定一个单元格，就会产生selection_change事件，将代码放在其中，就会执行你的代码。

但当你继续选定其他单元格时，会发现该代码还会继续执行，有时你不需要这样，那可以：

1、在代码中设定判断，确定你选定的单元格的地址进而决定是否执行代码；

2、但有时这样还不行，比如你的设想，再想其他办法……

譬如你一楼所说，是通过“单击”这个动作驱动的。单击什么？这儿的“单击”不是指单击单元格，可以单击一个按钮、图形、或菜单命令。

回到你的代码，假设有一个按钮，你单击了，此时鼠标的位置是你要插入标题的地方，可以使用selection对象，该对象指当前鼠标所在单元格。

因此，如果不通过selectionchange事件直接驱动，需要两步操作：鼠标选定要插入标题的单元格、再单击已指定代码的按钮。

办公之星

谢谢，反复看了。

是不是可以这样说，做为事件的编程，放到当前表的代码区即可执行，不需要为整个代码添加一个宏名？

shangyu

以下是引用办公之星在2004-10-14 17:32:00的发言：

谢谢，反复看了。

是不是可以这样说，做为事件的编程，放到当前表的代码区即可执行，不需要为整个代码添加一个宏名？

办公之星

感谢Button，这是我来到本论坛得到的最为厚重的礼物，尽管我每天都在跟帖、发帖。

字字珠玑，已经多次学习，很有启发。