iT邦幫忙

0

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

  • 分享至 

  • xImage

我其實是想這樣做的:我有一個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位置。

非常感謝大家

看更多先前的討論...收起先前的討論...
用超連結我做不到
我只會用 VBA,加一個按鈕,點下去跳過去
下雨
9manloon iT邦新手 5 級 ‧ 2015-08-25 10:13:34 檢舉
可以給個例子給我參考嗎, 謝謝大哥
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中尋找相同的名字....
9manloon提到:
這個不行


真抱歉
我這只是用 Excel 本身的 Find 功能去做尋找
如果不行的話
要麻煩另請高明了
9manloon iT邦新手 5 級 ‧ 2015-08-25 18:20:55 檢舉
沒關係, 你的方法也很不錯, 以後可以用, 只是不能用在我現在的情況, 我再研究一下. 真的非常感謝你!
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

3
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 尋找格子的內容

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!!!

我要發表回答

立即登入回答