excel度分秒计算问题

难点就是判定那一块。如果难度太高可以做2个表一个计算 一个显示度分秒。
表格已经在百度网盘分享。可以取下载。
http://pan.baidu.com/s/1i3h6h85
做好以后请发163的由箱 yinchenbin123

使用VBA写程序解决。如要实现度分秒表示的角度的加法,可以使用以下程序:
这只是一个例子,根据需要可自行在设计。

'函数必须在标准模块中,工作表才能使用这个函数
Public Function AngleAdd(ByVal V1 As String, ByVal V2 As String) As String
Dim Degree As Integer, Minute As Integer, Second As Integer
Dim Degree1 As Integer, Minute1 As Integer, Second1 As Integer
Dim Degree2 As Integer, Minute2 As Integer, Second2 As Integer

Dim tmp As String, Cur As Integer, Cur2 As Integer

'解析 V1 出度分秒数据
Cur = InStr(1, V1, "°")
Cur2 = Cur - 1
tmp = Left(V1, Cur2)
Degree1 = CInt(tmp)

Cur = Cur + 1
Cur2 = InStr(Cur, V1, "′")
tmp = Mid(V1, Cur, Cur2 - Cur)
Minute1 = CInt(tmp)

Cur = Cur2 + 1
Cur2 = InStr(Cur, V1, "″")
tmp = Mid(V1, Cur, Cur2 - Cur)
Second1 = CInt(tmp)

'解析 V2 出度分秒数据
Cur = InStr(1, V2, "°")
Cur2 = Cur - 1
tmp = Left(V2, Cur2)
Degree2 = CInt(tmp)

Cur = Cur + 1
Cur2 = InStr(Cur, V2, "′")
tmp = Mid(V2, Cur, Cur2 - Cur)
Minute2 = CInt(tmp)

Cur = Cur2 + 1
Cur2 = InStr(Cur, V2, "″")
tmp = Mid(V2, Cur, Cur2 - Cur)
Second2 = CInt(tmp)

'完成相加
Degree = Degree1 + Degree2
Minute = Minute1 + Minute2
Second = Second1 + Second2

Minute = Minute + Second \ 60
Second = Second Mod 60

Degree = Degree + Minute \ 60
Minute = Minute Mod 60

AngleAdd = CStr(Degree) & "°" & CStr(Minute) & "′" & CStr(Second) & "″"

End Function

假设 A1 A2 单元格的数据分别是:60°50′30″ 10°20′40″
在其他单元格输入公式: =AngleAdd(A1,B1)
显示计算结果:71°11′10″
温馨提示:内容为网友见解,仅供参考
第1个回答  2014-12-22
还不了解意图 你到底想算哪里追问

从D列开始 红色手动输入 黑色自动计算 计算出xyz

excel如何可以计算度分秒?
1、首先打开需要编辑的Excel表格,选中需要设置的单元格。2、然后右键单击单元格选择打开“设置单元格格式”。3、然后在弹出来的窗口中点击选择数字中的“自定义”。4、然后在弹出来的窗口中点击类型输入:[h]°m’s”,回车确定。5、然后就得到可以计算的度分秒了。

Excel能不能直接输入度分秒
在Excel中,您可以直接输入度分秒格式的数值。具体操作方式如下:在“格式”菜单中选择“单元格”,在弹出的“数字”选项中,选择“自定义”,在“类型”中输入“[hh]"°"m"′"s"″"。这样输入90:0:0会显示为90°0′0″。在进行计算时,若需要对度分秒格式的数值进行处理,应使用特定的公式。...

excel 表格区分度公式
在Excel表格中,可以使用以下公式将度分秒转换为度:=度数+(分数\/60)+(秒数\/3600)其中,“度数”是原始数据的度数部分,“分数”是原始数据的分数部分,“秒数”是原始数据的秒数部分。例如,如果原始数据为122°30'45",则可以使用以下公式进行转换:=122+(30\/60)+(45\/3600)计算结果为122.5125...

度分秒怎么算成度
1、1.Excel表格把度分秒转换为度的方法:假设数值在A1,=LEFT(A1,FIND("°",A1)-1)*1+MID(A1,FIND("°",A1)+1,2)\/60+MID(A1,FIND("′",A1)+1,LEN(A1)-FIND("′",A1)-1)\/36002.提取度 + 提取分 分\/60,折算成度 + 提取秒,把 秒\/3600,折算成度。2、加在一起。

excel度分秒格式怎么设置excel度分秒计算公式
1.首先在电脑桌面上打开EXCEL表格。2.接着选中单元格,设置自定义单元格格式。3.在弹出的类型对话框中选择#°00”00.0”度分秒的格式。4.单击确定退出,然后在单元格里输入1202345.0,这种形式的,把鼠标拉到其他位置,退出就能将角度转化成度分秒的格式了。

怎样将度分秒化成度
将度分秒化成度可以在excel中进行操作。1、打开“Excel”软件,打开要处理的表格。2、鼠标左键单击选中“B2”单元格。3、在上方编辑栏内输入“=LEFT(A2,FIND(“°”,A2)-1)*1”公式。4、按下“回车”键,可看到左边的“度分秒”数据已经转化成了“度”。

在EXCEL中计算度分秒怎么化为多少度?
如果第1行的ABC列中是度分秒,计算度的公式=A1+B1\/60+C1\/3600

excel将经纬度 度分秒转换成小数一分等于多少秒?
Excel将经纬度,度分秒转换成小数一分等于的秒数。需要对度分秒进行提取后换算,首先换算度,如下:=LEFT(A1,FIND("•",A1)-1)*3600 依次类推利用MID函数提取分数乘60,再加上秒数,得到最终的秒数。公式及效果图 公式说明:利用LEFT函数提取A1的值,,提取的位数有FIND函数查找度的表示所在...

在EXCEL中计算度分秒的值。请各位高手帮忙
电子表格度分秒不能被直接加减,处理起来比较麻烦。建议将度分秒数据录入时作特殊处理,然后借用时间的60进制,对度数进行计算。满360度减360,可用MOD函数。具体如下:1、将单元格格式设为自定义:[h]"°"mm"′"ss.0"〃"2、按时间格式录入度数,如359°59′58.1〃录入为:359:59:58.1 3、...

excel中度数怎么算?
1、计算 Excel中,对于角度的运算是用“弧度”的,所以计算时要注意,若是“角度”,则要进行转换,入sin30°,公式应为=SIN(30\/180*PI()),结果为0.5。2、输入和显示 Excel中没有直接的“度分秒”的输入,但有“时分秒”的输入格式,且都是60进制度,所以可以利用之,比如120度20分30秒,...

相似回答