[已解决]用VBA判断字符串是否符合设定的格式

山海风云轩

求教大佬：

就是我们的配方表中，H列是原料报送码，格式是000000-00000-0000，即分别是   6位数字-5位数字-4位数字，
H列中，可能有报送码，也可能是空值，
如果有报送码，则需要检查其格式是否正确，比如，是不是多出空格，少了位数，混入字母等等
如果报送码错误，则msgbox出来提醒，详情请阅附件

最佳答案

月排行榜 / 总排行榜

没名没姓

2023-4-15 10:59

Sub 判断格式并提示()
Dim i As Long
For i = 3 To Range("H" & Rows.Count).End(xlUp).Row
  
    If Not Range("H" & i).Text Like "######-#####-####" And Range("H" & i) <> "" Then '将格式替换为您的格式
        MsgBox Range("B" & i) & "原料报送码为 " & Range("H" & i) & "第" & i & " 行的H列格式错误"
   
   
    End If
Next i
End Sub

跳转到最佳答案楼层

山海风云轩

怎么最近经常登录不了，刚才很久都没上传好

没名没姓

Sub 判断格式并提示()
Dim i As Long
For i = 3 To Range("H" & Rows.Count).End(xlUp).Row
  
    If Not Range("H" & i).Text Like "######-#####-####" And Range("H" & i) <> "" Then '将格式替换为您的格式
        MsgBox Range("B" & i) & "原料报送码为 " & Range("H" & i) & "第" & i & " 行的H列格式错误"
   
   
    End If
Next i
End Sub

山海风云轩

没名没姓 发表于 2023-4-15 10:59
Sub 判断格式并提示()
Dim i As Long
For i = 3 To Range("H" & Rows.Count).End(xlUp).Row

感谢大佬，比我自己做的简洁多了，非常感谢

山海风云轩

没名没姓 发表于 2023-4-15 10:59
Sub 判断格式并提示()
Dim i As Long
For i = 3 To Range("H" & Rows.Count).End(xlUp).Row

对了，请教大佬，一个一个msgbox出来有点繁琐，请问怎么样可以最后的时候，一起msgbox出来了？

山海风云轩

请问，有接单做VBA代工的吗？

没名没姓

Sub 判断格式并提示()
    Dim i As Long
    For i = 3 To Range("H" & Rows.Count).End(xlUp).Row
        If Not Range("H" & i).Text Like "######-#####-####" And Range("H" & i) <> "" Then
            Range("H" & i).Interior.Color = RGB(255, 0, 0)
            'MsgBox Range("B" & i) & "原料报送码为 " & Range("H" & i) & "第" & i & " 行的H列格式错误"
        End If
    Next i
End Sub
有格式问题的设置颜色提醒也行。

没名没姓

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    For i = 3 To Range("H" & Rows.Count).End(xlUp).Row
        If Not Range("H" & i).Text Like "######-#####-####" And Range("H" & i) <> "" Then
            Range("H" & i).Interior.Color = RGB(255, 0, 0)
           
            Else
            Range("H" & i).Interior.Color = RGB(255, 255, 255)
        End If
    Next i
End Sub
------------------------
也可以用这个把代码放在对应的工作表代码中。单元格有问题会红色提醒，修改对了格式自己会设置为白色

山海风云轩

没名没姓 发表于 2023-4-15 21:51
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    For i = 3 To Ra ...

感谢大佬的讲解，
这VBA有点容易上瘾啊，现在又想到一个提升工作效率的点，
就是将前面做好的表格中的某些内容，复制粘贴到新建的excel工作薄中，用于提交系统，避免手动复制辛苦
详见附件

欢迎各位大佬指点