EXCEL VBA测量平差程序，输入点号及测角。
工具/原料
1
电脑
2
EXCEL
方法/步骤
1
以下面的附合计算表为例，介绍程序编写：
2
已经绘制完的表格如下：
3
编写程序输入点号及测角，具体代码如下：Sub jisuan1f()Dim cName, cJ As StringDim n, i As IntegerDim ws As Worksheet Set ws = ThisWorkbook.Worksheets('sheet1')Dim rName, rj As Range n = InputBox('请输入测站数: ', '测站数') Static nRow As Integer nRow = 6 For i = 1 To n Set rName = ws.Cells(nRow, 1) cName = InputBox('请输入第' & i & '站名称', '测站点') rName.Value = cName Set rj = ws.Cells(nRow + 1, 2) cJ = InputBox('请输入第' & i & '站测角---' & cName, '观测角') rj.Value = dfm1(cJ) nRow = nRow + 2 Next i ThisWorkbook.Worksheets('sheet1').Range('v8').Value = nEnd Sub
4
运行程序，输入测站数。
5
输入点号，点号就是测站点的名称。
7
输入完的效果如下：
注意事项
以上程序用到的角度转换函数可以查看我的其他几篇经验。
下一篇：香蒲种植方法