#1: Write a macro to Convert Units from inches to cm and link the macro to a button to run the code.

#2: Resultant Force and Angle: Using the code, fill in the blue Resultant box with the force and angle. Give instructions on how to run the code

#3:

#4:

#5:  
 
 

Public Function Resultant(vh As Range, vv As Range) As Variant Dim i As Integer Dim Nrows As Integer Dim SumVh As Single Dim sum Vv As Single Dim RF As Single Dim Rtheta As Single Dim Result(2) As Single Nrows = vh.Cells.Count SumVh = 0 sumVv = 0 For i = 1 To Nrows SumVh = SumVh + vh(i) sumVv = sumVv + vv(i) Next i RF = Sqr(SumVh ^2 + sumVv^ 2) 'radians Rtheta Atn(sumVv / SumVh) Rtheta = Atn(sumVv / SumVh) * 180 / 3.1416 'degrees 1 = Result(0) = RF Result (1) Rtheta Resultant Result End Function