如何通过简单方法轻松拆分Excel单元格提升数据处理效率
478
2023-12-17
如何在Excel中将十进制度转换为分钟分秒？
如何在Excel中将十进制度转换为分钟分秒？
有时，工作表中可能有以十进制度显示的数据列表，现在您需要将十进制度转换为度，分钟和秒格式，如以下屏幕截图所示，如何在Excel中快速进行对话？
使用VBA将十进制度数转换为度，分，秒
使用VBA将度，分，秒转换为十进制度
使用VBA将十进制度数转换为度，分，秒
惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！
请按照以下步骤使用VBA代码将十进制度数转换为度，分和秒。
1.按住 ALT 按钮并按下 F11 在键盘上打开一个 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块，然后将VBA复制到模块中。
VBA：将十进制度转换为度，分钟和秒
Sub ConvertDegree()
Update 20130815
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
num1 = Rng.Value
num2 = (num1 - Int(num1)) * 60
num3 = Format((num2 - Int(num2)) * 60, "00")
Rng.Value = Int(num1) & "°" & Int(num2) & "" & Int(num3) & ""
Next
End Sub
Copy
3。 点击 运行 按钮或按下 F5 运行VBA。
4.屏幕上显示一个对话框，您可以选择要转换的单元格。 看截图：
5。 点击 OK，然后将所选数据转换为度，分钟和秒。 看截图：
Tips:：使用上述VBA代码将丢失原始数据，因此最好在运行代码之前复制数据。
使用VBA将度，分，秒转换为十进制度有时，您可能希望将以度/分/秒为单位的数据格式转换为十进制度，下面的VBA代码可以帮助您快速完成。
1.按住 ALT按钮并按 F11 在键盘上打开“ Microsoft Visual Basic for Application”窗口。
2。 点击 插页 > 模块，然后将VBA复制到模块中。
VBA：将度，分和秒转换为十进制度
Function ConvertDecimal(pInput As String) As Double
Updateby20140227
Dim xDeg As Double
Dim xMin As Double
Dim xSec As Double
xDeg = Val(Left(pInput, InStr(1, pInput, "°") - 1))
xMin = Val(Mid(pInput, InStr(1, pInput, "°") + 2, _
InStr(1, pInput, "") - InStr(1, pInput, _
"°") - 2)) / 60
xSec = Val(Mid(pInput, InStr(1, pInput, "") + _
2, Len(pInput) - InStr(1, pInput, "") - 2)) _
/ 3600
ConvertDecimal = xDeg + xMin + xSec
End Function
Copy
3.保存代码并关闭窗口，选择一个空白单元格，例如Cell A1，输入此公式 = ConvertDecimal（“ 10°2736”“”） （“ 10°2736”“”代表要转换为十进制的度，您可以根据需要进行更改），然后单击 输入 按钮。 查看屏幕截图：
相关文章 将小数转换为小时。 分钟，秒版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
