[[20160223221106]] 『ドロップダウンリストからのハイパーリンク』(サクラメント) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ドロップダウンリストからのハイパーリンク』(サクラメント)

ドロップダウンリスト(A1)に10人のお名前
そろぞれの名前のついたシート10枚のB2にジャンプしたいのです。
どのような作業になりますか?数式で可能でしょうか?

例えばリストにあるミスりんごをクリックするとシート名ミスりんごのB2
にジャンプ...です。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 ワンクッション置いた案ですが、A1セルに入力規則のドロップダウンリスト、隣のセルなどにハイパーリンク関数、ではだめですか?

 =HYPERLINK("#"&A1&"!B2",A1&"へジャンプ")
(カリーニン) 2016/02/23(火) 22:31

 シートのWクリックイベントを使用した例です。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Application.Goto Worksheets(Target.Value).Range("B2"), True
 End Sub

 右クリックイベントでもいいと思います。
 ※シートが存在しない場合のエラー処理はしてません。
(カリーニン) 2016/02/23(火) 22:50

 カリーニンさん
 ありがとうございます。 
 数式でも出来るのですね!
 シートの 右クリックイベントもWクリックイベントもやってみました。
 いろいろ出来るのですね。

(サクラメント) 2016/02/23(火) 23:18


 解決後ですが、VBAでよければ、ドロップダウンで選ぶと即座にジャンプする例です。

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then Application.Goto Worksheets(Range("A1").Value).Range("B2"), True
 End Sub

(β) 2016/02/24(水) 07:45


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.