Ինչպե՞ս Excel- ում տասնորդական աստիճանները վերափոխել րոպեների վայրկյանների:
Երբեմն, դուք կարող եք ունենալ տվյալների ցուցակ, որոնք ցուցադրվում են որպես տասնորդական աստիճաններ աշխատանքային թերթում, և այժմ դուք պետք է վերափոխեք տասնորդական աստիճանները աստիճանների, րոպեների և վայրկյանների ձևաչափման, ինչպես ցույց է տրված հետևյալ սքրինշոթերի, ինչպե՞ս կարող եք արագ զրուցել Excel- ում:
Տասնորդական աստիճանը վերափոխեք VBA- ի աստիճանի, րոպեի, վայրկյանի
VBA- ի միջոցով աստիճանները, րոպեները, վայրկյանները վերափոխեք տասնորդական աստիճանի
Տասնորդական աստիճանը վերափոխեք 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" "" կանգնած է այն աստիճանի վրա, որը ցանկանում եք փոխել տասնորդական աստիճանի, այն կարող եք փոխել ըստ անհրաժեշտության), այնուհետև կտտացրեք Մտնել կոճակ Տեսեք սքրինշոթերը.