链接到Excel中的variables单元格

我有一本工作簿，有两张纸。 在Sheet1中，每行都有一个链接，链接到Sheet2。 在Sheet2中，我需要生成一个链接，将我带回到单击链接的同一行。 一旦我点击链接，该行的数量存储在Sheet2的单元格A1中。

例如，这个公式将生成一个链接，将我带回到工作表1，单元格1.但是，我希望能够生成一个不同的行号，而不是所有的第一行。

Sheet2.Cells(19, 1) = "=HYPERLINK(""#Sheet1!A1"",""CLICK HERE"")" 

谢谢。

Answer 1

是的，你可以设置一个不同的范围，创build一个范围string，并将其添加到您的超链接公式。

 Sub HyperlinkTest() Dim cell As Range Dim rangeString As String Set cell = Sheet2.Cells(2, 3) 'rangeString = Sheet2!$C$2 rangeString = cell.Worksheet.Name & "!" & cell.Address Sheet2.Cells(19, 1) = "=HYPERLINK(""#" & rangeString & """,""CLICK HERE"")" End Sub 

---

另外，也可以不使用超链接function，而是在代码中添加超链接。

这是一个例子。

 Sub HyperlinkTest2() Dim targetCell As Range, sourceCell As Range Dim targetRangeString As String Dim displayText As String displayText = "Click Me" Set targetCell = Sheet1.Cells(2, 3) 'where we want the hyperlink to point to Set sourceCell = Sheet2.Cells(30, 1) 'where we want to put the hyperlink 'target range address including sheet name targetRangeString = targetCell.Worksheet.Name & "!" & targetCell.Address 'add the hyperlink Sheet2.Hyperlinks.Add sourceCell, "", targetRangeString, , displayText End Sub