悬赏50分，求excel单元格双击鼠标事件运行宏VBA我学VBA不久，想在excel单元格处双击鼠标来运行宏？请问： 如何实现在excel单元格双击鼠标运行宏？ 也就是说，如何将宏指定给单元格双击事件？ 也就是双击时运行宏，而单击时却运行链接（到某表或某单元格），[ 本帖最后由 hhzjxss 于 2009-12-14 16:49 编辑 ]
悬赏50分，求excel单元格双击鼠标事件运行宏VBA
我学VBA不久，想在excel单元格处双击鼠标来运行宏？请问：
如何实现在excel单元格双击鼠标运行宏？
也就是说，如何将宏指定给单元格双击事件？
也就是双击时运行宏，而单击时却运行链接（到某表或某单元格），
[
本帖最后由 hhzjxss 于 2009-12-14 16:49 编辑 ]
22楼
随便双击某一单元格都行
包括你要的A1单元格，只不过出现两个对话框，一个是你的，一个是我的。
回复
23楼
感谢楼上的两位朋友，我会认真学习两位的，感谢了！
回复
24楼
再给你发一个
回复
25楼
谢谢你的赐教，请问：
1、在A1单元格双击实现插入工作表sheet4；
2、在A2单元格双击实现删除工作表sheet3；
3、在A3单元格双击实现一个对话框；
4、在A4单元格双击实现新建一个工作簿book。
还请两位指点！
回复
26楼
Sub asd()
Sheets("sheet1").Select
If ActiveCell.Address = "$A$1" Then
Sheets.Add
End If
If ActiveCell.Address = "$A$2" Then
Sheets("sheet2").Delete
End If
If ActiveCell.Address = "$A$3" Then
MsgBox "笨", vbInformation, "提示信息"
End If
If ActiveCell.Address = "$A$4" Then
Workbooks.Add
End If
End Sub
回复
27楼
回复
28楼
我照你写的做了，可不能运行呀。
现发上来，你看看吧，是我那里弄错了吧？
回复
29楼
下载看看是不是你要的功能
回复
30楼
我看了，很不错。
只是，为什么一定要放在“模块”里面吗，放在“sheet1”里面不行吗？
回复
31楼
放在“模块”里面吗，sheet1、sheet2、sheet3都可以调用吗？
回复
