悬赏50分，求excel单元格双击鼠标事件运行宏VBA我学VBA不久，想在excel单元格处双击鼠标来运行宏？请问： 如何实现在excel单元格双击鼠标运行宏？ 也就是说，如何将宏指定给单元格双击事件？ 也就是双击时运行宏，而单击时却运行链接（到某表或某单元格），[ 本帖最后由 hhzjxss 于 2009-12-14 16:49 编辑 ]
悬赏50分，求excel单元格双击鼠标事件运行宏VBA
我学VBA不久，想在excel单元格处双击鼠标来运行宏？请问：
如何实现在excel单元格双击鼠标运行宏？
也就是说，如何将宏指定给单元格双击事件？
也就是双击时运行宏，而单击时却运行链接（到某表或某单元格），
[
本帖最后由 hhzjxss 于 2009-12-14 16:49 编辑 ]
12楼
还是没有能搞明白，期待更明了的答案！
回复
13楼
我试过，右键单击没有反应，我以为是你保护了，可你又没有保护工作表呀，真搞不懂。
回复
14楼
我先看看吧，如果解决问题了，我会把分全送给你的，感谢你的热情大方！
回复
15楼
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
MsgBox "OK，你双击的单元格是" & Target.Address, 48, " 双击测试"
End If
End Sub
要是你能写上说明就好了。
1、Worksheet是指工作表吗？
2、DoubleClick是双击，那么BeforeDoubleClick是双击以前？
3、Target.Address 是指什么地址？
请尽快回贴，我的送分只有两天了，要不系统会扣分的，两天内我要全部送出积分，谢谢！
回复
16楼
****点击工程sheet1，插入下述事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("sheet1").OnDoubleClick = "asd"
End Sub
****再插入下述宏模块
Sub asd()
MsgBox "笨", vbInformation, "提示信息"
End Sub
**********可能太简单了，这么多天也没有人回答你!
回复
17楼
我是想编制程序，顺便把预算定额搞一下，但我觉得还是双击单元格的那个要好些。
谢谢你了！
回复
18楼
我试过，右键单击没有反应，我以为是你保护了，可你又没有保护工作表呀，真搞不懂。
你还没回答我这个问题呢？
回复
19楼
我把这些加进去了，却出现如下所示：
程序如下：
回复
20楼
你的宏不是双击单元格测试.xls里的宏，而是sheet1里的过程，过程是不行的，要行必须是模块中的过程
你看看我给的附件，一点问题没有
回复
21楼
你应EXCEL工作表中新建asd 宏 即点菜单工具 宏 “宏名”ASD 新建
而不能在VBE中插入过程，因为你要的是将双击事件交给宏。
不知道我说清楚了没有？
回复
