*** 作方法:点击到指定单元格,打开数据有效性窗口,点击”输入信息“标签,在输入信息框中输入提示文字,确定
按你的要求也做了一个,假设在单元格A1实现
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
if Range("A1").value = "提示文字" then '把提示文字改成你自己的
Target.Font.ColorIndex = xlAutomatic
Target = ""
end if
ElseIf Trim(Range("A1").Value) = "" Then
Range("A1").Font.ColorIndex = 48
Range("A1") = "提示文字" '把提示文字改成你自己的
End If
End Sub
这个不能设置,而要用到VBA代码比如你在幻灯片中插入一个文本框控件,并命名为T1
则当你输入下面的代码时,就会达到鼠标点击时文本框中原来的字消失
Private Sub T1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
T1.Text = ""
End Sub
至于根据你输入的文本跳转,也需要代码完成
1、首先打开一个word文档,如图所示。
2、我们在开头输入中华人民共和国,如图所示。
3、结果,中华人民共和国替换掉了昨天在word几个字,如图所示。
4、这时可以看到,文档最底栏的改写两字变黑了,如图所示。
5、双击改写两字,让它变成虚字,如图所示。
6、这时我们在开头输入中国共产党,如图所示。
7、看没有覆盖任何文字,完成效果图。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)