寵物展會2025年時間表
724
2025-04-01
如何在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小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
