判断单元格格式

天地一相

感谢帮助。如何判断一个单元格的内容格式是不是这样的：11-11-11。即3组2位数，中间是短横。

shiruiqiang

len（单元格）=8 and ubound(split(单元格)，“-”）)=2
或者再判断 len(split(单元格)，“-”）)=2 and lenb(split(单元格)，“-”）)=2

再不行正则式就每组数组\d{2,2}是否满足

quqiyuan

正则

tanglf188

1. Sub test()
   
2.     MsgBox Judge("22-12-13")
   
3. End Sub
   
4. 
   
5. 
   
6. Function Judge(var As String) As Boolean
   
7.     Judge = True
   
8.     If InStr(var, "-") = 0 Then
   
9.         Judge = False
   
10.         Exit Function
    
11.     End If
    
12.     array_s = Split(var, "-")
    
13.     If UBound(array_s) <> 2 Then
    
14.         Judge = False
    
15.         Exit Function
    
16.     End If
    
17.     For i = LBound(array_s) To UBound(array_s)
    
18.         If Val(array_s(i)) < 10 Or Val(array_s(i)) > 99 Then
    
19.             Judge = False
    
20.             Exit Function
    
21.         End If
    
22.     Next
    
23. End Function
    

复制代码

DevilW