Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս Excel- ում տասնորդական աստիճանները վերափոխել րոպեների վայրկյանների:

Երբեմն, դուք կարող եք ունենալ տվյալների ցուցակ, որոնք ցուցադրվում են որպես տասնորդական աստիճաններ աշխատանքային թերթում, և այժմ դուք պետք է վերափոխեք տասնորդական աստիճանները աստիճանների, րոպեների և վայրկյանների ձևաչափման, ինչպես ցույց է տրված հետևյալ սքրինշոթերի, ինչպե՞ս կարող եք արագ զրուցել Excel- ում:

Տասնորդական աստիճանը վերափոխեք VBA- ի աստիճանի, րոպեի, վայրկյանի

VBA- ի միջոցով աստիճանները, րոպեները, վայրկյանները վերափոխեք տասնորդական աստիճանի

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Paste Skipping Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • 300-ից ավելի հզոր հատկություններ; Աշխատում է գրասենյակի հետ 2007-2019 և 365; Աջակցում է բոլոր լեզուներին. Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Տասնորդական աստիճանը վերափոխեք VBA- ի աստիճանի, րոպեի, վայրկյանի


Խնդրում ենք հետևել ստորև նշված քայլերին ՝ տասնորդական աստիճանները VBA կոդով աստիճաններ, րոպեներ և վայրկյաններ փոխարկելու համար:

1. Պահեք ALT կոճակը և սեղմել F11 ստեղնաշարի վրա բացելու համար a 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

3: սեղմեք Վազում կոճակը կամ սեղմել F5 ղեկավարել VBA- ն:

4. Էկրանի վրա ցուցադրված երկխոսություն, և դուք կարող եք ընտրել այն բջիջները, որոնք ցանկանում եք փոխարկել: Տեսեք,

5: սեղմեք OK, ապա ընտրված տվյալները փոխարկվում են աստիճանի, րոպեների և վայրկյանների: Տեսեք,

ԱկնարկՎերոհիշյալ VBA կոդի օգտագործումը կկորցնի ձեր նախնական տվյալները, այնպես որ ավելի լավ է պատճենեք տվյալները նախքան ծածկագիրը գործարկելը:


նետ կապույտ աջ պղպջակ VBA- ի միջոցով աստիճանները, րոպեները, վայրկյանները վերափոխեք տասնորդական աստիճանի

Երբեմն, դուք կարող եք ցանկանալ փոխել տվյալները աստիճաններով / րոպե / վայրկյան ձևաչափմամբ տասնորդական աստիճանի, հետևյալ VBA կոդը կարող է օգնել ձեզ արագ կատարել:

1. Պահեք ALT կոճակը և սեղմել F11 ստեղնաշարի վրա ՝ Microsoft Visual Basic կիրառական ծրագրի պատուհանը բացելու համար:

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

3. Պահպանեք կոդը և փակեք պատուհանը, ընտրեք դատարկ բջիջ, օրինակ `Բջիջ A1- ը, մուտքագրեք այս բանաձևը = ConvertDecimal ("10 ° 27 '36" "") («10 ° 27 '36" "" կանգնած է այն աստիճանի վրա, որը ցանկանում եք փոխել տասնորդական աստիճանի, այն կարող եք փոխել ըստ անհրաժեշտության), այնուհետև կտտացրեք Մտնել կոճակ Տեսեք սքրինշոթերը.


Հարաբերական հոդվածներ

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jon · 11 months ago
    WRONG calculation results... 29°30'13" 34°55'4" ---> 29.00083333 34.08333333
  • To post as a guest, your comment is unpublished.
    ValdrichF · 2 years ago
    The code has a assumes there is a space after ° and '. Change the 2's to 1's in the code to solve it.
    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, "°") + 1, _
    InStr(1, pInput, "'") - InStr(1, pInput, _
    "°") - 1)) / 60
    xSec = Val(Mid(pInput, InStr(1, pInput, "'") + _
    1, Len(pInput) - InStr(1, pInput, "'") - 1)) _
    / 3600
    ConvertDecimal = xDeg + xMin + xSec
    End Function
  • To post as a guest, your comment is unpublished.
    Sandeep · 3 years ago
    Works like a champ! Thanks for sharing!!!
    • To post as a guest, your comment is unpublished.
      Ritesh · 3 years ago
      Check your results. this code is wrong.
  • To post as a guest, your comment is unpublished.
    ahans · 3 years ago
    please
    i want you help and write a computer program on paper to convert decimal of degree to degree minute and second.
    317.5986740026
    from ahans.
    • To post as a guest, your comment is unpublished.
      Amjid afridi · 3 years ago
      step 1, Multiply numbers after decimal with 60 (0.5986740026*60)minutes=35.92044015 mean 35 mints
      spet 2, multiply the decimal after minute ie 0.9204401*60=55.2264
      so 317 degree 35 minuts 55 sec
  • To post as a guest, your comment is unpublished.
    Corny · 3 years ago
    Not sure whats wrong with the code in the post from Ernie, but this is what I use to convert decimal degrees to DMS degrees in the spread sheet without using VB. The reference to the cell E33 is the cell containing the decimal degrees value.

    =CONCAT(FIXED(INT(B32), 0) , "°", FIXED(((B32 - INT(B32)) * 60), 0), "'", FIXED(((B32 - INT(B32) - INT(B32 - INT(B32))) * 3600), 0 ,TRUE), """)

    Good luck.
    • To post as a guest, your comment is unpublished.
      RAMON GOMEZ · 3 years ago
      HI CORNY, NOT WORK FOR ME, EXCEL DO NOT ACCEPT THE FUNCTION..... WHATS WRONG? CAN YOU HELP ME?
  • To post as a guest, your comment is unpublished.
    Ernie · 4 years ago
    Hello,
    I used the scrip to convert decimal to DMS however the code is wrong somewhere as it turned out 37.856908,-120.912469 to 37D 51M 25S, -121D 5M 15S
    This is way off....

    Anyone have a fix for this?
  • To post as a guest, your comment is unpublished.
    Ryan Smith · 4 years ago
    works great but how would i adapt the code to get more numbers for seconds?
  • To post as a guest, your comment is unpublished.
    Gregory · 4 years ago
    I want to plot the positions on a map and we not worry about N, S, E or W. I'm sure these could be added in with "if" statements.
    I have just used a very simple line of functions within the Excel spreadsheet.
    I want to go from Degrees (Decimal) to Degrees, Seconds (Decimal) Changing the negative values to positives as I know which hemispheres I am in. For me, cell E4 contained the target Lat or Long (Decimal).
    This is a bit easier than putting in some VBA code and can be enlarged to do DD,MM,SS

    =CONCATENATE(TRUNC(ABS(E4)),"°",FIXED((ABS(E4)-TRUNC(ABS(E4)))*60,2),"'")
  • To post as a guest, your comment is unpublished.
    Mou · 5 years ago
    Found this code very helpful. Great stuff!
  • To post as a guest, your comment is unpublished.
    Mort Wakeland · 5 years ago
    The most important thing to realize is that you cannot simply use superscript and small letter o for the degree symbol - this may be obvious to some, but not to me. I tried the superscript letter o and it did not work, I deleted the superscript letter o, and used Alt 0176 for the actual degree symbol and it worked!! I am confused as to why after the seconds there are extra sets of double quotes?
    36""") whereas in the subsequent comment if one simply uses =ConvertDecimal(A1) only a single set of quotes are used for seconds. Odd we can use single and double quotes and the thing works for minutes and seconds but superscript letter o does not?
    To check 27/60 = .45 smf 36/3600 = .01 add the two = .46 and add that to the degrees = 10.46 degrees. Hope this helps others? Mort
  • To post as a guest, your comment is unpublished.
    Levi · 6 years ago
    Really helpful.
    Thank you.
  • To post as a guest, your comment is unpublished.
    Rajansinh Zala · 6 years ago
    there is some error in code i tried to convert 26°10'55.416" using this code which results as 26.00139 which should be 26.18206 (Calculated & Verified.. please let me know if anyone knows the reason.
    • To post as a guest, your comment is unpublished.
      Gunnar · 6 years ago
      [quote name="Rajansinh Zala"]there is some error in code i tried to convert 26°10'55.416" using this code which results as 26.00139 which should be 26.18206 (Calculated & Verified.. please let me know if anyone knows the reason.[/quote]

      It seems the code expects a space after the ° and ' symbols.
      26° 10' 55.416" gives the correct answer.
      You can enter your input in a cell (eg A1) and get the result in another cell by using the formula =ConvertDecimal(A1). This is convenient if you have a many numbers to be converted.