VBA 中TextBoxzhiwei` 的控件)设置默认提示文字请输入关键字

设置步骤

1. 初始化文本框属性

在用户窗体初始化事件（`UserForm_Initialize`）中设置默认提示文字和样式：

Private Sub UserForm_Initialize()

With TextBoxzhiwei

.Tag = "请输入关键字" ' 存储提示文字到Tag属性

.Text = .Tag ' 显示提示文字

.ForeColor = RGB(169, 169, 169) ' 设置为浅灰色

End With

End Sub

2. 清空提示文字（获得焦点时）

当用户点击文本框输入时，自动清空提示文字并恢复默认文本颜色

Private Sub TextBoxzhiwei_GotFocus()

If TextBoxzhiwei.Text = TextBoxzhiwei.Tag Then

TextBoxzhiwei.Text = "" ' 清空提示文字

TextBoxzhiwei.ForeColor = RGB(0, 0, 0) ' 恢复黑色

End If

End Sub

3. 恢复提示文字（失去焦点时）

若用户未输入内容且离开文本框，重新显示提示文字：

Private Sub TextBoxzhiwei_LostFocus()

If Trim(TextBoxzhiwei.Text) = "" Then

TextBoxzhiwei.Text = TextBoxzhiwei.Tag ' 恢复提示文字

TextBoxzhiwei.ForeColor = RGB(169, 169, 169)

End If

End Sub

注意事项

- `Tag` 属性的作用：用于存储提示文本，避免硬编码，方便后期修改 。

- 输入验证：若需验证输入内容（如禁止空值），可在提交数据时检查文本框内容是否仍为提示文字：

If TextBoxzhiwei.Text = TextBoxzhiwei.Tag Then

MsgBox "请输入有效关键字！", vbExclamation

Exit Sub

End If

- 兼容性：此方法适用于所有 VBA 宿主环境（Excel、Access 等）。

> 提示：若窗体关闭后需保存状态，可在 `UserForm_QueryClose` 事件中重置文本框内容 。

通过上述代码，即可实现类似网页中 Placeholder 的提示效果，提升用户体验。