1、计算表格如下，已将观测的原始数据输入计算表格，并对角度进行平差，可查看我的其他几篇经验。
2、编写求方位角及坐标增量的程序，具体如下：
Sub jisuan7f()
Dim jiajiao As String
Dim cstart As String
Dim cend As String
Dim fangwei As Double
Dim side As String
Dim zeliangX, zeliangY As Double
Dim nRow As Integer
nRow = 6
Dim i, n As Integer
n = ThisWorkbook.Worksheets("sheet1").Range("v8").Value '测站数
cend = ThisWorkbook.Worksheets("sheet1").Cells(5 + n * 2, 8).Value
cend = Angle(cend)
For i = 1 To n - 1
cstart = ThisWorkbook.Worksheets("sheet1").Cells(nRow - 1, 8).Value
cstart = Angle(cstart)
jiajiao = ThisWorkbook.Worksheets("sheet1").Cells(nRow, 5).Value
jiajiao = Angle(jiajiao)
fangwei = Val(cstart) + Val(jiajiao)
If fangwei > 180 Then
fangwei = fangwei - 180
Else
fangwei = fangwei + 180
End If
If fangwei > 360 Then
fangwei = fangwei - 360
End If
ThisWorkbook.Worksheets("sheet1").Cells(nRow + 1, 8).Value = dfm2(fangwei)
side = ThisWorkbook.Worksheets("sheet1").Cells(nRow + 1, 11).Value
zeliangX = Cos(fangwei * 3.1415926 / 180) * side
ThisWorkbook.Worksheets("sheet1").Cells(nRow + 2, 12).Value = Round(zeliangX, 3)
zeliangY = Sin(fangwei * 3.1415926 / 180) * side
ThisWorkbook.Worksheets("sheet1").Cells(nRow + 2, 13).Value = Round(zeliangY, 3)
nRow = nRow + 2
Next
End Sub
3、方位角和坐标增量的计算主要应用坐标反算公式。
4、推算方位角的公式如下，这里按左角公式计算。
5、方位叫推算程序如下：
6、运行程序
7、程序执行结果如下：
