怎么把excel表格输入gps

1.excel怎样快速的中输入gps

Private Sub Worksheet_Change(ByVal Target As Range)

'输入时：n32 47 84.4 e113 18 42.2 h150

Application.EnableEvents = False

Dim Rng As Range

On Error Resume Next

For Each Rng In Target

If Rng.Column = 2 And Rng.Row > 1 Then '限制在第二列，且在第2行及以下才起作用

C = Split(Rng, " ")

Rng = UCase(C(0)） & "°" & C(1) & "′" & C(2) & "〃" & UCase(C(3)） & "°" & C(4) & "′" & C(5) & "〃" & UCase(C(6))

End If

Next

Application.EnableEvents = True

End Sub

在工作表标签处，右键，查看代码，将以上代码粘贴进去！

限制在第二列，且在第2行及以下才起作用

'输入时：n32 47 84.4 e113 18 42.2 h150 中间用空格隔开

n32空格47空格84.4空格e113空格18空格42.2空格h150

2.excel怎样快速的中输入gps

Private Sub Worksheet_Change(ByVal Target As Range)'输入时：n32 47 84.4 e113 18 42.2 h150 Application.EnableEvents = False Dim Rng As Range On Error Resume Next For Each Rng In Target If Rng.Column = 2 And Rng.Row > 1 Then '限制在第二列，且在第2行及以下才起作用 C = Split(Rng, " ") Rng = UCase(C(0)） & "°" & C(1) & "′" & C(2) & "〃" & UCase(C(3)） & "°" & C(4) & "′" & C(5) & "〃" & UCase(C(6)) End If Next Application.EnableEvents = TrueEnd Sub在工作表标签处，右键，查看代码，将以上代码粘贴进去！限制在第二列，且在第2行及以下才起作用'输入时：n32 47 84.4 e113 18 42.2 h150 中间用空格隔开 n32空格47空格84.4空格e113空格18空格42.2空格h150。

3.你的EXCEL坐标点转到GPS里,怎么弄的啊

1，坐标投影（必须换算成平面坐标，CAD中经纬度是没有办法展点的，可以用一些坐标转换软件计算，网上这类的软件比较多）

2，假设你已经转换成平面坐标：

点号 y x

1 111 222

2 333 444

3 555 666

4 777 888

3，用excel生成一列连接字符串

="(command ""circle"" '("&F20&" "&G20&") 10)"

F20为你的y坐标，G20为x坐标

新一列结果：

(command "circle" '(111 222) 10)

(command "circle" '(333 444) 10)

(command "circle" '(555 666) 10)

(command "circle" '(777 888) 10)

4，拷贝这一列所有的东东到cad的命令行，就可以在相应点位上画半径为10的圆

5，要是你还想把点号也展进去

用上面的办法生成

(command "text" '(111 222) 2.5 0 "1")

(command "text" '(333 444) 2.5 0 "2")

(command "text" '(555 666) 2.5 0 "3")

(command "text" '(777 888) 2.5 0 "4")

拷贝到cad的命令行，即可在相应点位上展高为2.5旋转角为0的文字1,2,3,4

回答完毕 希望你满意