Sub M()
If Range("B3") = "" Then
Range("B3") = "请在此处输入姓名"
Range("B3").Font.ColorIndex = 40
ElseIf Range("B3") <> "请在此处输入姓名" And Range("B3") <> "" Then
Range("B3").Font.ColorIndex = 1
End If
If Range("B5") = "" Then
Range("B5") = "请在此处输入家庭地址"
Range("B5").Font.ColorIndex = 50
ElseIf Range("B5") <> "请在此处输入家庭地址" And Range("B5") <> "" Then
Range("B5").Font.ColorIndex = 1
End If
If Range("B7") = "" Then
Range("B7") = "请在此处输入工作单位"
Range("B7").Font.ColorIndex = 16
ElseIf Range("B7") <> "请在此处输入工作单位" And Range("B7") <> "" Then
Range("B7").Font.ColorIndex = 1
End If
End Sub
用数据有效性啊,有提示输入或者报错警告的,跟上面的效果一样一样的,点击才提示
直接在单元格上写“提示输入”的内容,单元格输入后自动就覆盖了
可以在B列设置文字调成浅灰色,然后拖动B列,注意不要全部隐藏,然后就会出现显示的这张图,这样在C列输入文字就灰色字就自动消失了,删除文字后,灰色字又会显现。原理就是这样。
楼主找到方案了吗?求分享啊