VBA已知高差编四等水准数据

Sub 输入首次测站点号()
Dim I, Z As Integer
Z = Cells(9, 17)
For I = 9 To Z * 4 + 5 Step 4
Cells(I, 1) = (I - 5) / 4
Next
End Sub
 

Sub 高差()
Dim I, Z As Integer
 Z = Cells(9, 17)
 Dim G As Double
 G = Cells(9, 18)
 For I = 9 To (Z * 4 + 1) Step 4
 Cells(I, 12) = Rnd() * 0.4 - 0.2
 Cells(I + 2, 9) = Cells(I, 12) + Rnd() * 0.006 - 0.003
 Cells(I, 9) = Rnd() * 1600 + 200
 Cells(I + 1, 9) = Cells(I, 9) - Cells(I + 2, 9) * 1000
 Next

Cells(I, 12) = G - (Cells(I - 4, 12) + Cells(I - 8, 12) + Cells(I - 12, 12))
Cells(I + 2, 9) = Cells(I, 12) + Rnd() * 0.006 - 0.003
Cells(I, 9) = Rnd() * 1600 + 200
Cells(I + 1, 9) = Cells(I, 9) - Cells(I + 2, 9) * 1000
End Sub

Sub 视距累加()
Dim I, Z As Integer
Z = Cells(9, 17)
For I = 16 To 24 Step 4
Cells(I, 5) = Cells(I - 4, 5) + Cells(I, 3)
Next
End Sub