コンボボックスの値をExcelのアクティブセルにコピーするにはどうすればよいですか？

場合によっては、選択した値をコンボボックスからアクティブセルにコピーする必要があります。 通常、コンボボックスに入り、それをコピーしてアクティブセルに手動で貼り付ける必要があります。 この記事では、コンボボックスで値を選択しながらアクティブセルを自動更新する便利な方法を紹介します。

コンボボックスの値をVBAコードでアクティブセルにコピーします

VBA 1：コマンドを使用してコンボボックスの値をアクティブセルにコピーします
VBA 2：コンボボックスの値をアクティブセルに自動コピー

コンボボックスの値をVBAコードでアクティブセルにコピーします

以下のVBAコードは、コンボボックスの値をアクティブセルに自動的にコピーするのに役立ちます。 次のようにしてください。

VBA 1：コマンドボタンを使用してコンボボックスの値をアクティブセルにコピーします

1.まず、以下のスクリーンショットに示すように、コマンドボタンをワークシートに挿入する必要があります。

2.コマンドボタンを右クリックして、 コードを表示 右クリックメニューから。 スクリーンショットを参照してください：

3.ポップアップで アプリケーション向け Microsoft Visual Basic ウィンドウで、コードウィンドウの元のコードを以下のVBAコードに置き換えます。

VBAコード：コンボボックスの値をアクティブセルにコピーします

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

注意：コードでは、CommandButton1は挿入されたコマンドボタンの名前であり、ComboBox1は値をコピーするコンボボックスの名前です。 必要に応じて変更してください。

4。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

これ以降、コンボボックスの値をアクティブセルにコピーする必要がある場合は、セルを選択し、コマンドボタンをクリックして実行してください。

VBA 2：コンボボックスの値をアクティブセルに自動コピー

以下のVBAコードは、コンボボックスで値を選択するときにアクティブセルを自動的に更新するのに役立ちます。 あなたは次のようにすることができます。

1。 その デザインモード 下でオンになっています Developer タブには何も表示されないことに注意してください。

2.値をコピーするコンボボックスを右クリックし、[ コードを表示 右クリックメニューから。 スクリーンショットを参照してください：

3.ポップアップで アプリケーション向け Microsoft Visual Basic ウィンドウで、元のコードを置き換えます Code 以下のVBAコードのウィンドウ。

VBAコード：コンボボックスの値をアクティブセルにコピーします

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

注意：コードでは、ComboBox1は、値をコピーするコンボボックスの名前です。

4。 プレス 他の + Q キーを押して[MicrosoftVisual Basic for Applications]ウィンドウを閉じ、[開発者]タブの[デザインモード]をオフにします。

これ以降、コンボボックスから値を選択すると、この選択されたレコードがアクティブセルに自動的に表示されます。

関連記事:

• Excelのコンボボックス出力に日付形式を表示するにはどうすればよいですか？
• Excelで指定されたセル値に基づいてコマンドボタンを非表示または再表示するにはどうすればよいですか？
• Excelでコンボボックスの選択した値で特定のワークシートを開くにはどうすればよいですか？
• Excelのコンボボックスへの入力を防止または無効にする方法は？
• コンボボックスからタブで移動してExcelで特定のセルを選択するにはどうすればよいですか？