2
Excel - 我希望能夠在表單1上單擊一個單元格並讓它轉到表單2中的單元格。現在我不想要一個簡單的超鏈接,我需要找到表格2中的單元格。例如,我單擊包含單詞「開始」的單元格A1,並在單擊它時將其帶到單元格2中,並使用相同的短語「開始」。現在在表2中,這可以是單元格A1或A4或A57。我希望它發現以防萬一它在該欄內改變位置。基本上我需要一個帶查找功能的超鏈接。具有搜索功能的Excel超鏈接
Excel - 我希望能夠在表單1上單擊一個單元格並讓它轉到表單2中的單元格。現在我不想要一個簡單的超鏈接,我需要找到表格2中的單元格。例如,我單擊包含單詞「開始」的單元格A1,並在單擊它時將其帶到單元格2中,並使用相同的短語「開始」。現在在表2中,這可以是單元格A1或A4或A57。我希望它發現以防萬一它在該欄內改變位置。基本上我需要一個帶查找功能的超鏈接。具有搜索功能的Excel超鏈接
您可以使用VBA事件Worksheet_FollowHyperlink
在單擊鏈接後移動選擇。
添加正常超鏈接到任何細胞所希望的目的地片
在此代碼添加到源工作表模塊
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim rngDest As Range
Dim shDest As Worksheet
Dim cl As Range
Set shDest = ActiveSheet
Set rngDest = shDest.Range("A:A") ' <--- change this to your target search range
With rngDest
Set cl = .Find(Target.Range.Cells(1, 1).Value, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, xlByRows, xlNext)
If Not cl Is Nothing Then
cl.Select
Else
' value not found, return to original sheet
Target.Range.Worksheet.Activate
MsgBox Target.Range.Cells(1, 1).Value & " not found", vbOKOnly, "Not Found"
End If
End With
End Sub