如何用Excel VBA选中ActiveX文本框中的文本？

要实现选中ActiveX文本框内的文本并让它获得焦点，方便直接用键盘操作，你可以通过激活控件并设置SelStart和SelLength属性来完成，具体代码如下：

Sub SelectActiveXTextBoxText()
    Dim targetTextBox As OLEObject
    ' 替换为你的ActiveX文本框名称
    Set targetTextBox = ActiveSheet.OLEObjects("Shape Name")
    
    ' 激活文本框，使其获得键盘焦点
    targetTextBox.Activate
    ' 选中全部文本：起始位置设为0，选中长度为文本总长度
    targetTextBox.Object.SelStart = 0
    targetTextBox.Object.SelLength = Len(targetTextBox.Object.Text)
End Sub

使用时，只需把代码中的"Shape Name"替换成你实际的ActiveX文本框名称，运行这个宏后，目标文本框就会自动获得焦点，里面的所有文本被选中，此时你直接敲击键盘就能输入新内容替换原有文本。

内容的提问来源于stack exchange，提问作者David