我有以下代码会自动创建超链接,以将用户带到另一张纸上的单元格。但是,我想引用一个单元格范围,而不是单个单元格。
Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook()
Dim i_counter As Integer
Dim i_output As Integer
i_output = 14
For i_counter = 16 To 20
ActiveSheet.Hyperlinks.Add Range("F" + CStr(i_counter)), Address:="", SubAddress:="'" & Sheet7.Name & "'!D" & CStr(i_output), TextToDisplay:="Go"
i_output = i_output + 132
Next i_counter
End Sub
这是我想到的解决方案。但是该引用无效。如果有人可以帮助我改善语法,将不胜感激:
Sub GoToRangeOfCellsInAnotherSheetInTheSameWorkbook()
Dim i_counter As Integer
Dim i_output1 As Integer
Dim i_output2 As Integer
i_output1 = 14
i_output2 = 42
For i_counter = 16 To 20
ActiveSheet.Hyperlinks.Add Range("F" + CStr(i_counter)), Address:="", SubAddress:="'" & Sheet7.Name & "'!A & CStr(i_output1): A & CStr (i_output2)", TextToDisplay:="Go"
i_output1 = i_output1 + 132
i_output2 = i_output2 + 132
Next i_counter
End Sub
我认为Stack Overflow语法突出显示了问题所在:)如果仅在VBA IDE中存在该问题...
如果您替换以下行,则可能有效:
ActiveSheet.Hyperlinks.Add Range("F" + CStr(i_counter)), Address:="", SubAddress:="'" & Sheet7.Name & "'!A & CStr(i_output1): A & CStr (i_output2)", TextToDisplay:="Go"
这个...
ActiveSheet.Hyperlinks.Add Range("F" & CStr(i_counter)), Address:="", SubAddress:="'" & Sheet7.Name & "'!A" & CStr(i_output1) & ": A" & CStr(i_output2), TextToDisplay:="Go"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句