KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel で入力時にテキストボックスを自動補完するには、どうすればよいですか？

著者Siluvia変更日

既定では、Excel は現在のワークシートで入力した内容を記憶し、次回新しいセルにその頭文字を入力すると自動的に補完します。しかし、ワークシートに入力済みのすべての内容をテキストボックス（ActiveX コントロール）でも自動補完したい場合は、どうすればよいでしょうか？この記事では、テキストボックス内で頭文字を入力した際に自動補完を実現する VBA の方法をご紹介します。

VBA コードを使用して入力時にテキストボックスを自動補完する

VBA コードを使用して入力時にテキストボックスを自動補完する

テキストボックスで頭文字を入力した際に自動補完されるようにするには、以下の手順に従ってください。

1。「開発」タブをクリックし、開発 > 挿入 > テキストボックス(ActiveX コントロール)の順にクリックして、テキストボックスを挿入してください。スクリーンショットを参照してください：

クリックしてテキストボックスを挿入

2。次に、「開発」タブをクリックし、開発 > 挿入 > リストボックス(ActiveX コントロール)を選択して、現在のワークシートにリストボックスを挿入してください。スクリーンショットを参照してください：

クリックしてリストボックスを挿入

3。シートの見出しを右クリックし、コンテキストメニューからコードの表示を選択してください（下記スクリーンショット参照）。

右クリックメニューから「コードの表示」を選択

4。「Microsoft Visual Basic for Applications」ウィンドウで、以下の VBA コードをコードウィンドウにコピー＆ペーストしてください。その後、「ツール」＞「参照設定」をクリックし、「Microsoft Scripting Runtime」にチェックマークを付けて、「参照設定 – VBAProject」ダイアログボックスを閉じてください。スクリーンショットをご参照ください：

VBA コード：入力時にテキストボックスを自動補完する

Dim xRg As Range
Dim xDic As New Dictionary
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1.Value = Me.ListBox1.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xVal As String
    On Error Resume Next
    If IsNumeric(Target.Value) Then
        xVal = Str(Target.Value)
    Else
        xVal = Target.Value
    End If
    If xVal <> "" Then
        If Not xDic.Exists(xVal) Then
            xDic.Add xVal, xVal
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.ListBox1.Visible = False
End Sub
Private Sub Worksheet_Activate()
    Dim I As Long
    Dim xStr As String
    On Error Resume Next
    If xRg Is Nothing Then
        Set xRg = ActiveSheet.UsedRange
    End If
    Me.ListBox1.Visible = False
    xDic.RemoveAll
    With Me.ListBox1
        For I = 1 To xRg.Count
            xStr = xRg(I).Value
            If xStr <> "" Then
                .AddItem xStr
                If Not xDic.Exists(xStr) Then
                    xDic.Add xStr, xStr
                End If
            End If
        Next
    End With
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With Me.ListBox1
        .Top = Me.TextBox1.Top
        .Left = Me.TextBox1.Left + Me.TextBox1.Width
        .Width = Me.TextBox1.Width
    End With
    TextBoxVal Me.TextBox1.Object
End Sub
Sub TextBoxVal(xTextBox As Variant)
    Dim I As Long
    Dim xStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    If xRg Is Nothing Then Exit Sub
    Me.ListBox1.Clear
    xStr = xTextBox.Value
    If xStr = "" Then
        Me.ListBox1.Visible = False
        Application.EnableEvents = True
        Exit Sub
    End If
    For I = 0 To UBound(xDic.Items)
        If Left(xDic.Items(I), Len(xStr)) = xStr Then
            Me.ListBox1.AddItem xDic.Items(I)
        End If
    Next
    Me.ListBox1.Visible = True
    If Me.ListBox1.ListCount > 0 Then
        With xTextBox
            .Value = Me.ListBox1.List(0)
            .SelStart = Len(xStr)
            .SelLength = Len(Me.ListBox1.List(0))
        End With
    End If
    Me.ListBox1.Activate
    Me.ListBox1.Selected(0) = True
    Application.ScreenUpdating = True
End Sub
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Me.TextBox1.Value = Me.ListBox1.Value
    End If
End Sub

参照ダイアログ ボックスを開き、「Microsoft Scripting Runtime」をチェック

注：コード内のListBox1およびTextbox1は、ワークシートに挿入したリストボックスとテキストボックスの名前です。

5。「Alt+Q」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを閉じてください。

6。ワークシートで「開発」タブの開発＞デザインモードをクリックして、デザインモードをオフにしてください。

7。別のワークシートに移動し、その後元のワークシートに戻ることで、VBA コードを有効化してください。

これ以降、テキストボックスに頭文字を入力すると、ワークシート内で既に入力済みでその文字で始まるすべてのテキストが、テキストボックス右側のリストボックスに表示されます。必要な項目をダブルクリックすれば、テキストボックスに自動的に入力されます。スクリーンショットをご参照ください。

テキストボックスに先頭文字を入力すると、その文字で始まるすべてのテキストが一覧表示されます

注：リストボックス内の自動補完候補を移動するには、↑または↓矢印キーを使用してください。目的の項目を選択したら、Enterキーを押してテキストボックスに確定できます。

関連記事：

最高の Office 業務効率化ツール

🤖KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行   ｜  コード生成｜  カスタム数式作成  ｜  データ分析とチャート生成｜  拡張機能呼び出し…
人気の機能：検索・ハイライト、または重複をマーキング   ｜  空白行を削除する   ｜  データを失うことなく列の結合またはセルを   ｜  数式を使用しない四捨五入...
スーパー LOOKUP：複数条件 VLookup  ｜  複数値 VLookup  ｜   複数シート間 VLookup   ｜   ファジーマッチ....
高度なドロップダウンリスト：ドロップダウンリストをすばやく作成   ｜  連動型ドロップダウンリスト   ｜  複数選択可能なドロップダウンリスト....
列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
注目の機能：グリッドフォーカス   ｜  デザインビュー   ｜強化された数式バー   ｜ ワークブックとシートマネージャー   ｜  リソースライブラリ（オートテキスト）｜  日付ピッカー   ｜  ワークシートの統合  ｜  暗号化／セルの復号化   ｜ リストからメール送信   ｜  スーパーフィルター   ｜   特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。
トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜   50+チャートタイプ（ガントチャート、...）｜   40+実用的関数（誕生日に基づいて年齢を計算します、...）｜   19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜   12 変換ツール（単語に変換する、為替レートの変換、...）｜   7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数
Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

ExcelWordOutlookTabsPowerPoint
  • オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
  • インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
  • 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
  • 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
  • 最高のお得感— 個別アドイン購入よりお得