如何在点击Excel中的文本框时清除其内容？

通常，要清除文本框（ActiveX 控件）的旧内容，您需要进入文本框，选择全部内容，然后按 Backspace 或 Delete 键。如何快速清除文本框中的所有内容呢？本文将向您展示一种 VBA 方法，只需双击即可快速清除文本框的内容。

使用VBA代码在点击时清除文本框内容

使用VBA代码在点击时清除文本框内容

以下 VBA 代码可以帮助您在双击文本框时快速清除其中的内容。请按照以下步骤操作：

1. 如果工作表中已经存在一个文本框，请通过单击 开发工具 > 设计模式 来启用设计模式。见截图：

或者，您也可以通过单击 开发工具 > 插入 > 文本框（ActiveX 控件） 来插入一个文本框。见截图：

2. 右键单击文本框，并从上下文菜单中单击 查看代码。见截图：

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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中选中文本框时自动选择其文本？
• 如何在Excel中输入时自动完成文本框内容？
• 如何在Excel中将多个单元格的文本连接到一个文本框中？
• 如何在Excel中禁用文本框编辑以防止用户输入？
• 如何在Excel中将文本框格式化为百分比？