Excel超連結可以根據數值內容搜尋到位置嗎

文書處理 excel 超連結 hyperlink

9manloon 2015-08-24 18:26:13 ‧ 13732 瀏覽

我其實是想這樣做的：我有一個excel活頁本包含了幾個工作表，其中工作表A是保存了所有員工的“詳細資料”，而工作表B是保存員工的座位表和名稱。我希望能夠簡單地點選工作表B的某個的座位名稱，excel就會根據我所點擊的名稱到工作表A中尋找符合的名稱，然後直接跳到工作表A中符合的那一方格。

由於工作表A內的員工位置資料是經常更換的，所以工作表B的座位的公式我就不想限制住在工作表A的實際方格內（比如B1,C10等等）。我希望直接點工作表B的某個名字，然後就會根據我所選的名稱去搜尋和跳到工作表A同樣名稱的人的方格位置。

我正常需要在工作表B用 =HYPERLINK("[Excel.xlsx]'Sheet_A'!B10",'Sheet_A'!B10)

我可以把B10改為某員工姓名比如Tony，然後excel就會自動去根據名字尋找工作表A的Tong的位置嗎？
**工作表A經常更改排序，所以Tony今天是在B10位置，明天可能在B20位置。

非常感謝大家

看更多先前的討論...收起先前的討論...

海綿寶寶 iT邦大神 1 級 ‧ 2015-08-25 08:47:14 檢舉

用超連結我做不到
我只會用 VBA，加一個按鈕，點下去跳過去

9manloon iT邦新手 5 級 ‧ 2015-08-25 10:13:34 檢舉

可以給個例子給我參考嗎, 謝謝大哥

海綿寶寶 iT邦大神 1 級 ‧ 2015-08-25 10:28:37 檢舉

1.工具->巨集->Visual Basic 編輯器
2.VBA Project(新增)->Module 1
3.將以下的程式碼貼進去
4.點回 Excel 活頁簿畫面
4.在 Sheet_B 點選一格
5.工具->巨集->執行巨集(Main)

一切順利的話
就會跳到 Sheet_A 的那格了

Sub Main()
    sFind = ActiveCell.Value
    
    Sheets("Sheet_A").Select
    Cells.Find(What:=sFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
End Sub

9manloon iT邦新手 5 級 ‧ 2015-08-25 14:02:18 檢舉

這個不行... 這個不能根據我在sheet B點擊的名字到Sheet A中尋找相同的名字....

海綿寶寶 iT邦大神 1 級 ‧ 2015-08-25 14:53:25 檢舉

9manloon提到：
這個不行

真抱歉
我這只是用 Excel 本身的 Find 功能去做尋找
如果不行的話
要麻煩另請高明了

9manloon iT邦新手 5 級 ‧ 2015-08-25 18:20:55 檢舉

沒關係, 你的方法也很不錯, 以後可以用, 只是不能用在我現在的情況, 我再研究一下. 真的非常感謝你!

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

eigen

iT邦新手 1 級 ‧ 2015-08-25 14:52:47

最佳解答

excel Alt+F11
選擇 sheet1(sheet1)

貼上
Option Explicit
'雙擊儲存格程式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Workbooks("尋找的檔名.xls").Worksheets("Sheet1").Activate
Workbooks("尋找的檔名.xls").Worksheets("Sheet1").Cells.Find(What:=Target.Cells(1, 1).value).Activate
End Sub

之後在 sheet1 的格子雙擊，會跳到尋找的檔名.xls 尋找格子的內容

回應 2
分享
檢舉

9manloon iT邦新手 5 級 ‧ 2015-08-25 18:55:22 檢舉

我excel知識非常低, 所以我真的是一步一步照著你說的做, 然後一頭霧水, 根本不知道你說的是點哪裡. 請問有更詳細的步驟嗎?.... 謝謝!

9manloon iT邦新手 5 級 ‧ 2015-09-07 16:20:07 檢舉

Option Explicit
'雙擊儲存格程式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Workbooks("尋找的檔名.xls").Worksheets("Sheet1").Activate
Workbooks("尋找的檔名.xls").Worksheets("Sheet1").Cells.Find(What:=Target.Cells(1, 1).value).Activate
End Sub

This is exactly what I want!!!!! Thank you so much!!! so much!!!

登入發表回應