最新EXCEL中计算方位角距离公式.docx

最新EXCEL中计算方位角距离公式.docx

《最新EXCEL中计算方位角距离公式.docx》由会员分享，可在线阅读，更多相关《最新EXCEL中计算方位角距离公式.docx（11页珍藏版）》请在冰豆网上搜索。

最新EXCEL中计算方位角距离公式

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。

当然也不只是这几种，大家也可以自己测试一下，找一下其它合适的字体。

如何利用excel进行角度计算

稿件来源：

长江水文网   发布时间：

2005-9-21   作者：

 sailor  编辑：

 sailor

如何利用excel进行角度计算

随着计算机的广泛使用，水文测量量角度计算也开始使用计算机进行运算，下面我以一个例子讨论如何利用excel进行角度计算。

首先 如何将所有角度转换成弧度。

将度、分、秒分别用一列表示如B、C、D列

用EXCEL中的计算公式，将分和秒折算成度，生成一列角度值，然后用RADIANS函数将角度值转化成一列弧度值.

为了方便对比我们将B、C、D列合并成H列，用角度表示

然后进行计算，下面以向各角度均加9°12′3″即弧度0.160584835593912为列进行计算。

加上9°12′3″（弧度0.160584835593912）后弧度的值如下。

此时我们将弧度转换回角度表示，进行对比。

其中角度转换公式我们采用的公式如下=TRUNC（DEGREES（G13））&"°"&TRUNC（（DEGREES（G13）-TRUNC（DEGREES（G13）））*60）&"′"&TRUNC（（（DEGREES（G13）-TRUNC（DEGREES（G13）））*60-TRUNC（（DEGREES（G13）-TRUNC（DEGREES（G13）））*60））*60）&"″"

算法：

先用DEGREES函数将弧度值转换成角度值，然后取该角度值的整数部分为度，用“°”分割，然后将原值减去整数的值乘以60，整数部分即是分，秒与分同样方法。

同时，我们也可以将弧度值用于其他计算。

分别取cos、sin值如下。

另外，介绍下我们如何利用用公式得到的结果，选择该列，单击“编辑”菜单上的“拷贝”，单击“编辑”菜单上的“选择性粘贴”，然后单击“数值”，即可。

写得比较仓促，不免有错漏，请各位指正。

角度的度分秒与小数点格式互相转换作者：

一、角度的度分秒与小数点格式互相转换

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。

当然也不只是这几种，大家也可以自己测试一下，找一下其它合适的字体。

0 前 言

MicrosoftExcel是一款功能非常强大的通用计算软件，只需简单的操作就可完成复杂计算，制作各种表格，因此近年来在各行各业都得到了普遍应用。

在对工程设计周期和设计质量要求日益提高的今天，设计者迫切需要一个效率高且易学易用的辅助计算软件，而Excel是最好的选择，因此掌握Excel对公路工程设计人员来说也是非常必要的。

笔者在使用Excel从事公路工程设计的过程中积累了一些经验，这些方法实用性强，不用编程，易于掌握，可成倍提高工作效率和准确性。

1 Excel在公路工程设计中的几个常用技巧

1.1桩号“K0+000—K1+100”的实现

由于Excel强大的表格处理功能，不少设计人员用它来制作各种工程数量表，如路面工程数量表、防护工程数量表，在表中常需要将桩号表示成“K0+000”或“K0+000—K1+100”的形式。

有人按手工制表的习惯直接填写“K0+000—K1+100”，这样不但制表麻烦且修改不便，未能发挥Excel的强大功能。

要实现“K1+100”的格式，可以在单元格中直接填写“1100”，然后设置单元格式数值类型为自定义“K0+000”即可。

若要显示桩号小数点后两位，则定义“K0+000.00”。

要实现“K0+000—K1+100”需用到TEXT函数，首先在A1、B1单元格分别填入起终桩号0及1100，然后使用公式C1=TEXT（A1,"K0+000"）&"～"&TEXT（B1,"K0+000"）即可。

按以上方法处理有明显的好处，首先，桩号按数值格式填写，输入方便快捷，桩号虽显示为“K1+100”的文本形式，但其本身仍是数值，方便了后续计算的引用。

另外修改起来也会方便很多。

1.2角度“90°10′11″”的实现

在公路工程设计中，常常要用到角度的几种表达形式，为方便输入，常采用小数形式的角度（DMS）格式，如90度10分11秒，记为90.1011，为阅读清晰，表格输出则常采用形如90°10′11″的度分秒格式，而Excel内部函数使用的角度值均是以弧度表示的。

Excel有DEGREES（）及RADIANS（）两个函数可实现度与弧度之间的互化。

而对于公路设计中经常要用到的两个转换（DMS化弧度、弧度化度分秒）则没有相应的函数。

其实利用Excel的取整及连接函数也是可以实现的。

1.2.1MS化弧度

如表1所示，A列是DMS格式的原始数据，使用公式B2=TRUNC（A2）、C2=TRUNC（（A2-B2）*100）、

D2=（（A2-B2）*100-C2）*100、E2=RADIANS（B2+C2/60+D2/60/60），然后复制公式到各列，则E列就是对应的弧度值，可直接用于后续计算中。

                表1

               表2

1.2.2弧度化度分秒

如表2所示，A列是弧度值，为方便对照，这里直接取用了表1的结果，输入公式：

B2=DEGREES（A2）、

C2=TRUNC（B2）、2=TRUNC（（B2-C2）*60）、E2=ROUND（（（B2-C2）*60-D2）*60,1）、F2=C2&"°"&ABS（D2）&"′"&ABS（E2）&"″"，复制公式到各列，则F列就是完全符合工程习惯的角度输出值。

注意：

1.表1中的B-D列及表2中的B-E列数据是中间结果，若在打印表格时不需要输出这些数据，只需选中这几列，按下鼠标右键，选择隐藏即可。

2.以上计算使用了取整函数TRUNC（）及ROUND（），不能用函数INT（）代替，否则当角度为负时会出错，至于这些函数的详细用法及区别请阅读Excel的联机帮助文档。

1.3如何去掉单元格中的“0”

在制作各种工程数量表时，常常在单元格中填写公式，由Excel自动计算，若计算结果为零，将在单元格中显示0，而按工程习惯，数量为零时一般不应填写。

如何去掉这些“0”？

若直接删除，则公式无法保留，当修改原始数据使计算结果不为零时无法自动恢复显示。

在公式中加入判断“IF（A1=0,,A1）”是一种解决办法，但更简洁的办法是使用菜单“工具—〉选项”，在对话框中单击“视图”选项卡，去掉零值复选框即可。

1.4几个实用的拖拽复制功能

1.4.1自动产生等间距桩号 公路设计中常需填写等间距桩号0、20、40、60……，可先填写前两个桩号“0”、“20”，选中这两个单元格，然后将鼠标指针移到填充柄（选中单元格的右下角）上，按住左键向下拖动，就会依次出现“40、60、80……”，速度快且不易出错。

1.4.２不带格式的公式复制 利用Excel的拖拽复制功能复制公式是Excel使用者熟知的一项操作，

但它是带格式复制的，当要求目标单元格格式与源单元格格式不同时（如多页连续的工程数量表，每页边缘的单元格要加粗一侧边框，而其他单元格都用细线边框），在复制完公式后，还要将被破坏的单元格格式再改回来，但是如果拖拽时不是按住鼠标左键，而是按住右键，那么在拖拽结束释放右键时就会弹出一菜单，选择“以值填充”就可达到复制公式而保留目标单元格格式的目的。

1.4.３快速公式复制

在表格中将公式复制到下面若干行是Excel中常见的操作，通常的做法是填好第一行的公式，然后拖拽填充柄复制到其他各行，若行数很多时拖拽也会不便，因为鼠标移出工作区后工作表的滚动很快，不易找到终止位置，若在选中一行公式后在填充柄上双击，Excel就会参照邻近的行数自动复制直到最后一行。

2 结 语

本文仅列举了几个Excel在公路工程设计中最常用的操作技巧，意在抛砖引玉，Excel还有许多强大功能如宏、排序等都可应用于公路工程设计实践中，只有在工作中勤于思考，不断探索，掌握Excel的其他功能，才能让Excel更好地为公路工程设计服务。