excel中如何实现双击单元格后跳转到另个一工作表(或另一个文件)

请大家注意是双击后,而不是右键菜单里的链接实现的单击操作,要求是双击实现。... 请大家注意是双击后,而不是右键菜单里的链接实现的单击操作,要求是双击实现。 展开
 我来答
帐号已注销
2020-01-08 · TA获得超过3679个赞
知道大有可为答主
回答量:2507
采纳率:46%
帮助的人:157万
展开全部
夜空里的守望者
2018-10-12 · 穿越时空,互联互通。
夜空里的守望者
采纳数:8493 获赞数:31597

向TA提问 私信TA
展开全部

要实现这个功能,在工作表的VBA程序代码里边可以使用“Worksheet.BeforeDoubleClick 事件”处理。

其程序代码如下:(写在Sheet1代码里面,亲测可行)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ro, co

On Error Resume Next                '忽略运行过程中可能出现的错误

Application.EnableEvents = False    '开启代码只执行一次

Set mysheet2 = ThisWorkbook.Worksheets("查询")

ro = Target.Row         '获取双击单元格所在的行

co = Target.Column      '获取双击单元格所在的列

If ro = 1 And co = 1 Then       '如果是双击A1单元格,则

 mysheet2.Select                '跳转到“查询”工作表
 
End If

Application.EnableEvents = True   '开启代码只执行一次

End Sub

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
柔软的Bp
科技发烧友

2018-01-25 · 智能家居/数码/手机/智能家电产品都懂点
知道大有可为答主
回答量:3万
采纳率:66%
帮助的人:8992万
展开全部
比如

双击A1,就自动跳转到 查询 这个工作表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("查询").Select

End If
End Sub
追问
我试了一下,这还是单击,单击就跳到了“查询”工作表,不是双击跳到“查询”工作表。
另外如果要跳到另外的文件,而不是另外的工作表,又该怎么写啊?
请高手给予答复,谢谢!
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式