☰

VBA - 使超链接显示文本等于活动单元格内容

tag-icon • tag-icon microsoft-excel worksheet-function vba
VBA - 使超链接显示文本等于活动单元格内容

如何使此超链接的显示文本等于活动单元格 B50 的内容，而不是文本“B50”？

公式的其余部分都有效，我只是需要编辑显示文本。

Range("B50").Select
ActiveCell.FormulaR1C1 = "=HYPERLINK(""[wbk]strLastSheetName!C13"",""B50"")"

编辑：现在显示文本可以正常工作，但超链接不起作用。我试图让超链接转到工作簿中最后一张表的单元格 C13。我有：

Function GetLastSheetName() As String
    Dim wbk As Excel.Workbook

    Set wbk = Excel.ActiveWorkbook
    GetLastSheetName = wbk.Worksheets(wbk.Worksheets.Count).Name
End Function

然后在 Sub 中：

Dim strLastSheetName As String
strLastSheetName = GetLastSheetName()

Range("B50").FormulaR1C1 = "=HYPERLINK([" & wbk " "]strLastSheetName!C13," & Range("B50").Value & ")"

答案1

我明白了——这是可行的：

    Range("B" & Lastrow).Select
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "" & strLastSheetName & "!C13"

相关内容