ユーザーフォームのコンボボックスからファイル名を選択してファイル検索する

コンボボックス Excel VBA すべて

ユーザーフォームのコンボボックスのリストからファイル名を選択してコマンドボタンを押すとファイルの検索ができるVBAのプログラムを紹介します。

まずユーザーフォームを作成します、「開発」タブ →「Visual Basic」でVBE(Visual Basic Editor)の画面を表示して「挿入」メニュー → 「ユーザーフォーム」でUserForm1を作成します。

ツールボックスが表示されていないときはVBEの「表示」メニュー →「ツールボックス」で表示します。

ツールボックスから「ラベル」と「コンボボックス」と「コマンドボタン」をユーザーフォームに配置します。

ラベルのプロパティウィンドウでCaptionを「ファイル名入力」にして、コマンドボタンのプロパティウィンドウでCaptionを「検索開始」にします。

「検索開始」のコマンドボタンをダブルクリックして下のコードを貼り付けます。

Private Sub UserForm_Initialize()                   'コンボボックスにファイル名を表示します。

ComboBox1.AddItem "ファイルA"
ComboBox1.AddItem "ファイルB"
ComboBox1.AddItem "ファイルC"
ComboBox1.AddItem "ファイルD"
ComboBox1.AddItem "ファイルE"
ComboBox1.AddItem "ファイルF"
ComboBox1.AddItem "ファイルG"

End Sub

Private Sub CommandButton1_Click()

Dim name As String
name = UserForm1.ComboBox1.Text

Dim ブック As Workbook
Dim Flag As Boolean

For Each ブック In Workbooks '検索したファイルが開いているか調べます。

If ブック.name = name & ".xlsx" Then Flag = True

Next ブック

If Flag = True Then '検索したファイルが開いていた場合の処理。

MsgBox "「" & name & "」" & "のファイルは既に開いているので最前面に表示します。"

Workbooks(name & ".xlsx").Activate '開いていたファイルを最前面に表示します。

Unload UserForm1 'ユーザーフォームを閉じます。

Exit Sub

Else '検索したファイルが開いていない場合はファイルを開きます。

If Dir(ThisWorkbook.Path & "\フォルダ\" & name & ".xlsx") <> "" Then 'ファイルがフォルダ内にあるか調べます。

Workbooks.Open Filename:=ThisWorkbook.Path & "\フォルダ\" & name & ".xlsx" 'ファイルを開きます。

Unload UserForm1 'ユーザーフォームを閉じます。

Else 'ファイルがフォルダ内に無いときはメッセージを表示します。

Unload UserForm1

MsgBox "ファイルはフォルダ内にありません。"

UserForm1.Show

End If

End If

End Sub

コンボボックスに表示する項目はComboBox1.AddItem で追加できます、”ファイルA” ~ “ファイルG”のファイル名の部分を自由に書き換えて使用してください。

エクセルのSheet1のセル上をマウスで左クリックしたときにユーザーフォームが表示されるようにしたいのでVBEのプロジェクトエクスプローラーのSheet1のモジュールをダブルクリックして下のコードを貼り付けます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

UserForm1.Show

End Sub

ユーザーフォームを表示する方法がマウス左クリックでは都合が悪い場合には次のようにします。

エクセルのSheet1にボタンを作成してボタンを押したときにユーザーフォームを表示出来るようにします。VBEの「挿入」メニュー →「標準モジュール」で標準モジュールを作成しModule1に下の「フォーム表示」のコードを貼り付けます。

Sub フォーム表示()

UserForm1.Show

End Sub

そしてエクセルのSheet1を表示し「開発」タブ → 「挿入」→ 「フォームコントロール」→「ボタン」でボタンを作成して「フォーム表示」のマクロをボタンに登録します。

これでユーザーフォームを表示してコンボボックスのリストからファイル名を選択し検索開始ボタンを押すとファイルが検索できるようになりました。

ThisWorkbook.Pathでファイルの保存場所を自動取得しているのでマクロ実行するブック(ファイル検索.xlsm)とファイルを検索するフォルダは同じフォルダ内にしてください。

プログラムの流れとしては、最初に「UserForm_Initialize」でコンボボックスに表示する項目を登録します、次にコマンドボタンをクリックしたら検索したファイルが開いているか調べて開いていた場合はファイルを最前面に表示し、検索したファイルが開いていない場合はファイルがフォルダ内にあるか調べてからファイルを開くという手順で行っています。

コメント