Excelでテキストボックスが選択されたときに、そのテキストを自動的に選択するにはどうすればよいですか？

テキストボックス（ActiveXコントロール）内のテキストを削除するには、まずテキストボックス内のすべてのテキストを選択する必要があります。この記事では、Excelでテキストボックスをクリックした際にその中のすべてのテキストを自動的に選択する方法について説明します。

VBAコードを使用して、テキストボックスが選択されたときにテキストを自動選択する

VBAコードを使用して、テキストボックスが選択されたときにテキストを自動選択する

以下のVBAコードを適用して、Excelでテキストボックスを選択した際にその中のすべてのテキストを自動的に選択します。

1. テキストが自動選択されるテキストボックスが含まれるワークシートの場合、「開発」＞「デザインモード」をクリックしてデザインモードを有効にしてください。スクリーンショットをご覧ください：

または、開発＞挿入＞テキストボックス（ActiveXコントロール）をクリックしてテキストボックスを挿入することもできます。スクリーンショットをご覧ください：

2. テキストボックスを右クリックし、コンテキストメニューから「コードの表示」をクリックしてください。スクリーンショットをご覧ください：

3. 開いた「Microsoft Visual Basic for Applications」ウィンドウで、コードウィンドウ内の元のVBAコードを以下のVBAコードに置き換えてください。

VBAコード：テキストボックスをクリックしたときにその中のテキストを自動的に選択する

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

注意：

1. コード内のTextBox1は、内容をクリアするテキストボックスの名前です。必要に応じて変更してください。

2. 複数のテキストボックスをクリックした際にその中のテキストを自動選択するには、上記のコードの2つのセクション間に以下のVBAコードを追加してください。また、TextBox2を目的のテキストボックスの名前に変更してください。

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

4. 「Alt」＋「Q」キーを押して「 Microsoft Visual Basic for Applications」ウィンドウを終了します。

5. デザインモードをオフにします。

これで、テキストボックスをクリックすると、その中のすべてのテキストが自動的に選択されるようになります。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

• Excelで入力時にテキストボックスを自動補完するにはどうすればよいですか？
• Excelでクリックした際にテキストボックスの内容をクリアするにはどうすればよいですか？
• Excelで複数のセルのテキストを連結してテキストボックスに入れるにはどうすればよいですか？
• Excelでユーザー入力を防ぐためにテキストボックスの編集を無効にするにはどうすればよいですか？
• Excelでテキストボックスをパーセンテージ形式にするにはどうすればよいですか？