なぜこの技術が重要なのか
業務システムやツールを作成する際、ユーザーに「どのシートに対して処理を行うか」を選択させるケースは非常に多いです。その際、毎回リストの先頭からシートを探させるのはユーザーにとってストレスになります。現在開いているシート（アクティブシート）をあらかじめ初期表示しておくことで、操作の手間を省き、誤選択のリスクを減らすことができます。これは、ユーザーフレンドリーな画面設計において欠かせないテクニックです。
基礎知識
VBAでコンボボックス（ComboBox）を制御する際に重要なのが「ListIndex」プロパティと「AddItem」メソッドです。
AddItemメソッドは、コンボボックスのリスト内に項目を追加します。
ListIndexプロパティは、現在コンボボックスで選択されている項目の「番号（0から開始）」を指定するものです。この番号を適切に指定することで、プログラム側から特定の項目を自動選択させることが可能になります。
実装のポイント
以下の手順で実装を行います。
1. ユーザーフォームが表示される直前のイベント（UserForm_Initialize）を発生させる。
2. 全てのシートをループ処理し、AddItemで名前を追加する。
3. ループ内で、現在のシート名と一致したタイミングの「インデックス番号」を記憶しておく。
4. 最後に、ListIndexプロパティにその番号を代入する。
サンプルプログラム
以下のコードを、ユーザーフォームのモジュールに貼り付けてください。あらかじめフォーム上に「ComboBox1」という名前のコンボボックスを配置しておく必要があります。
Private Sub UserForm_Initialize()
‘ 変数の宣言
Dim sh As Object
Dim i As Long
Dim activeSheetName As String
‘ 現在のアクティブシート名を保持
activeSheetName = ActiveSheet.Name
‘ コンボボックスの中身を一度空にする
ComboBox1.Clear
‘ 全てのシートをループしてコンボボックスに追加
For Each sh In ThisWorkbook.Sheets
ComboBox1.AddItem sh.Name
‘ 現在のシートと一致した場合、そのインデックスを記憶
‘ コンボボックスのインデックスは0から始まるため、ListCount – 1を使用
If sh.Name = activeSheetName Then
ComboBox1.ListIndex = ComboBox1.ListCount – 1
End If
Next sh
End Sub
応用・注意点
注意点1：シートの保護や非表示シートの扱い
上記コードでは全てのシートを対象にしていますが、業務によっては「非表示シートはリストに含めたくない」といった要望があるはずです。その場合は、ループの中で If sh.Visible = xlSheetVisible Then といった条件分岐を追加してください。
応用テクニック：
この手法はシート名だけでなく、配列に格納したリストや、特定の範囲（Range）のデータをコンボボックスに流し込む際にも応用できます。「デフォルトで何を選択させるか」という視点を持つだけで、あなたの作るツールは一気にプロの完成度に近づきます。ぜひ活用してみてください。
