Excel 文本框文本在文本输入时消失

Excel 文本框文本在文本输入时消失,excel,vba,Excel,Vba,基本上,我已经创建了一个Userform,我想知道是否有可能在Userform加载时添加灰色文本,但一旦用户开始向文本框输入文本,灰色文本就会消失: [图像过期] 一旦用户开始输入,字体颜色应更改为黑色 任何帮助都将不胜感激。像这样的事情 Private Sub UserForm_Initialize() TextBox1.ForeColor = &HC0C0C0 '<~~ Grey Color TextBox1.Text = "Please Enter Name

基本上,我已经创建了一个Userform,我想知道是否有可能在Userform加载时添加灰色文本,但一旦用户开始向文本框输入文本,灰色文本就会消失:

[图像过期]

一旦用户开始输入,字体颜色应更改为黑色

任何帮助都将不胜感激。

像这样的事情

Private Sub UserForm_Initialize()
    TextBox1.ForeColor = &HC0C0C0 '<~~ Grey Color
    TextBox1.Text = "Please Enter Name Here"
    CommandButton1.SetFocus '<~~ This is required so that the focus moves from TB
End Sub

Private Sub TextBox1_Enter()
    With TextBox1
        If .Text = "Please Enter Name Here" Then
            .ForeColor = &H80000008 '<~~ Black Color
            .Text = ""
        End If
    End With
End Sub

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        If .Text = "" Then
            .ForeColor = &HC0C0C0
            .Text = "Please Enter Name Here"
        End If
    End With
End Sub
Private子用户表单_Initialize()

TextBox1.ForeColor=&hc0c0'很高兴能帮上忙:)该死的。。比我快。我吃的几乎完全一样。XD@user1759942:哎呀。。。真诚的道歉:)效果很好,只要您将标签顺序设置为不在文本框上启动!