如何在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. 要在单击多个文本框时自动选择它们的文本，请在上述代码的两部分之间添加以下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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

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

相关文章：

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