EXCEL中计算方位角距离公式

EXCEL中计算方位角距离公式电子表格中求方位角的公式结果显示为度格式的计算式：=(PI()*(1-SIGN(B3-$B$1)/2)-ATAN((A3-$A$1)/(B3-$B$1)))*180/PI()&°Excel中求方位角公式：a1,b1放起始点坐标a3,b3放终点坐标。结果显示为度分秒格式的计算式：=INT((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI())&°&INT(((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI()-INT((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI()))*60)&′&INT((((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI()-INT((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI()))*60-INT(((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI()-INT((PI()*(1-SIGN(B3-$b$1)/2)-ATAN((A3-$a$1)/(B3-$b$1)))*180/PI()))*60))*600)/10&″其中：A1,B1中存放测站坐标,a3,b3放终点坐标。上面的计算出来的是度分秒格式，也就是字符串格式，不能用来计算，只是用来看的哟！下面这个简单一点：=(PI()*(1-SIGN(B3-B1)/2)-ATAN((A3-A1)/(B3-B1)))*180/PI()Excel中求方位角公式：a1,b1放起始点坐标a3,b3放终点坐标。求距离公式:=Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)一、度分秒值换算为度首先要将单位符号都去掉，形成1112233的形式，分秒小于十的要在其前补0，必须如此，不然无法判断分与秒的位置。假设原始数据在A列，第一个数据在A2单元格。在你需要放入转换结果的一个单元格内（最好是与A2同一行，这样有大量原始数据要转换时，直接下拉就可以转换所有数据），输入：=value(MID(IF(LEN(A2)=6,CONCATENATE(0,A2),A2),1,3))+value(MID(IF(LEN(A2)=6,CONCATENATE(0,A2),A2),4,2))/60+value(MID(IF(LEN(A2)=6,CONCATENATE(0,A2),A2),6,2))/3600回车即可。下面解释转换方法和函数意义。以1112233为例。算法是111+（22/60）+（33/3600），即把分、秒都算成度后相加。MID：意为选择指定的字符，具体写法为MID(数据,顺位,字符数)，先指定1-3位（度位），再指定4-5位（分位）/60，再指定6-7位（秒位）/3600。value：意为转换成为数值，这样才能进行运算。关键问题在于，度有可能是2位数，如果这样整个数就是6位，上例算式中的IF(LEN(A2)=6,CONCATENATE(0,A2),A2)就是处理这样的问题的。意思为如果整个是6位数，就在其前补个0，若不是6位，就直接用原来的数值（呵呵，在中国及周边没有6位和7位以外的经纬度，现在这个算法适用于6位和7位的经纬度）。IF：条件函数，用法：IF(logical_test，value_if_true，value_if_false)，其中logical_test为判断条件，在本例中为LEN(A2)=6，满足条件执行value_if_true，不满足则执行value_if_false。LEN：为返回字符数的函数。CONCATENATE：为合并字符函数，写法为：CONCATENATE(text1，text2，...)，如要直接使用文本字符，就在其上加英文引号。二、度转换为度分秒假设原始数据在A列，第一个数据在A2单元格。在你需要放入转换结果的一个单元格内（最好是与A2同一行，这样有大量原始数据要转换时，直接下拉就可以转换所有数据），输入：=CONCATENATE(INT(A2)，IF(INT((A2-INT(A2))*60)10，CONCATENATE(0，INT((A2-INT(A2))*60))，INT((A2-INT(A2))*60))，IF(ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0)10，CONCATENATE(0，ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0))，ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0)))回车即可。解释如下：以112.1234567度为例。使用CONCATENATE文本组合函数，将分别计算出的度、分、秒组合在一起（其用法参照前一帖）。本例中的INT(A2)，取的是112，即度值；IF(INT((A2-INT(A2))*60)10，CONCATENATE(0，INT((A2-INT(A2))*60))，INT((A2-INT(A2))*60))取的是分值；IF(ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0)10，CONCATENATE(0，ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0))，ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0))，取的是秒值。比较关键的一点是，分、秒在计算完后可能会小于10，这样就会出现本应为7位的度分秒值成了6位或5位，因此在计算分和秒时，加了一个条件语句，即若其值小于10，就在前面补个0。INT((A2-INT(A2))*60)10是判断分值是否小于10；ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0)10是判断秒值是否小于10。INT是取整函数，可对任意实数向下取整为最接近的整数，向下的意思为往小的方向，如=INT(3.38)返回3，=INT(-3.38)返回-4。该函数与TRUNC函数都有取整的功能，TRUNC函数可以按需要截取数字的小数部分，而INT函数则将数字向下舍入到最接近的整数。INT和TRUNC函数在处理负数时不同点：TRUNC(-4.3，0)返回-4，而INT(-4.3)返回-5。ROUND为四舍五入函数，本例中秒值不再留有小数，因此将其四舍五入了，这就是计算分值的时候用INT函数，而计算秒值的时候用ROUND函数的原因。该函数的写法为ROUND(number，num_digits)，其中的number是待处理的数值（也可是表达式的结果），num_digits是保留的小数位数。本例中的小数保留为0。三、求度分秒范围转度的中心坐标值这里只算经度或纬度的一项，要算另一项，只需改动原始数据位置，重复操作即可。假设原始数据在A列和B列，B列数据比A列数据大。第一个数据项在A2和B2。每个值的算法原理是：将经纬度都设立成7位，将度、分、秒都折算成度，转换方法参照前帖。用度来计算的好处是不会产生度分秒的进位问题，而同时度也可在上图时使用，若想将度转换成度分秒，就参照本人的前一帖。结果的算法是（B2-A2）/2+A2。在你需要放入转换结果的一个单元格内（最好是与A2、B2的同一行，这样有大量原始数据要转换时，直接下拉就可以转换所有数据），输入：=((value(MID(IF(LEN(B2)=6，CONCATENATE(0，B2)，B2)，1，3))+value(MID(IF(LEN(B2)=6，CONCATENATE(0，B2)，B2)，4，2))/60+value(MID(IF(LEN(B2)=6，CONCATENATE(0，B2)，A2)，6，2))/3600)-(value(MID(IF(LEN(A2)=6，CONCATENATE(0，A2)，A2)，1，3))+value(MID(IF(LEN(A2)=6，CONCATENATE(0，A2)，A2)，4，2))/60+value(MID(IF(LEN(A2)=6，CONCATENATE(0，A2)，A2)，6，2))/3600))/2+value(MID(IF(LEN(A2)=6，CONCATENATE(0，A2)，A2)，1，3))+value(MID(IF(LEN(A2)=6，CONCATENATE(0，A2)，A2)，4，2))/60+value(MID(IF(LEN(A2)=6，CONCATENATE(0，A2)，A2)，6，2))/3600回车即可。度分秒转换请教：在Excel中度分秒（六十进制）如何转换为度（十进制）。lm6692朋友的方法不错呀INT(B7)INT((B7-INT(B7))*100)/60((B7-INT(B7))*100-INT((B7-INT(B7))*100))/36世界上最远的距离不是天涯海角，而是我在你身边，你却不知道我爱你！我也被这个问题难住了，没办法就把度分秒各放一列，然后用公式转换一下再用。你用INT（）函数－－取整函数试试？比如说275°30′27″表示为275.3027，设该值为A,那你首先用A-INT(A)=0.3027,设该值为B，那么1ING(100B)就是分离出来的分数，其除以60即得到0.5°，对于秒的转换可依此思路进行，最后全部相加就转为十进制了，整个过程可以通过函数的嵌套进行。最终公式如下：INT(B7)INT((B7-INT(B7))*100)/60((B7-INT(B7))*100-INT((B7-INT(B7))*100))/36可以转换，只是第一次输入感觉麻烦，不过以后的就通过复制可简单多了，谢谢lm6692朋友的方法不错呀INT(B7)INT((B7-INT(B7))*100)/60((B7-INT(B7))*100-INT((B7-INT(B7))*100))/36世界上最远的距离不是天涯海角，而是我在你身边，你却不知道我爱你！5楼的方法是最有效的.不错，这样在EXCEL中就可以输入转换了！一、角度的度分秒与小数点格式互相转换EXCEL能将角度转换成度°分′秒″格式吗?如将:120.999722222222°转换成120°59′59″.32.55°转换成32°33′0″我知道可以用函数RADIANS将角度转换为弧度，但我们工程测量上用到的角度计算是以度分秒（比如：126°12′36″）来记录并进行计算的，在Excel中怎样用这些数据进行计算？1.设定公式“=A1/24”,并将单元格的格式设定为自定义格式:[h]°mm′ss″2.直接设定公式=TEXT(A1/24,[h]°mm′ss″)第1种方法，方便于在计算时将度分秒转为度，这时只需乘24即可第2种方法，度分秒转为度时，需要用公式=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B1,°,:),′,:),″,)*24(度分秒符号用单位软键盘上的符号)二、度/分/秒的输入问题在工程计算中经常要用到度、分、秒，通常的做法就是插入特殊字符来输入。但是在EXCEL中显示的结果却不近人意，三者之间的字符间距太大，看起来就象刚学会写字的人写的东西。其实这是由字体引起来的，一般情况下系统默认的字体是宋体，在这种情况下输入度分秒的时候，它们之间的间距就会比较大。下面几种字体的效果就比较好：ArialUnicodeMs,Batang,Dotum,Gungsuh,NewGulim,Gulim。当然也不只是这几种，大家也可以自己测试一下