ArcGIS中如何把img图层文件转成tif图层文件？

流浪神犬 · 发表于 2016-11-22 08:48

进来学习一下

zjez126 · 发表于 2016-11-22 14:32

很好很强大！

healthyken · 发表于 2016-11-23 15:14

ArcGIS中如何把img图层文件转成tif图层文件？

hwx · 发表于 2016-11-23 21:11

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

hanlingxi · 发表于 2016-11-24 17:09

学习一下，谢谢

zcc0 · 发表于 2016-12-28 11:04

谢谢谢谢谢谢

shao-jb · 发表于 2016-12-28 11:15

谢谢分享，谢谢！

LittleForever · 发表于 2016-12-29 11:47

还可以这样转换，学习了

x007 · 发表于 2017-1-6 10:57

学习了，很受用，感谢楼主

icesilencer · 发表于 2017-4-6 22:16

学习中谢谢分享

[经验共享] ArcGIS中如何把img图层文件转成tif图层文件？