如何在excel单元格中加上背景提示性文字?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(0, 0) = "A1" Then
        If Target.Value = "用户名" Then
            With Target
                .ClearContents
                .Interior.ColorIndex = xlNone
            End With
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsEmpty(Range("A1")) Then
        With Range("A1")
            .FormulaR1C1 = "用户名"
            .Interior.ColorIndex = 15
        End With
    End If
End Sub
用法：

1、打开目标工作簿，选定目标工作表，在目标工作表标签上右键，选-查看代码；

2、将宏代码粘贴至刚才打开的窗口，并将其中的“A1”修改成你的目标单元格，比如“B1”，将提示字“用户名”改成你想要的字；

3、关掉当前窗口；

4、保存工作簿。

另：修改安全性：菜单-工具-选项-安全性-宏安全性，将安全等级其修改成-中。

打开此工作簿是请启用宏。