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

在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.关闭设计模式。

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

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