如何在 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 中將文本框格式化為百分比？