在Excel中選擇文本框時如何自動選擇文本？

在Excel中選擇文本框時如何自動選擇文本？

要刪除文本框中的文本（ActiveX控件），首先，需要選擇文本框中的所有文本。 本文討論的是在Excel中單擊文本框時自動選擇文本框的所有文本。

使用VBA代碼選擇文本框時自動選擇文本框的文本

使用VBA代碼選擇文本框時自動選擇文本框的文本

在Excel中選擇文本框時，請應用下面的VBA代碼自動選擇文本框的所有文本。

1.對于包含文本框的工作表，您將使其文本自動選擇，請通過單擊打開設計模式 開發(fā)商 > 設計模式。 看截圖：

或者，您也可以通過點擊插入文本框 開發(fā)商 > 插頁 > 文本框（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.關閉設計模式。

從現(xiàn)在開始，單擊文本框時，將自動選擇文本框內的所有文本。

相關文章： 在Excel中鍵入時如何自動完成文本框？ 在Excel中單擊時如何清除文本框的內容？ 如何將多個單元格的文本連接到Excel中的文本框中？ 如何禁用文本框中的編輯以防止用戶在Excel中輸入？ 如何在Excel中將文本框設置為百分比格式？