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 @   linhuang  阅读(35)  评论(0编辑  收藏  举报  
相关博文:
阅读排行:
· 10年+ .NET Coder 心语 ── 封装的思维:从隐藏、稳定开始理解其本质意义
· 地球OL攻略 —— 某应届生求职总结
· 提示词工程——AI应用必不可少的技术
· Open-Sora 2.0 重磅开源!
· 周边上新:园子的第一款马克杯温暖上架
历史上的今天:
2021-01-07 批量上传bds照片BMP格式
2020-01-07 使用chrome调试安卓手机h5页面(无需其他额外工具)
点击右上角即可分享
微信分享提示