[已解决]单元格输入内容显示为星号

zuo8250

大家好：

想在单元格输入内容显示为星号，附件中的例子仅能显示输入为数字的字符为星号，但是字母就不行了，有没有办法输入任意字符都显示为星号啊，谢谢！

DdPY3Np4.rar (8.14 KB, 下载次数: 35)

2010-1-9 09:28 上传

点击文件名下载附件
单元格输入内容显示为星号

最佳答案

月排行榜 / 总排行榜

皮皮1998

2010-1-9 10:34

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False  '禁止触发连锁事件
If Not Application.Intersect(Target, [c5:g13]) Is Nothing Then
    Target.NumberFormatLocal = """*****""" & ";" & """*****""" & ";" & """*****""" & ";" & """*****"""   '设置星号格式
End If
Application.EnableEvents = True   '允许触发连锁事件
End Sub

楼主试试

跳转到最佳答案楼层

juju桔桔

好像在文本里面没设置好是吗？

皮皮1998

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False  '禁止触发连锁事件
If Not Application.Intersect(Target, [c5:g13]) Is Nothing Then
    Target.NumberFormatLocal = """*****""" & ";" & """*****""" & ";" & """*****""" & ";" & """*****"""   '设置星号格式
End If
Application.EnableEvents = True   '允许触发连锁事件
End Sub

楼主试试

lotte

自定义格式

"****";;;

xuexingxiang

[em01]