在Excel中选择文本框时如何自动选择文本？

要删除文本框中的文本（ActiveX控件），首先，需要选择文本框中的所有文本。 本文讨论的是在Excel中单击文本框时自动选择文本框的所有文本。

使用VBA代码选择文本框时自动选择文本框的文本

使用VBA代码选择文本框时自动选择文本框的文本

在Excel中选择文本框时，请应用下面的VBA代码自动选择文本框的所有文本。

1.对于包含文本框的工作表，您将使其文本自动选择，请通过单击打开设计模式 开发商 > 设计模式。 看截图：

或者，您也可以通过点击插入文本框 开发商 > 插页 > 文本框（ActiveX控件）。 看截图：

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

3.在开幕 Microsoft Visual Basic应用程序 窗口，请用下面的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.在代码中， 文字框1 是您要从中清除内容的文本框的名称。 请更改为您自己的。

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。 按 其他 + Q 退出键 Microsoft Visual Basic应用程序 窗口。

5.关闭设计模式。

从现在开始，单击文本框时，将自动选择文本框内的所有文本。

使用Kutools AI解锁Excel魔法

• 智能执行：执行单元格操作、分析数据和创建图表——全部由简单的命令驱动。
• 自定义公式：生成定制公式以简化您的工作流程。
• VBA 编码：轻松编写和执行 VBA 代码。
• 公式解释：轻松理解复杂的公式。
• 文本翻译：打破电子表格中的语言障碍。

使用人工智能工具增强您的 Excel 功能。 现在下载 并体验前所未有的效率！

相关文章：

• 在Excel中键入时如何自动完成文本框？
• 在Excel中单击时如何清除文本框的内容？
• 如何将多个单元格的文本连接到Excel中的文本框中？
• 如何禁用文本框中的编辑以防止用户在Excel中输入？
• 如何在Excel中将文本框设置为百分比格式？