Excelでテキストボックスをクリックしたときに内容をクリアするにはどうすればよいですか？

通常、テキストボックス（ActiveXコントロール）の古い内容をクリアするには、テキストボックス内に入り、すべての内容を選択してからBackspaceキーまたはDeleteキーを押す必要があります。テキストボックス内のすべての内容を迅速にクリアするにはどうすればよいでしょうか？この記事では、ダブルクリックしただけでテキストボックスの内容を迅速にクリアするためのVBAメソッドを紹介します。

VBAコードを使用してクリック時にテキストボックスの内容をクリアする

VBAコードを使用してクリック時にテキストボックスの内容をクリアする

次のVBAコードは、ダブルクリックした際にテキストボックスの内容を迅速にクリアするのに役立ちます。以下の手順を行ってください。

1. ワークシートにすでにテキストボックスが存在する場合、Developer > Design Mode をクリックしてデザインモードを有効にしてください。スクリーンショットをご覧ください：

または、Developer > Insert > Text Box (ActiveX Control) をクリックしてテキストボックスを挿入することもできます。スクリーンショットをご覧ください：

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

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

VBAコード: ダブルクリック時にテキストボックスの内容をクリアする

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
    TextBox1.Value = ""
  End If
End Sub

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

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

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

これで、テキストボックスをダブルクリックすると、その内容が即座にクリアされます。

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

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

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

関連記事：

• Excelでテキストボックスが選択されたときに自動的にテキストを選択するにはどうすればよいですか？
• Excelで入力中にテキストボックスを自動補完するにはどうすればよいですか？
• Excelで複数のセルのテキストを連結してテキストボックスに表示するにはどうすればよいですか？
• Excelでユーザーの入力を防ぐためにテキストボックスの編集を無効にするにはどうすればよいですか？
• Excelでテキストボックスをパーセンテージ形式で書式設定するにはどうすればよいですか？