Excelのユーザーフォームでのコンボボックスの選択に基づいてテキストボックスにデータを入力するにはどうすればよいですか？

以下のスクリーンショットに示すように、テーブルに名前とスタッフ番号の列が含まれているとします。 次に、内部のすべての名前を収集するコンボボックスと、コンボボックスから名前を選択するときに対応するスタッフ番号を入力するテキストボックスが埋め込まれたユーザーフォームを作成する必要があります。 この記事の方法は、それを理解するのに役立ちます。

VBAを使用したユーザーフォームでのコンボボックスの選択に基づいてテキストボックスにデータを入力します

VBAを使用したユーザーフォームでのコンボボックスの選択に基づいてテキストボックスにデータを入力します

ユーザーフォームでのコンボボックスの選択に基づいて、対応する値をテキストボックスに入力するには、次の手順を実行してください。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > ユーザーフォーム。 スクリーンショットを参照してください：

3.次に、以下のスクリーンショットに示すように、作成したユーザーフォームにコンボボックスコントロールとテキストボックスコントロールを挿入します。

4.ユーザーフォームの空白部分を右クリックして、[ コードを表示 コンテキストメニューから。 スクリーンショットを参照してください：

5.開いているユーザーフォーム（コード）ウィンドウで、以下のVBAコードをコピーして貼り付け、元のコードを置き換えてください。

VBAコード：ユーザーフォームでのコンボボックスの選択に基づいてテキストボックスにデータを入力します

Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Sheet5").Range("A2:B8")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub

Note: コード内の A2:B2 は、ユーザーフォーム コンボ ボックスとテキスト ボックスの両方に個別に入力する値が含まれる範囲です。 Sheet5 は、データ範囲を含むワークシートの名前です。 必要に応じて変更してください。

6。 プレス 他の + Q 終了するためのキー アプリケーション向け Microsoft Visual Basic 窓。

7。 クリック Developer > インセット > コマンドボタン（ActiveXコントロール） ワークシートにコマンドボタンを挿入します。

8. シート タブを右クリックし、 コードを表示 右クリックメニューから。 次に、VBA コードをコピーしてコード ウィンドウに貼り付けます。

VBA コード: ユーザーフォームを表示

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. ワークブックのデザイン モードをオフにします。

コマンドボタンをクリックして、指定したユーザーフォームを開きます。 すべての名前がコンボ ボックスに収集されていることがわかります。 コンボボックスから名前を選択すると、以下のスクリーンショットに示すように、対応する五線番号がテキストボックスに自動的に入力されます。

関連記事：

• 開いているワークブックで指定したデータをコンボボックスに入力するにはどうすればよいですか？
• Excelのドロップダウンリストで値を選択するときに他のセルに自動入力するにはどうすればよいですか？
• Excelのドロップダウンリストで値を選択するときに他のセルに自動入力するにはどうすればよいですか？
• Googleの検索結果をExcelのワークシートに入力するにはどうすればよいですか？