Preskoči na glavno vsebino

Kako pretvoriti decimalne stopinje v stopinje minutne sekunde v Excelu?

Avtor: Sonce Zadnja sprememba: 2024-08-07

Včasih imate morda na delovnem listu seznam podatkov, ki so prikazani kot decimalne stopinje, zdaj pa morate pretvoriti decimalne stopinje v stopinje, minute in sekunde, kot je prikazano na naslednjih posnetkih zaslona. Kako lahko hitro pogovor poiščete v Excelu?

podatki o decimalnih stopinjah arrow stopinje minute sekunde podatki

Pretvorite decimalne stopinje v stopinje, minute, sekunde z VBA

Pretvorite stopinje, minute, sekunde v decimalne stopinje z VBA


puščica modri desni mehurček Pretvorite decimalne stopinje v stopinje, minute, sekunde z VBA

Sledite spodnjim korakom za pretvorbo decimalnih stopinj v stopinje, minute in sekunde s kodo VBA.

1. Drži ALT in pritisnite F11 na tipkovnici, da odprete a Microsoft Visual Basic za uporabo okno.

2. klik Vstavi > Moduliin kopirajte VBA v modul.

VBA: Pretvori decimalno stopinjo v stopinjo, minute in sekunde

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. klik Run ali pritisnite F5 za zagon VBA.

4. Na zaslonu se prikaže pogovorno okno, v katerem lahko izberete celice, ki jih želite pretvoriti. Oglejte si posnetek zaslona:

kodo vba za izbiro podatkov za pretvorbo

5. klik OK, nato se izbrani podatki pretvorijo v stopinje, minute in sekunde. Oglejte si posnetek zaslona:

izvirni podatki arrow rezultat pretvorbe

Nasvet: Z uporabo zgornje kode VBA boste izgubili svoje prvotne podatke, zato jih raje kopirajte, preden zaženete kodo.



puščica modri desni mehurček Pretvorite stopinje, minute, sekunde v decimalne stopinje z VBA

Včasih boste morda želeli podatke pretvoriti v oblikovanje stopinj / minut / sekund v decimalne stopinje, naslednja koda VBA pa vam bo pomagala, da to hitro storite.

1. Drži ALGumb T in pritisnite F11 na tipkovnici, da odprete okno Microsoft Visual Basic for Application.

2. klik Vstavi > Moduliin kopirajte VBA v modul.

VBA: Pretvori stopinjo, minute in sekunde v decimalno stopinjo

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. Shranite kodo in zaprite okno, izberite prazno celico, na primer Celica A1, vnesite to formulo = PretvoriDecimalno ("10 ° 27 '36" "") ("10 ° 27 '36" "" pomeni stopinjo, ki jo želite pretvoriti v decimalno stopinjo, lahko jo spremenite po potrebi), nato kliknite Vnesite . Oglejte si posnetke zaslona:

vnesite formulo arrow rezultat pretvorbe stopinj, minut, sekund v decimalne stopinje

Relativni članki