Выберите текст внутри текстового поля в VBA UserForm

Question

Я использовал следующий код для выбора текста внутри текстового поля пользовательской формы каждый раз, когда я нажимал на него, однако у меня почти 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