Calculated Angles Need to be between 0 and 360 Degrees

[Gordon K]

I am using a VBA macro to extract info from spreadsheet cells operate on them and return the values to a spreadsheet. Each odd numbered item is an angle. The following code works just fine. Is there a way to use a procedure or function to assure the number passed to the cell named Range("item31") is between 0 and 360 degrees.


Range("item30") = Range("item26") * Range("item2")
Range("item31") = Range("item27") + Range("item3")
If Range("item31") < 0 Then Range("item31") = Range("item31") + 360
If Range("item31") > 360 Then Range("item31") = Range("item31") - 360

I did not have any success with the following approach.

MyFunction(Range("item31")) = Range("item27") + Range("item3")

 

[mikerickson]

If Item27 and Item3 are both angles in degrees between 0 and 360, you could just use

Range("item31") = (Range("item27") + Range("item3")) Mod 360

If you want to be super complete

Range("item31") = (Range("item27") + Range("item3") + WorksheetFunction.Ceiling(Abs(Range("item27"), 360) +WorksheetFunction.Ceiling(Abs(Range("Item3")), 360))) Mod 360

 

[Gordon K]

Thank you.