コンボボックス入力したテキストから値リストの中で一致する候補を検索表示する設定（Excel VBA)

【本日のミッション】

コンボボックス入力したテキストから、値リストの中で一致する候補を検索表示せよ。

1 ミッションの概要
2 入力したテキストから値リストの中で一致する候補を検索表示する設定
- 2.1 コンボボックスのプロパティに設定
- 2.2 ユーザーフォーム Initializeにコード記述
3 ユーザーフォームを表示して動作を確認
4 MatchEntryプロパティ
5 【参考】

ミッションの概要

コンボボックス入力したテキストから、値リストの中で一致する候補を検索表示せよ、というのが今回のミッションです。

【ミッション1】

コンボボックスに「3201」と入力すると、キーボードに入力された最後の1文字「1」から始まる項目を表示する。

【ミッション2】

コンボボックスに「3201」と入力すると、入力した全ての文字列「3201」から始まる項目を表示する。

以前コンボボックスにListプロパティを使って配列に格納したセルデータを値リストとして設定する（Excel VBA)で作成したコンボボックスに（値をサザエさん一家から数値に変えました。）

入力したテキストから、値リストの中で一致する候補を検索表示する

設定を施し、動作を確認します。

■■■スポンサーリンク■■■

入力したテキストから値リストの中で一致する候補を検索表示する設定

この設定は、プロパティウィンドウで行う方法と、コードに記述する方法の2つがあります。

コンボボックスのプロパティに設定

【ミッション1の場合】

対象となるコンボボックスを選択した状態で、プロパティウィンドウ（表示されていない場合は、［F4］キーで表示できます。）で MatchEntry を「0 – fmMatchEntryFirstLetter」にします。

【ミッション2の場合】

対象となるコンボボックスを選択した状態で、プロパティウィンドウ（表示されていない場合は、［F4］キーで表示できます。）で MatchEntry を「1 – fmMatchEntryComplete」にします。

ユーザーフォーム Initializeにコード記述

上記プロパティウィンドウに設定していなくても、画面表示される時に設定することができます。コードウィンドウを表示します。（フォームが表示されている場合は、［F7］キーで表示できます。）

コンボボックスにListプロパティを使って配列に格納したセルデータを値リストとして設定する（Excel VBA)で作成した「UserForm_Initialize」のコードを一部変更して使用しています。赤字部分が、今回追加した処理になります。

【ミッション1の場合】

Private Sub UserForm_Initialize()
    Dim ary_d   'リストに設定するデータ用配列
    ary_d = Worksheets("番号").Range("A2:A9")
    ComboBox1.List = ary_d
    ComboBox1.MatchEntry = fmMatchEntryFirstLetter   '入力したテキストと1文字目が一致する項目を検索
End Sub

【ミッション2の場合】

Private Sub UserForm_Initialize()
    Dim ary_d   'リストに設定するデータ用配列
    ary_d = Worksheets("番号").Range("A2:A9")
    ComboBox1.List = ary_d
    ComboBox1.MatchEntry = fmMatchEntryComplete ' 入力したテキストと全て一致する項目を検索
End Sub

「配列」参照：セル範囲を一気に変数（配列）に入れる～バリアント型(Variant)変数を配列として使用する～（Excel VBA）

ユーザーフォームを表示して動作を確認

このコード内にカーソルを置いたまま、［F5］キー（ユーザーフォームの実行）をクリックするとユーザーフォームが表示されます。

【ミッション1】

コンボボックスに「3201」と入力すると、キーボードに入力された最後の1文字「1」から始まる項目が表示されます。

【ミッション2】

コンボボックスに「3201」と入力すると、「3201」から始まる項目が表示されます。

■■■スポンサーリンク■■■

MatchEntryプロパティ

コンボボックスで値リストの項目を検索する際の規則を設定します。値を取得することも可能です。

定数	内容	値
fmMatchEntryFirstLetter	入力したテキストと1文字目が一致する項目を検索します。	0
fmMatchEntryComplete	入力したテキストと全て一致する項目を検索します。 (既定値)	１
fmMatchEntryNone	テキストの検索を行いません。	２

fmMatchEntryFirstLetter

入力したテキストが複数あっても、最後にキーボードをタッチした1文字と一致する項目が検索表示されます。

「3201」と入力した場合、「3」「2」「0」「1」と1文字ずつ検索し、最終入力された「1」から始まる「100112」がコンボボックスに表示されます。

①「3」から始まる「320001」が検索表示されます。

↓↓↓↓↓↓↓↓↓↓↓↓
②「2」から始まる「200023」が検索表示されます。

↓↓↓↓↓↓↓↓↓↓↓↓
③「0」から始まる「00011」が検索表示されます。

↓↓↓↓↓↓↓↓↓↓↓↓
④「1」から始まる「100112」が検索表示されます。

コンボボックス入力したテキストから値リストの中で一致する候補を検索表示する設定（Excel VBA)

同じテキスト（今回であれば「3」）から始まる値が複数ある場合は、リストの中で一番上部になるものが表示されます。

「3」「3」「3」と入力すると、「3」から始まる値を上から順に表示してくれます。一番最後の「320100」の次は、最初の「32001」に戻ります。

↓↓↓↓↓↓↓↓↓↓↓↓

↓↓↓↓↓↓↓↓↓↓↓↓
最初の「32001」に戻ります。

fmMatchEntryComplete

入力したテキストと一致する値を検索表示します。

「3201」と入力する場合、「3201」と入力が完了するまでに「3」「32」「320」から始まるテキストを順に検索表示し、最終的に「3201」から始まる「320100」をコンボボックスに表示します。

①「3」から始まる「320001」が検索表示されます。

↓↓↓↓↓↓↓↓↓↓↓↓
②「32」から始まる「320001」が検索表示されます。

↓↓↓↓↓↓↓↓↓↓↓↓
③「320」から始まる「320001」が検索表示されます。

↓↓↓↓↓↓↓↓↓↓↓↓
④「3201」から始まる「320100」が検索表示されます。

同じテキスト（今回であれば「3」）から始まる値が複数ある場合は、リストの中で一番上部になるものが表示されます。

値リストに存在しないテキストを入力した場合

fmMatchEntryFirstLetter・fmMatchEntryComplete いずれの場合も、値リストに存在しないテキストを入力した場合は、何も検索しません。

「6」と入力しても、「6」から始まる値がリストにない場合は、何も表示されません。

現在設定されている値の取得

現在コンボボックスに設定されている MatchEntry の値を取得することも可能です。

ComboBox1.MatchEntry = fmMatchEntryComplete  ’値は「1」
MsgBox ComboBox1.MatchEntry

定数	内容	値
fmMatchEntryFirstLetter	入力したテキストと1文字目が一致する項目を検索します。	0
fmMatchEntryComplete	入力したテキストと全て一致する項目を検索します。 (既定値)	１
fmMatchEntryNone	テキストの検索を行いません。	２

「fmMatchEntryComplete」の値は「１」なので「1」を取得します。

【参考】

■■■スポンサーリンク■■■