VBA Excel

最新推荐文章于 2024-07-17 22:03:04 发布

「已注销」

最新推荐文章于 2024-07-17 22:03:04 发布

阅读量437

点赞数

分类专栏： vba 文章标签： vba excel

本文链接：https://blog.csdn.net/GuXingXueYing_123/article/details/78250887

版权

vba 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Sub testIsVaildGeo()
    Dim shs As Object
    Set shs = Sheets(1)
    Dim row As Integer

    Dim Lng As Integer
    Dim Lat As Integer

    row = 3
    Lng = 4
    Lat = 5

    Do
        With shs.Cells(row, Lat)
            If .Value < 0 Or .Value > 90 Then
                .Font.Color = RGB(255, 0, 0)
            Else
                .Font.Color = RGB(0, 0, 0)
            End If
        End With

    row = row + 1
    Loop Until IsEmpty(shs.Cells(row, Lat))

    row = 3
    Do
        With shs.Cells(row, Lng)
            If .Value < 0 Or .Value > 180 Then
                .Font.Color = RGB(255, 0, 0)
            Else
                .Font.Color = RGB(0, 0, 0)
            End If
        End With

    row = row + 1
    Loop Until IsEmpty(shs.Cells(row, Lng))
End Sub