엑셀에서 방위 계산하는 VBA코드