Sub tinggiorang()
Range(“b19”) = Range(“c27”)
End Sub
Sub jarak()
Range(“k19”) = Range(“f27”)
End Sub
Sub sudut()
Set lembar = Worksheets(1)
lembar.Shapes(“sudut”).TextFrame2.TextRange.Text = Range(“i27”)
Range(“f16”) = 90 – Range(“i27”)
Range(“W10”).Formula = “=TAN(RADIANS(F16))”
End Sub
Sub cektinggi()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
a = (Range(“k19”) * Range(“W10”)) + (Range(“b19”) / 100)
b = Range(“f27”)
c = Range(“i27”)
d = Range(“c27”)
Range(“W10”).Formula = “=TAN(RADIANS(F16))”
Range(“o28”) = (Range(“k19”) * Range(“W10”)) + (Range(“b19”) / 100)
MsgBox “Jika dilihat dengan jarak ” & b & ” meter dan tinggi pengamat ” & d & ” cm serta sudut elevasinya ” & c & ” derajat, maka tingginya adalah ” & a
End Sub

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/langkah-langkah.docx”]