Wie konvertiere ich Dezimalgrade in Grad Minuten Sekunden in Excel?
Manchmal wird in einem Arbeitsblatt eine Liste von Daten als Dezimalgrad angezeigt, und jetzt müssen Sie die Dezimalgrad in Grad, Minuten und Sekunden konvertieren, wie in den folgenden Screenshots dargestellt. Wie können Sie die Konversation schnell in Excel erhalten?
Konvertieren Sie Dezimalgrade in Grad, Minuten, Sekunden mit VBA
Konvertieren Sie Grad, Minuten, Sekunden mit VBA in Dezimalgrad
Konvertieren Sie Dezimalgrade in Grad, Minuten, Sekunden mit VBA
Führen Sie die folgenden Schritte aus, um Dezimalgrade mit VBA-Code in Grad, Minuten und Sekunden umzuwandeln.
1. Halt ALT Taste drücken und drücken F11 auf der Tastatur zum Öffnen a Microsoft Visual Basic für Anwendung Fenster.
2 Klicken Insert > Modulund kopieren Sie den VBA in das Modul.
VBA: Konvertieren Sie Dezimalgrad in Grad, Minuten und Sekunden
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
3 Klicken Führen Sie Taste oder drücken F5 um die VBA auszuführen.
4. Auf dem Bildschirm wird ein Dialogfeld angezeigt, in dem Sie die Zellen auswählen können, die konvertiert werden sollen. Siehe Screenshot:
5 Klicken OKAnschließend werden die ausgewählten Daten in Grad, Minuten und Sekunden konvertiert. Siehe Screenshot:
Tipp: Wenn Sie den obigen VBA-Code verwenden, gehen Ihre Originaldaten verloren. Kopieren Sie die Daten daher besser, bevor Sie den Code ausführen.
Konvertieren Sie Grad, Minuten, Sekunden mit VBA in Dezimalgrad
Manchmal möchten Sie die Daten möglicherweise in Grad / Minuten / Sekunden-Formatierung in Dezimalgrad konvertieren. Der folgende VBA-Code kann Ihnen dabei helfen, dies schnell zu erledigen.
1. Halt ALT-Taste und drücken F11 auf der Tastatur, um ein Microsoft Visual Basic für Anwendungsfenster zu öffnen.
2 Klicken Insert > Modulund kopieren Sie den VBA in das Modul.
VBA: Konvertieren Sie Grad, Minuten und Sekunden in Dezimalgrad
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
3. Speichern Sie den Code und schließen Sie das Fenster. Wählen Sie eine leere Zelle aus, z. B. Zelle A1, und geben Sie diese Formel ein = ConvertDecimal ("10 ° 27 '36" ") ("10 ° 27 '36" "" steht für den Grad, den Sie in Dezimalgrad konvertieren möchten. Sie können ihn nach Bedarf ändern.) Klicken Sie dann auf Enter Taste. Siehe Screenshots: