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

tiffa66

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

3190496160

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

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

2020-10-11 09:53 上传

点击文件名下载附件

tiffa66

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

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

tiffa66

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

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

tiffa66

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

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

tiffa66

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

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

zpy2

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

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

suntao2000

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

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