Question

我每次点击它时都使用以下代码在userform的文本框中选择文本，但是我有近40个文本框，我想知道是否有编写单个代码的方法对于所有这些而不是复制和粘贴相同的代码40次。

Private Sub textbox1_MouseDown(ByVal Button As Integer, _ 
ByVal Shift As Integer,ByVal X As Single, ByVal y As Single)

With Me.textbox1
    .SelStart = 0
    .SelLength = Len(.Text)
End With

End Sub

Answer 1

有一些方法可以编写一个将为它们运行的单个实例。

您需要为每个将调用代码的单个实例的文本框添加一行代码MouseDown。

例如： -

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SelectText
End Sub

然后创建一个适用于ActiveControl的程序： -

Private Sub SelectText()
With ActiveControl
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

在VBA UserForm上的文本框中选择文本

1 个答案: