Question

在我的UserForm中，我想为我的TextBox设置一个默认值，在聚焦时会突出显示。

Private Sub UserForm_Initialize()

NameTextBox.Value = "Your Name Here"

NameTextBox.SetFocus

End Sub

当此代码运行时，光标应设置在默认文本的末尾，即“...... Here”之后。我希望突出显示“您的姓名”，以便在生成表单时，用户可以开始替换该默认/占位符文本。

您能帮我编写代码来设置可编辑的默认值吗？

Answer 1

这将选择TextBox中的所有文本：

Private Sub UserForm_Initialize()
With Me.NameTextBox
    .Value = "Your Name Here"
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

Answer 2

将EnterFieldBehavior属性设置为frmEnterFieldBehaviorSelectAll，以便在焦点转到该字段时，选择整个字段。

Answer 3

表单加载时这段代码怎么样？

NameTextBox.SelectAll()

VBA Userform文本框默认值并突出显示

3 个答案: