VBA设置数据有效性问题

jiaqitang

我的表 A列是雇员ID，是一个含有9位数的代码，格式 000-00-0000. 我在A2单元格数据有效性那里设成 文本长度是9位。这样当输入的数据不是9位数时，就有错误警告出现。

可是有一个BUG，就是当首位数是 0时，如果输入 9位数，依然有警告出现。 例如 输入 012345678，这时一个有效的ID，但单元格有错误警告出现，只有输入 01234567899， 10位数时才可以。 就是说我这个数据有效性无法认知首位数的 0.

改来改去也弄不好，想问问这里的高人我的数据有效性可以用VBA实现吗？必须输入9位数，少了多了有警告，首位可以是 0，最后显示的格式是000-00-0000

应该怎么做？请看附件。谢谢。

jiaqitang

没人回答? 高人呢?

凌空一羽

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
    aa = .Text
    If Len(aa) = 0 Then Exit Sub
    If .Column = 1 And .Row > 1 Then
        .Value = Left(aa, 3) & "-" & Mid(aa, 4, 2) & "-" & Right(aa, 4)
    End If
End With
'Application.EnableEvents = True
End Sub

jiaqitang

凌空一羽 发表于 2018-8-9 21:39
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target

谢谢凌空一羽 ,

但你这个也不行呀. 当输入012345678这9位数时,它显示错误.

首位的0无法认知.

怎么把A 列所有单元格都覆盖呀.

jiaqitang

再顶一下，坐等