Excel - 从不同 sheet 和超链接上的单元格中提取数据
Excel - Pull data from a cell on a different sheet and hyperlink
我知道如何使用公式 =Sheet2!A2
从 excel 中的单独工作 sheet 中提取数据。这会从我的 Sheet2 中提取 A2 单元格中的任何数据。但是是否可以使用公式从该单元格中提取数据并将其 hyperlink 到该单元格?我知道您可以手动 link 它,但我正在努力让我的 sheet 尽可能自动化。有什么帮助,谢谢。
试试,
=hyperlink("#"&address(row(sheet2!a2), column(sheet2!a2), 4, 1, "sheet2"), sheet2!a2)
也可以根据信息函数CELL,解析出带有长子公式的工作表名。
=hyperlink("#"&address(row(sheet2!a2), column(sheet2!a2), 4, 1, mid(cell("filename", sheet2!a2), find("]", cell("filename", sheet2!a2))+1, 255)), sheet2!a2)
由于 CELL("filename", ...)
函数的性质,它只会 return 来自已保存工作簿的工作表名称。即不是未保存的 Book1。
根据 URL 的长度,由于单元格中的字符限制,有时 =HYPERLINK 仍然无法使用。
这不是我的代码,但我不记得来源了:
Sub insertVeryLongHyperlinks()
Dim allCells As Range
Dim curCell As Range
Dim longHyperlink As String
Dim title As String
Set allCells = Range("A2:A2") '## Modify as needed
For Each curCell In allCells
title = Cells(curCell.Row, "A").Value '## Modify row for visible text of hyperlink
longHyperlink = curCell.Value
If Len(curCell) > 1 Then
curCell.Hyperlinks.Add Anchor:=curCell.Offset(0, 1), _
Address:=longHyperlink, _
SubAddress:="", _
ScreenTip:=title, _
TextToDisplay:=title
Else
End If
Next
'MsgBox "Hyperlinks updated!"
End Sub
由于偏移量,这会将 link 添加到右侧的单元格中,并将使用 A2 中的值作为标题。使用此功能,您可以创建超出单元格字符限制的 URL link。
我知道如何使用公式 =Sheet2!A2
从 excel 中的单独工作 sheet 中提取数据。这会从我的 Sheet2 中提取 A2 单元格中的任何数据。但是是否可以使用公式从该单元格中提取数据并将其 hyperlink 到该单元格?我知道您可以手动 link 它,但我正在努力让我的 sheet 尽可能自动化。有什么帮助,谢谢。
试试,
=hyperlink("#"&address(row(sheet2!a2), column(sheet2!a2), 4, 1, "sheet2"), sheet2!a2)
也可以根据信息函数CELL,解析出带有长子公式的工作表名。
=hyperlink("#"&address(row(sheet2!a2), column(sheet2!a2), 4, 1, mid(cell("filename", sheet2!a2), find("]", cell("filename", sheet2!a2))+1, 255)), sheet2!a2)
由于 CELL("filename", ...)
函数的性质,它只会 return 来自已保存工作簿的工作表名称。即不是未保存的 Book1。
根据 URL 的长度,由于单元格中的字符限制,有时 =HYPERLINK 仍然无法使用。
这不是我的代码,但我不记得来源了:
Sub insertVeryLongHyperlinks()
Dim allCells As Range
Dim curCell As Range
Dim longHyperlink As String
Dim title As String
Set allCells = Range("A2:A2") '## Modify as needed
For Each curCell In allCells
title = Cells(curCell.Row, "A").Value '## Modify row for visible text of hyperlink
longHyperlink = curCell.Value
If Len(curCell) > 1 Then
curCell.Hyperlinks.Add Anchor:=curCell.Offset(0, 1), _
Address:=longHyperlink, _
SubAddress:="", _
ScreenTip:=title, _
TextToDisplay:=title
Else
End If
Next
'MsgBox "Hyperlinks updated!"
End Sub
由于偏移量,这会将 link 添加到右侧的单元格中,并将使用 A2 中的值作为标题。使用此功能,您可以创建超出单元格字符限制的 URL link。