- ベストアンサー
エクセルシート検索
現在見積書を1つのブックで大量に作成（年間でシート数が100くらいになります）しており、過去の見積を検索するのに時間がかかって仕方がありません。例えば、シート１に検索ボタンを作り、シート名（見積番号で保存）を入力するとそのシートにジャンプするというような方法ってありますか？ あると思うのですが、マクロっていうのが全くわかりません。 誰か助けて下さい。
- 15honbu
- お礼率50% (10/20)
- その他MS Office製品
- 回答数6
- ありがとう数6
- みんなの回答 （6）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (5)
- rivoisu
- ベストアンサー率36% (97/264)
- hige_082
- ベストアンサー率50% (379/747)
InputBoxを使用してシート名を入力 キャンセル、未入力、誤入力の場合は何も起こりません '標準モジュールへ Sub Macro1() Dim Sh As String On Error Resume Next Sh = Application.InputBox("見積番号を入力してください", "見積シート検索") Worksheets(Sh).Select End Sub マクロの実行の画面で一番下のオプションボタンを押し ショートカットの設定をするか ツールバーにマクロボタンを設置すると使用しやすいかも 参考まで
補足
ありがとうございます。非常に助かりました。 今回は別シートへ移動ですが、別ブックを開くっていうことも できるんでしょうか？
- rivoisu
- ベストアンサー率36% (97/264)
単純にシート名のところに飛ぶだけなら （１） Option Explicit Sub Sheet_jump() Worksheets(Range("A1").Value).Activate End Sub これでA1に書いてある名前のシートに移動します。 これをボタンかショートカットにすればいいかと また次のコードだと名前の書いてあるセルをダブルクリックすると移動します。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Worksheets(Target.Value).Activate End Sub （1）の入力方法 Excelの通常画面からAｌｔ+F11 （マクロ用のウインドが開く） 標準モジュールの挿入 そのモジュール内に上記のコードを記入（コピペ）する マクロ用のウインドを閉じる Excelの通常画面からAlt+F8（マクロ選択ウインドが開く） Sheet_jump（マクロの名前）を選び オプションからショートカットキーを登録する（例えばｑ） 今後はCtrl+qでそのシートに移動するようになります。 （2）の方法 同じようにマクロウインドを開いた後 左の「プロジェクト」の中からシート名（シート１）を選んでダブルクリックします。 同じようにコード入力の画面になるので上記のコードを記入（コピペ） マクロ用のウインドを閉じる 名前の書いてあるセルをダブルクリックするとそこへ移動します どちらにします？ また画面に窓をだして入力する方法おありますが... どっちにしてもシート数が100枚というのは尋常じゃないですね。 なんらかの方法を考えないとまたどこかで破綻しそうな気がします。
補足
早速のご回答ありがとうございます。 やっていることは全くはわかりませんが、ジャンプできました。 画面に窓を出す方法も教えて下さい。出来れば、ボタンを 押すと窓が出るなんて最高です。
- KURUMITO
- ベストアンサー率42% (1835/4283)
- xls88
- ベストアンサー率56% (669/1189)
お礼
ありがとうございます。 ネット検索ですぐに解決できました。 素人なりに、少しは本でも読んで勉強します。 本当にありがとうございました。