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
浙公网安备 33010602011771号