Convert Angle (Azimuth) to Bearing format.

Hi just new to this wonderful site. My problem is that I can't find a cell format that can convert angles to bearings (surveyor's units for AutoCAD).
For example, I have an angle/azimuth of 225.5 degrees (reference line is from south), I would like it to be converted to N 45° 30' E.

Any help? Thanks in advance excel whiz masters

VBA function

In a cell enter

=Bearing(225.5)

Please Login or Register  to view this content.

Thank you sir JohnTopley. But there's just a little problem, the reference line of your vba formula is from the positive x axis, I would like to have been referred it to the negative Y axis (south) so 225 degrees will result to N 45° 30' E. Can you do this favor again sir? thanks in advance

My "knowledge" of this only came from what I gleaned from the internet this morning. Can you provide more example data so I can try and get the correct answers.

The attached gives the answer for your one example but suspect it may not for others. The VBA code is simple and you should be able to change the calculations which simply subtract degrees depending on whether <90, <180, <270.

It worked perfectly sir. I did edit some of the script just like you said. Thanks again sir JohnTopley and more power!

Thank you for the feedback. And well done on changing the macro.

Can you please mark the thread as SOLVED ("Tthread Tools" at top first post)