EXCEL VBA测量平差程序编写7-输入方位角

1、起始边、终边方位角是已知的，将起始边、终边方位角输入到程序中，进行后续的角度平差计算。

2、程序如下：

'(2) 输入起始、终边方位角

Sub jisuan3f()

Dim n As Integer

n = ThisWorkbook.Worksheets("sheet1").Range("v8").Value

Dim ef As String

Dim sf As String

Dim nRow As Integer

Dim rstart, rend As Range

nRow = 5

   sf = InputBox("********请输入起始边方位角**********", "方位角")

   Set rstart = ThisWorkbook.Worksheets("sheet1").Cells(nRow, 8)

   rstart.Value = dfm1(sf)

nRow = 5 + n * 2

   ef = InputBox("********请输入终边方位角*********", "方位角")

   Set rend = ThisWorkbook.Worksheets("sheet1").Cells(nRow, 8)

   rend.Value = dfm1(ef)

End Sub

3、运行程序，输入起始边方位角。0度53分49秒直接输0.5349即可。

4、运行程序，输入终边方位角。

5、程序运行结果如下：