Excelでテキストボックスを複数のセルにリンクする方法は？

ご存知の通り、テキストボックスを特定のセルにリンクするのは簡単です。しかし、複数のセルを同じテキストボックスにリンクして、異なるセルをクリックしたときにテキストボックスに異なるテキストを表示させることは可能でしょうか？この記事では、Excelでこのタスクを解決する方法をご紹介します。

VBAコードを使用してテキストボックスを複数のセルにリンクする

VBAコードを使用してテキストボックスを複数のセルにリンクする

テキストボックスを複数のセルにリンクするために、次のVBAコードが役立ちます。以下の手順を行ってください：

1. まず、開発者タブの下にActiveXテキストボックスを挿入します。

2. 次に、使用したいテキストボックスが含まれるシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開かれたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けます：

VBAコード：テキストボックスを複数のセルにリンクする：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then ActiveSheet.TextBox1.Text = Target
End Sub

注：上記のコードでは、数字の3はリンクされたセルがある列番号を示しており、Textbox1は挿入したテキストボックスの名前です。必要に応じてこれらを変更してください。

3. その後、このコードウィンドウを保存して閉じます。これで、異なるセルをクリックすると、異なる値が自動的にテキストボックスに表示されます。スクリーンショットをご覧ください：