*** 作方法:点击到指定单元格,打开数据有效性窗口,点击”输入信息“标签,在输入信息框中输入提示文字,确定
按你的要求也做了一个,假设在单元格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
至于根据你输入的文本跳转,也需要代码完成
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)