Excelでコンボボックスの選択した値で特定のワークシートを開くにはどうすればよいですか?
以下のスクリーンショットに示すように、現在のワークブックのすべてのシート名を含むコンボボックスがあるとします。 次に、コンボボックスで対応するシート名を選択するときに、特定のワークシートを開きます。 それを達成する方法は? この記事の方法はあなたを助けることができます。
VBAコードを含むコンボボックスの選択した値で特定のワークシートを開きます
VBAコードを含むコンボボックスの選択した値で特定のワークシートを開きます
以下のVBAコードは、Excelでのコンボボックスの選択に基づいて特定のワークシートに移動するのに役立ちます。 次のようにしてください。
Note:コンボボックスのワークシートにシート名が含まれていない場合は、以下のヒントに従って、すべてのシート名をそのコンボボックスにすばやく追加してください。 また、すべてのシート名を含むコンボボックスがすでにある場合は、 ステップ1 直接。
先端:ワークシートにコマンドボタン1を挿入し、右クリックして選択します コードを表示 右クリックメニューから。 次に、以下のVBAコードをコピーしてに貼り付けます Code ウィンドウをクリックし、を押します 他の + Q を閉じるためのキー アプリケーション用 Microsoft Visual Basic 窓。 挿入されたコマンドボタンをクリックすると、現在のブックのすべてのシート名がComboBox1に自動的に追加されます。
VBAコード:すべてのシート名をコンボボックスに簡単に追加
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub
すべてのシート名を含むコンボボックスがすでにある場合は、次のようにしてください。
1。 オンにします デザインモード 下 Developer タブには何も表示されないことに注意してください。
2.シート名の付いたコンボボックスを右クリックし、[ コードを表示 右クリックメニューから。
3.次に、 アプリケーション向け Microsoft Visual Basic ウィンドウがポップアップします。コードウィンドウの元のVBAコードを以下のVBAコードに置き換えてください。
VBAコード:コンボボックスの選択した値で特定のワークシートを開きます
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
Note:コードでは、ComboBox1はシート名を含むコンボボックスの名前です。
4。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic ウィンドウをオフにし、 デザインモード 下 Developer タブには何も表示されないことに注意してください。
これで、コンボボックスでワークシート名を選択すると、対応するワークシートが自動的に開きます。
現在のブックのすべてのシート名をExcelで簡単に一覧表示できます。
ワークブックでシートインデックスを使用すると、ワークシートを簡単に管理できます。 とともに シート名のリストを作成する の有用性 Kutools for Excel、現在のブック内のすべてのシート名を含むシートインデックスを簡単に作成できます。 その後、インデックスワークシートのシート名をクリックするだけで、特定のワークシートにすばやく移動できます。 以下のスクリーンショットを参照してください。
ダウンロードして今すぐ試してみてください! (30 日間の無料トレイル)
関連記事:
- コンボボックスの値をExcelのアクティブセルにコピーするにはどうすればよいですか?
- Excelのコンボボックス出力に日付形式を表示するにはどうすればよいですか?
- Excelで指定されたセル値に基づいてコマンドボタンを非表示または再表示するにはどうすればよいですか?
- Excelのコンボボックスへの入力を防止または無効にする方法は?
- コンボボックスからタブで移動してExcelで特定のセルを選択するにはどうすればよいですか?
最高のオフィス生産性向上ツール
🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...) | 12 変換 ツール (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット ツール (高度な結合行, 分割セル、...) | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!