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. ワークブックのデザインモードをオフにします。

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

最高のオフィス生産性向上ツール

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。インテリジェントな実行 \| コードを生成 \| カスタム数式の作成 \| データを分析してグラフを生成する \| Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する \| 空白行を削除する \| データを失わずに列またはセルを結合する \| 数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup \| 複数の値の VLookup \| 複数のシートにわたる VLookup \| ファジールックアップ ....
	詳細ドロップダウンリスト: ドロップダウンリストを素早く作成する \| 依存関係のドロップダウンリスト \| 複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する \| 列の移動 \| Toggle 非表示列の表示ステータス \| 範囲と列の比較 ...
	注目の機能: グリッドフォーカス \| デザインビュー \| ビッグフォーミュラバー \| ワークブックとシートマネージャー \| リソースライブラリ (自動テキスト) \| 日付ピッカー \| ワークシートを組み合わせる \| セルの暗号化/復号化 \| リストごとにメールを送信する \| スーパーフィルター \| 特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット: 12 テキストツール (テキストを追加, 文字を削除する、...） \| 50+ チャート種類 (ガントチャート、...） \| 40+ 実用的式 (誕生日に基づいて年齢を計算する、...） \| 19 挿入ツール (QRコードを挿入, パスから画像を挿入、...） \| 12 変換ツール (数字から言葉へ, 通貨の換算、...） \| 7 マージ＆スプリットツール (高度な結合行, 分割セル、...） \| ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします

Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
生産性を 50% 向上させ、毎日何百回もマウスクリックを減らすことができます!

続きを読みます... 無料ダウンロード...

Comments (11)

No ratings yet. Be the first to rate!

Jimmy

about 2 years ago

#35985