如何控制这样的格式？

[caobingyi]

现在我就需要！！！！！！-！！这样的格式（！代表数字），代码这么写才能检查出格式不符合我要求？

[chen2chen2chen2]

不太明白你的意思……能说清楚点吗，最好举个例子

[lsftest]

1、正则表达式。
2、instr＋字符串操作＋isnumeric

[爱我的人请呼吸]

　用正则吧

[东方之珠]

同意。

[vbman2003]

最好你能有示例，不是很明白你的意思，简单的方法就是用like,比如：

? "1z34567-89" Like "#######-##"
? "1334567-89" Like "#######-##"

[chen2chen2chen2]

不知道这样是不是可以满足你的要求：
假设你输入的数字是InputNum
Dim sTemp() As String
If IsNumeric(Replace(InputNum, "-")) Then
sTemp = Split(InputNum, "-")
If UBound(sTemp) <> 1 Then '不是由一个"-"分隔的数字串
MsgBox "输入格式错误"
Else
If Len(sTemp(0)) <> 6 Then '"-"前数字位数不是6位
MsgBox "输入格式错误"
Else
If Len(sTemp(1)) <> 2 Then '"-"后数字位数不是2位
MsgBox "输入格式错误"
End If
End If
End If
Else
MsgBox "输入不全是数字"
End If

[UltraBejing]

支持搂主，收藏

[knowledge_Is_Life]

支持搂主，收藏