VBA Excel

最新推荐文章于 2024-03-10 17:15:36 发布

「已注销」

最新推荐文章于 2024-03-10 17:15:36 发布

阅读量486

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/GuXingXueYing_123/article/details/78250887

vba 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个使用 Excel VBA 编程来检查表格中地理坐标（经度和纬度）有效性的方法。该程序通过遍历指定工作表上的数据行，对每个单元格内的纬度和经度值进行校验，并根据是否超出范围来改变字体颜色，从而直观地标识出错误的数据条目。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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