求大神指点，宏批量超链接到指定单元格

tiffa66 · 发表于 2020-10-10 23:38

不会使用宏，在此求助大神，如何在一张工作表中使用宏来批量超链接到指定单元格，如图，点击A3跳到F3，点击B3跳到G3，点击A4跳到F4，求大神指点怎么操作

3190496160 · 发表于 2020-10-11 09:52

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = 1 Or T.Column = 2 Then
If T.Count > 1 Then Exit Sub
If T.Value = "" Then Exit Sub
T.Offset(, 5).Select
End If
End Sub

3190496160 · 发表于 2020-10-11 09:53

工作簿1.rar (11.57 KB, 下载次数: 5)

tiffa66 · 发表于 2020-10-11 11:10

3190496160 发表于 2020-10-11 09:53

感谢大大！！！能不能解释下是怎么弄的呀，感谢！

tiffa66 · 发表于 2020-10-11 11:40

3190496160 发表于 2020-10-11 09:53

感谢，能不能解释下如何操作呀

tiffa66 · 发表于 2020-10-11 13:14

本帖最后由 tiffa66 于 2020-10-11 13:40 编辑

3190496160 发表于 2020-10-11 09:52
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = 1 Or T.Column = 2 Then
I ...

谢谢，另外多问一句，试着做了以下，以下代码有哪里不对的吗？一直显示偏移范围错误
============================

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column >= 11 And T.Column <= 111 Then
If T.Value = "" Then Exit Sub
T.Offset(, 101).Select
End If

If T.Column >= 112 Then
If T.Value = "" Then Exit Sub
T.Offset(, -101).Select
End If
End Sub

zpy2 · 发表于 2020-10-12 07:50

T.Offset(, -101).Select
是不是这句标黄了？

tiffa66 · 发表于 2020-10-12 12:10

zpy2 发表于 2020-10-12 07:50
T.Offset(, -101).Select
是不是这句标黄了？

是的，但有时候又是T.Offset(, 101).Select这句标黄了

zpy2 · 发表于 2020-10-12 15:23

tiffa66 发表于 2020-10-12 12:10
是的，但有时候又是T.Offset(, 101).Select这句标黄了

Offset
你把光标放到这个单词，然后，f1看看吧。
或者百度一下。
我记得是偏移的意思。向当前列右偏移 101列，但是表总共的列数大概是225吧，所以。。

suntao2000 · 发表于 2020-10-18 13:08

tiffa66 发表于 2020-10-12 12:10
是的，但有时候又是T.Offset(, 101).Select这句标黄了

所点的单元格列号小于101,往回数(左)101列会小于1，没有小于1的列，所以

		自动登录	找回密码
密码			免费注册

求大神指点，宏批量超链接到指定单元格

评分