EXCEL VBA判断字符长度

需求:有一个导入EXCEL模板,需要判断excel里某列的字符串长度,本来用条件格式做的,但是条件格式会被CTRL+V给覆盖导致不起作用,所以用VBA来实现,代码如下。需要校验的是F列(校验是不是等于12位长度,不是的就变成红色)
模板下载

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, j, row
    row = 6
    For i = 2 To Worksheets(1).UsedRange.Rows.Count
        Worksheets(1).Cells(i, row).Interior.ColorIndex = 0 '涂颜色
        If Len(Worksheets(1).Cells(i, row).Value) <> 12 Then
            Worksheets(1).Cells(i, row).Interior.ColorIndex = 3 '涂颜色
        End If
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

posted @ 2022-01-07 10:59  linhuang  阅读(22)  评论(0编辑  收藏  举报  来源