ExcelVBAでブックのシート名を検索して見つかったときにシートをアクティブにさせる方法

この記事では当方が実際にご相談いただいた内容をまとめております。
シートが大量にあり、特定のシートを検索したいという方向けの記事です。

ブックのシート名を検索して見つかったときにシートをアクティブにさせる方法

こんなことで悩んでいませんか?
シートが多すぎて特定のシートを探すのに時間がかかってしまう。
シート名で検索したいがExcelの検索機能ではできそうにない。
Excelの機能でできないことはExcelVBAでプログラミングを作成してできるようにします。
ブックのシート名を検索して見つかったときにシートをアクティブにする方法をまとめてみました。

シート検索コードの作成


「開発」タブをクリック
「Visual Basic」をクリック
「ブックのシート名を検索して見つかったときにシートをアクティブにするコード」の入力

シート検索コードの解説

まずシート検索のコードを作成する際にどんな処理を実装しないといけないかを紙に書き出してみましょう。
今回のコードだと主に下記3つのときを考慮に入れて作成しました。

  • 入力ボックスに何も入力されていないとき
  • ブック内に検索したシートが存在したとき
  • ブック内に検索したシートが存在しないとき

入力ボックスに何も入力されていないときは処理を終了する
ブック内に検索したシートが存在したときは存在したシートをアクティブにしてメッセージを表示する
ブック内に検索したシートが存在しないときは見つかりませんでしたと表示する

プログラミング作成に慣れていないうちはコードを作成する前に紙に書き出して考えるようにしましょう。

シート検索ボタンにマクロを登録


「開発」タブをクリック
コントロールグループの「挿入」をクリック
「ボタン(フォームコントロール)」をクリック
適当な箇所でドラッグしてボタンを作成


「シート名検索」をクリック
「OK」をクリック


「ボタン(フォームコントロール)内」をクリック
BackSpaceかDeleteキーで文字を削除
「シート検索」と入力

ボタンをクリックしてシート名検索マクロの実行

シートが存在するとき


作成したシート検索ボタンをクリック
「Sheet2」と入力
「OK」をクリック


「Sheet2」がアクティブになる
「Sheet2が見つかりました!」と表示される

シート名に何も入力されていないとき


作成したシート検索ボタンをクリック
何も入力しないで「OK」をクリック
処理が終了される

シートが存在しないとき


作成したシート検索ボタンをクリック
「test」と入力
「OK」をクリック


「testは見つかりませんでした!」と表示される

結論(まとめ)

「ExcelVBAでブックのシート名を検索して見つかったときにシートをアクティブにさせる方法」を解説しました。

  • コードの作成
  • ボタンにマクロを登録
  • ボタンをクリックしてシート名検索マクロの実行

ボタンをクリックするとシート名を検索するマクロを作成することができました。

The following two tabs change content below.
アバター画像
100局1,000パーソナリティのリーダーホンマルラジオ本部プロデューサー恵澤舜元(えざわよしゆき)。 代表取締役を務めるデジネスラボ株式会社が1人社長で法人化後わずか2年以内に株式会社IOBI様より大阪市約11万社の中から大阪市を代表する企業100選に選出された。 【選出企業様記事一例】 ミズノ株式会社様(大阪市を代表する企業100選) 株式会社公文教育研究会(KUMON)様(大阪市を代表する企業100選) パナソニックホールディングス(地域を代表する企業100選) ホンマルラジオBMS局開局後2年半年以内で斎藤一人さんの弟子宮本真由美さんの『人生がオドロクほどなんとかなる!まゆみのなんとかなる♡ラジオチャンネル!』年間30万回再生を抑えて2週連続30分番組の全国総合ランキング1位を獲得ホンマルラジオ30分番組『みんなのビジネスネタが見つかるBMSラジオ』 ホンマルラジオBMS局開局後わずか5カ月以内で全国1位ホンマルラジオ10分番組『BMSビジネスネタチャンネル』年間10万回再生突破

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA