プルダウンメニューから即ジャンプ！

　2012-10-15

私はエクセルでQSOのWkdCfm状況を管理しています。
339カスカスNETをはじめ各サイトからQRV情報を得たとき即座に交信の有無を確認したいケースが度々あります。
これまでスクロールさせて目的の場所を探してました。これでも特段不便ということはないのですがもう少し早く目的の場所（=セル）にいくことはできないかな？と思い少し考えてみました。
エクセルのハイパーリンク機能を使えばワンクリックで目的セルへジャンプさせることも可能ですが、ここはもう少しかっこ良く「プルダウンメニューから都道府県を選択したら当該都道府県セルに即ジャンプする」ことにしました。
実現するには以下の2つの作業をする必要があります。
　(1)47都道府県のプルダウンメニューを作る・・・・データ入力規則を使用（都道府県一覧は別シート名"WAJA"）
　(2)プルダウンメニューから選択した都道府県のセルにジャンプさせる・・・・以下のVBAを使用
　　　　前提：都道府県一覧が書いてあるシート名を"WAJA"とします。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng
If ActiveSheet.Name = "WAJA" Then Exit Sub　　　　　・・・都道府県一覧のシート名が"WAJA"です
If Target.Address <> "$W$2" Then Exit Sub　　　 　　 ・・・プルダウンメニューの設定セルが"W2"です
Set rng = Range("A2:A65536").Find(Target.Value) 　・・・都道府県を検索する列範囲を指定してます
rng.Select
End Sub

上記コードをAlt+F11で開くウィンドウの左側ThisWorkbookをダブルクリックし右側空白スペースに貼り付け閉じます。
これでセルW2に設定してあるプルダウンメニューから都道府県を選択すると当該セルへ即ジャンプしてくれました。

簡易版はこちら→　ダウンロード　
（zipファイル、Excel2007で動作確認済み）