用ArcGIS绘制一幅完整的地图(附赠ArcGIS 数字化操作步骤）

lcm319

谢谢分享，希望有用

dy622

好好学习，天天向上

舐血可解落寞

感谢楼主。

lemontwins

回复并收藏，谢谢，谢谢谢谢

huangfangen

有教程吗？看看

巴巴ai查克

不知道怎么添加一个小图，显示其在中国位置

A643037577

下载学习！！！

healthyken

用ArcGIS绘制一幅完整的地图

hwx

Sub 编号()
Set sjb = ActiveSheet

Application.DisplayAlerts = False
zhubie = sjb.Range("b" & 2)
xingming = sjb.Range("c" & 3)
m = 10000
n = 100
l = 1


For i = 2 To sjb.Cells(Rows.Count, 2).End(xlUp).Row

    If sjb.Range("b" & i) = zhubie Then
        If sjb.Range("c" & i) = xingming Then

        sjb.Range("a" & i).Value = m + n + l
        xingming = sjb.Range("c" & i)
        zhubie = sjb.Range("b" & i)
        Else
        n = n + 100
        l = 1
        sjb.Range("a" & i).Value = m + n + l
        xingming = sjb.Range("c" & i)
        zhubie = sjb.Range("b" & i)

        End If


        l = l + 1



    Else
    zhubie = sjb.Range("b" & i)
    xingming = sjb.Range("c" & i)

    m = m + 10000
    n = 100
    l = 1
    sjb.Range("a" & i).Value = m + n + l
    l = l + 1



    End If


Next i
Application.ScreenUpdating = True
End Sub

hhwww919

讲解的很细致啊 还有具体的内容不错