Question

Excel要怎么做到点击某个单元格即执行宏？

各位大侠好 我编写了一套宏命令
其中在ThisWorkbook总表下有这三段宏命令
Private Sub Workbook_Open()
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
现在问题是 在第三段宏命令中我要实现点击当前工作表A1单元格即执行Workbook_Open（第一段宏命令）
我是这样编写的
If Target.Row = 1 And Target.Column = 1 Then
Call ThisWorkbook.Workbook_Open
End If
按理说我应该没写错 但文件能自动刷新（我第一段宏编写的是定时自动刷新）却不能手动刷新
请问大侠们 我这段手动刷新的代码错在哪儿了 谢谢

Answer 1

你应该把那段代码派猛写改羡磨在Workbook_SheetSelectionChange里面
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
MsgBox ("点击了第1个单元格"核斗)
End If
End Sub

Answer 2

楼主应该发现这些类模块中的事件前面的声明：Private Sub

既然是 Private 的，那前雀又如何能够允许你跳出某个类模块而去执行另外一个类模罩饥块中的 Private 的子程序呢？更何况你去执行工作簿的 Open 事件，而且这个工作簿已经被打开了，又何来再次发生 Open 事物悔返件呢？

追问

我对宏命令和VB懂得比较初级 是边看书边搜索做出一份代码的 那请问我要做什么修改呢？
可以这样吗？
建立一个模块 然后将Workbook_Open的内容复制到这个模块 然后再call 模块n.Workbook_Open
谢谢
不过这样是不是麻烦了些 变成保存了两大段重复的代码

追答

1. 建立一个标准模块；

2. 在这个标准模块内建立新的子程序，并将其声明成 Public 类型（或者不声明，默认就是 Public 类型的）；

3. 在其中写上楼主需要的 VBA 代码；

4. 然后在任何模块内的其它过程中调用这个子程序。

追问

还是给我来个例子吧 谢谢
意思是不能把第三段写在ThisWorkbook下是吗

追答

从主菜单选择“插入”→ “模块”，然后在新建的 “模块1” 中写 VBA 代码。

追问

之前已经试着这样做了 没做出来才改为在总表下写第三段代码的 不过还是谢谢你

追答

楼主如果想很快解决问题，则必须要将你的代码发上来，写出你的程序目的，然后大家才能帮你。至于你说的重复代码，那也只是你自己说出来的，我们都看不见，干急也没有办法！

这样让我们如何能帮得上你呢？！

楼主还可以到 ExcelHome 论坛上去求助：
http://club.excelhome.net