Excel でのジャンプのやり方

質問

Excelのシート１に従業員番号が入った表があり、シート２に従業員番号が入った住所録があります。
今シート１の従業員番号をクリックするとシート２のその従業員番号の
住所録データにジャンプするようにすることはできませんでしょうか？

回答No.5

iyonohanamuko · ベストアンサー

例えば
シート1のA列に従業員番号があるとします
シート2のA列に従業員番号あるとします
シート2のB列に住所録があるとします

シート1のB1に以下入力してみてはいかがでしょうか？
=HYPERLINK("#Sheet2!B" & MATCH(A1, Sheet2!A:A, 0), "ジャンプ")

お礼

何度もアドバイスありがとうございます。
おかげでうまくジャンプできました。

回答No.4

imogasi

この問題はVBAに適してます。
ーー
Sheet２のA1:B5に　（詳しく見たい情報のあるシートの方）
氏名 所属
木村 神田支店
木下 堀留支店
山田 渋谷支店
木下 渋谷支店
とあり、
ーー
Sheet1のA1:A4に
氏名
山田
木村
近藤
があるとします。
ーー
Sheet1のA列で山田のセルをクリックすると
Sheet2の山田のセルが選択状態になります。
ーー
上記の仕組みを作るためには、
Sheet1のタブで右クリックして出てくる画面に下記をコピペ。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target
If Target = "" Then
MsgBox "空白セルです"　'空白セルの選択は何もしない
Else
If Not Intersect(Target, Worksheets("Sheet1").Range("A2:A100")) Is Nothing Then　’Sheet1のA列ならと限定
Worksheets("Sheet2").Activate
Set fndcl = Worksheets("Sheet2").Range("A2:A10000").Find(what:=Target)　’Sheet1でセル指定の名前を検索
If Not fndcl Is Nothing Then　’見つかったら
fndcl.Select　’Sheet2の該当セルを選択
Else
MsgBox "該当なし"
End If
End If
End If
End Sub
やっていることは検索（Ｆｉｎｄ）と選択（Ｓｅｌｅｃｔ）だけなんですが、経験がないと使う気がしないかも。
また色んなケースで使われる場面を盛り込んでいることが、上記では不足かも。
でも有名な事項なのでＷＥＢには関連情報は沢山情報があります。
ー
まあ参考に、というぐらいかな。
仕事ではＶＢＡは不可欠だと思う。エクセルのシートのデータベース的使い方でもそう思う。

お礼

回答ありがとうございます。
VBAはつかいたくないので、すいません。

回答No.3

aokii

Sheet1のA列に従業員番号、Sheet2のA列に従業員番号、Sheet2のB列に従業員番号が記入されている場合は、以下の式をSheet1のB列に記入して下にドラッグコピーして、Sheet1のA2の従業員番号から住所録データにジャンプする場合は、Sheet1のB2セルをクリックしてみて下さい。
=HYPERLINK("#Sheet2!B"&MATCH(A1,Sheet2!A:A,0),A1&"の住所へジャンプ")

お礼

回答ありがとうございます。
うまくジャンプできました。

回答No.2

aokii

住所録データにジャンプすることはできますが、住所録データにジャンプする目的が、その従業員番号の住所録データの抽出でしたら、VLOOKUP関数を使えば、その従業員番号の住所録データを自動抽出できます。

補足

回答ありがとうございます。
抽出でなくて、そのデーターにジャンプして参照するだけでよいのですが？

回答No.1

iyonohanamuko

ハイパーリンクを使用するというのはいかがでしょうか？
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/hyperlink.htm

従業員の数がかなりの量であるならばPCスペックが高くないと重たくなるかもしれません。

補足

回答ありがとうございます。
このページをみても具体的にどのように引数を入れたら良いかわかりません。
具体的に教えていただけるとありがたいです。