如何为VBA UserForm的TextBox添加输入即消失的提示文本

不需要调用系统API，仅通过TextBox自带的事件配合初始状态设置，就能实现空值显示提示、输入时自动清除提示的交互效果。

核心实现逻辑 #

• 窗体初始化阶段，给目标TextBox填充预设提示文本，字体设置为浅灰色和正常输入内容做区分
• 文本框获得焦点时，判断当前内容为提示文本的话，立即清空内容、将字体颜色切回正常输入的黑色
• 文本框失去焦点时，判断当前输入内容为空（去除首尾空格后），重新填充提示文本、切回浅灰色提示样式

单控件快速实现 #

如果只有1-2个TextBox需要加提示，直接在对应UserForm的代码模块写事件即可，以下是示例（假设目标控件名为txtInput，提示文本为「请输入内容...」）：

' 定义提示文本常量，方便后续统一修改
Private Const PLACEHOLDER_TEXT As String = "请输入内容..."
Private Const PLACEHOLDER_COLOR As Long = &H808080 ' 浅灰色
Private Const INPUT_TEXT_COLOR As Long = &H0& ' 输入状态黑色

Private Sub UserForm_Initialize()
    ' 窗体加载时初始化提示状态
    With Me.txtInput
        .Text = PLACEHOLDER_TEXT
        .ForeColor = PLACEHOLDER_COLOR
    End With
End Sub

Private Sub txtInput_Enter()
    ' 文本框获得焦点时，清除提示
    With Me.txtInput
        If .Text = PLACEHOLDER_TEXT And .ForeColor = PLACEHOLDER_COLOR Then
            .Text = ""
            .ForeColor = INPUT_TEXT_COLOR
        End If
    End With
End Sub

Private Sub txtInput_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ' 文本框失去焦点且内容为空时，恢复提示
    With Me.txtInput
        If Trim(.Text) = "" Then
            .Text = PLACEHOLDER_TEXT
            .ForeColor = PLACEHOLDER_COLOR
        End If
    End With
End Sub

多控件复用方案 #

如果窗体中有多个TextBox需要加提示，建议用类模块统一绑定事件，避免重复写大量相似代码：

1. 先在VBA编辑器中插入一个类模块，将其重命名为clsPlaceholderBox，写入以下代码：

Private Const PLACEHOLDER_COLOR As Long = &H808080
Private Const INPUT_TEXT_COLOR As Long = &H0&

Public WithEvents targetBox As MSForms.TextBox
Private tipText As String

' 绑定文本框和对应提示的初始化方法
Public Sub Bind(box As MSForms.TextBox, placeholder As String)
    Set targetBox = box
    tipText = placeholder
    ' 初始加载提示样式
    targetBox.Text = tipText
    targetBox.ForeColor = PLACEHOLDER_COLOR
End Sub

Private Sub targetBox_Enter()
    ' 获得焦点清除提示
    If targetBox.Text = tipText And targetBox.ForeColor = PLACEHOLDER_COLOR Then
        targetBox.Text = ""
        targetBox.ForeColor = INPUT_TEXT_COLOR
    End If
End Sub

Private Sub targetBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ' 失焦为空时恢复提示
    If Trim(targetBox.Text) = "" Then
        targetBox.Text = tipText
        targetBox.ForeColor = PLACEHOLDER_COLOR
    End If
End Sub

2. 回到UserForm的代码模块，声明窗体级的类数组，在初始化事件中批量绑定所有需要提示的文本框即可：

Dim tipBoxes() As clsPlaceholderBox

Private Sub UserForm_Initialize()
    ' 按需要绑定的文本框数量调整数组长度
    ReDim tipBoxes(1 To 3)
    
    ' 绑定用户名输入框
    Set tipBoxes(1) = New clsPlaceholderBox
    tipBoxes(1).Bind Me.txtUsername, "请输入用户名"
    
    ' 绑定密码输入框
    Set tipBoxes(2) = New clsPlaceholderBox
    tipBoxes(2).Bind Me.txtPassword, "请输入登录密码"
    
    ' 绑定备注输入框
    Set tipBoxes(3) = New clsPlaceholderBox
    tipBoxes(3).Bind Me.txtRemark, "请输入备注信息（选填）"
End Sub

注意事项 #

• 取值校验必须加：提交表单读取输入内容时，不能直接取TextBox.Text，要先判断如果内容等于对应提示文本、或字体颜色为浅灰色，一律按空值处理，避免把提示文字误判为用户输入
• 提示文字的颜色可自行修改色值调整，比如需要更浅的灰色可以把PLACEHOLDER_COLOR常量值改为&HC0C0C0
• 上述方案兼容所有版本的Office VBA环境，不需要依赖系统API，不会出现版本适配问题

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