如何在Excel指定单元格设置点击消失的灰色提示文本？

完全可以实现，以下是最实用的方案，结合条件格式和VBA达成需求：

步骤1：初始化目标单元格 #

选中C9、C21、C58、C96这四个单元格，输入你需要的提示文本（比如「请输入内容」），然后设置字体颜色为灰色（推荐RGB(192,192,192)标准浅灰）。

步骤2：添加条件格式控制文本颜色 #

1. 保持四个单元格选中状态，点击菜单栏「条件格式」→「新建规则」。
2. 选择「使用公式确定要设置格式的单元格」，在公式框输入：
   =NOT(ISBLANK(INDIRECT(ADDRESS(ROW(),COLUMN()))))
   这个公式的作用是：只要单元格不为空，就应用后续格式。
3. 点击「格式」按钮，切换到「字体」选项卡，将字体颜色设为黑色，确定保存规则。

步骤3：添加VBA实现点击消失/恢复效果 #

1. 右键目标工作表标签（比如Sheet1），选择「查看代码」打开VBA编辑器。
2. 粘贴以下代码到编辑器窗口：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetCells As Range
    Set targetCells = Me.Range("C9,C21,C58,C96")
    Dim promptText As String
    promptText = "请输入内容" ' 可自定义提示文本
    Dim promptColor As Long
    promptColor = RGB(192, 192, 192) ' 可自定义提示文本颜色
    
    ' 处理离开的单元格：若为目标单元格且仅存提示文本，清空内容
    If Not Intersect(Target.Offset(-1), targetCells) Is Nothing Then
        For Each cell In Intersect(Target.Offset(-1), targetCells)
            If cell.Value = promptText And cell.Font.Color = promptColor Then
                cell.ClearContents
            End If
        Next cell
    End If
    
    ' 处理选中的单元格：若为空，添加提示文本
    If Not Intersect(Target, targetCells) Is Nothing Then
        For Each cell In Intersect(Target, targetCells)
            If cell.Value = "" Then
                cell.Value = promptText
                cell.Font.Color = promptColor
            End If
        Next cell
    End If
End Sub

3. 关闭VBA编辑器，回到Excel界面。

注意事项 #

• 保存文件时必须选择「Excel 启用宏的工作簿(*.xlsm)」格式，否则宏会失效。
• 可修改代码里的promptText和promptColor变量，自定义提示内容和颜色。
• 若保护工作表，需确保宏能正常执行（设置允许宏运行）。

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