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

惊人！ 使用Excel中的标签，如Firefox，Chrome，Internet Explore 10！

---

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

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

或者你也可以通过点击插入一个文本框 开发人员 > 插页 > 文本框（ActiveX控件）。 看截图：

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

3。 在开幕式上 Microsoft Visual Basic for Applications 窗口，请使用下面的VBA代码替换代码窗口中的原始VBA代码。

VBA代码：点击文本框时自动选择文本框

1 2 3 4 5 6 7 8 9 10 11

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更改为您所需的文本框的名称。

1 2 3

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 for Applications 窗口。

5。 关闭设计模式。

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

---

相关文章：

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

---

推荐的生产力工具

Office Tab

带上方便的选项卡到Excel和其他Office软件，就像Chrome浏览器，Firefox和新的Internet Explorer。

Kutools for Excel

惊人！ 提高您在5分钟的生产力。 不需要任何特殊技能，每天保存两个小时！

200 Excel的新功能，让Excel变得简单而强大：

• 合并单元格/行/列而不丢失数据。
• 合并和合并多个工作表和工作簿。
• 比较范围，复制多个范围，将文本转换为日期，单位和货币转换。
• 按颜色计算，分页小计，高级分类和超级筛选，
• 更多选择/插入/删除/文本/格式/链接/评论/工作簿/工作表工具...