Sut i drosi graddau degol i raddau munud eiliad yn Excel?
Weithiau, efallai y bydd gennych restr o ddata a ddangosir fel graddau degol mewn taflen waith, ac yn awr mae angen i chi drosi'r graddau degol i fformatio graddau, munudau ac eiliadau fel y dangosir fel sgrinluniau canlynol, sut allwch chi gael y sgwrs yn gyflym yn Excel?
Trosi graddau degol i raddau, munudau, eiliadau gyda VBA
Trosi graddau, munudau, eiliadau i raddau degol gyda VBA
Trosi graddau degol i raddau, munudau, eiliadau gyda VBA
Dilynwch y camau isod i drosi graddau degol i raddau, munudau ac eiliadau gyda chod VBA.
1. Cynnal ALT botwm a gwasgwch F11 ar y bysellfwrdd i agor a Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a chopïwch y VBA i'r modiwl.
VBA: Trosi gradd degol i radd, munudau ac eiliadau
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. Cliciwch Run botwm neu wasg F5 i redeg y VBA.
4. Deialog wedi'i arddangos ar y sgrin, a gallwch ddewis y celloedd rydych chi am eu trosi. Gweler y screenshot:
5. Cliciwch OK, yna mae'r data a ddewiswyd yn cael ei drawsnewid i radd, munudau ac eiliadau. Gweler y screenshot:
Tip: Bydd defnyddio'r cod VBA uchod yn colli'ch data gwreiddiol, felly byddai'n well ichi gopïo'r data cyn rhedeg y cod.
Trosi graddau, munudau, eiliadau i raddau degol gyda VBA
Weithiau, efallai yr hoffech chi drosi'r data mewn fformatau graddau / munudau / eiliadau i raddau degol, gall y cod VBA canlynol eich helpu i'w gyflawni'n gyflym.
1. Cynnal ALBotwm T a gwasgwch F11 ar y bysellfwrdd i agor ffenestr Microsoft Visual Basic for Application.
2. Cliciwch Mewnosod > Modiwlau, a chopïwch y VBA i'r modiwl.
VBA: Trosi gradd, munudau ac eiliadau i radd degol
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. Cadwch y cod a chau'r ffenestr, dewiswch gell wag, er enghraifft, y Cell A1, nodwch y fformiwla hon = ConvertDecimal ("10 ° 27 '36" "") (Mae "10 ° 27 '36" "" yn sefyll y radd rydych chi am ei throsi i radd degol, gallwch ei newid yn ôl yr angen), yna cliciwch Rhowch botwm. Gweler sgrinluniau: