如何在Excel中添加输入内容时自动消失的指导性提示文本？

现有代码的问题分析 #

你提供的代码通过SelectionChange事件配合固定延迟判断模拟提示，逻辑存在严重缺陷：依赖1秒延迟判断用户输入状态，极易误覆盖用户输入，且本质是直接操作单元格值，并非真正的背景层提示，稳定性无法保障。

以下是两种更可靠的实现方案，满足「背景层显示、点击触发、输入消失」的需求：

方案一：单元格批注实现（视觉接近背景提示） #

利用Excel自带的批注功能，通过VBA控制选中时透明显示、输入时隐藏，效果近似背景指引：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 指定需要添加指引的单元格范围
    Dim targetCells As Range
    Set targetCells = Me.Range("C9,C10,C18,C26,C32")
    
    ' 先隐藏所有目标单元格的批注
    Dim cell As Range
    For Each cell In targetCells
        If Not cell.Comment Is Nothing Then cell.Comment.Visible = False
    Next
    
    ' 选中空的目标单元格时，显示透明批注
    If Not Intersect(Target, targetCells) Is Nothing Then
        If Target.Value = "" And Not Target.Comment Is Nothing Then
            With Target.Comment
                .Visible = True
                ' 调整批注样式为背景效果：高透明、无边框、灰色字体
                With .Shape
                    .Fill.Transparency = 0.8
                    .Line.Visible = msoFalse
                    .TextFrame2.TextRange.Font.Size = 11
                    .TextFrame2.TextRange.Font.Color.RGB = RGB(150, 150, 150)
                End With
            End With
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 输入内容后自动隐藏对应批注
    Dim targetCells As Range
    Set targetCells = Me.Range("C9,C10,C18,C26,C32")
    
    If Not Intersect(Target, targetCells) Is Nothing Then
        If Not Target.Comment Is Nothing Then Target.Comment.Visible = False
    End If
End Sub

使用步骤：

1. 给C9、C10等目标单元格添加批注，批注内容即为操作指引文本
2. 选中空的目标单元格时，批注会以高透明效果显示在单元格后方
3. 输入内容后，批注自动隐藏

方案二：占位文本模拟（直接显示灰色提示） #

这种方式直接在单元格内显示灰色提示文本，选中时清空、离开为空时恢复，完全模拟背景提示的交互：

' 模块级变量，存储各单元格的提示文本（需启用Microsoft Scripting Runtime引用）
Private promptTexts As New Dictionary

Private Sub Worksheet_Activate()
    ' 初始化目标单元格的提示内容
    promptTexts.Add "C9", "请输入联系人姓名"
    promptTexts.Add "C10", "请输入联系电话"
    promptTexts.Add "C18", "请输入项目名称"
    promptTexts.Add "C26", "请输入预算金额"
    promptTexts.Add "C32", "请输入备注信息"
    
    ' 工作表激活时，为空单元格设置提示文本
    Dim key As Variant
    For Each key In promptTexts.Keys
        If Me.Range(key).Value = "" Then
            With Me.Range(key)
                .Value = promptTexts(key)
                .Font.Color = RGB(150, 150, 150)
            End With
        End If
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 选中目标单元格时，若当前是提示文本则清空
    Dim cellAddr As String
    cellAddr = Target.Address(False, False)
    
    If promptTexts.Exists(cellAddr) Then
        If Target.Value = promptTexts(cellAddr) Then
            Target.Value = ""
            Target.Font.Color = RGB(0, 0, 0)
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 离开单元格时，若为空则恢复提示文本
    Dim cellAddr As String
    cellAddr = Target.Address(False, False)
    
    If promptTexts.Exists(cellAddr) Then
        If Target.Value = "" Then
            Target.Value = promptTexts(cellAddr)
            Target.Font.Color = RGB(150, 150, 150)
        End If
    End If
End Sub

注意事项：

• 需在VBA编辑器中启用「Microsoft Scripting Runtime」引用（工具→引用→勾选该选项）
• 提示文本会占用单元格值，导出数据时需判断内容是否为提示文本再处理

内容的提问来源于stack exchange，提问作者Anthony Héroux-Daviault