[已解决]vba-超级连接

零℃枫

如何把超级连接用vba代码搞定呢

比如说我双击sheet2中的c3单元格

直接就转到sheet1中的b1单元格

这样的代码是什么样子呢

最佳答案

月排行榜 / 总排行榜

EZD

2010-8-5 11:11

我就题论题

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "C3" Then Sheet1.Activate
Sheet1.Range("B1").Select
End Sub

跳转到最佳答案楼层

zxc1152468

[em01]

EZD

我就题论题

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "C3" Then Sheet1.Activate
Sheet1.Range("B1").Select
End Sub

零℃枫

QUOTE:

以下是引用EZD在2010-8-5 11:11:00的发言：

我就题论题

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "C3" Then Sheet1.Activate
Sheet1.Range("B1").Select
End Sub

非常感谢---就要这个效果

向前冲

难啊，全都看不懂。