Conas céimeanna deachúil a thiontú go céimeanna nóiméad soicind in Excel?
Uaireanta, b’fhéidir go mbeidh liosta sonraí agat a thaispeántar mar chéimeanna deachúlacha i mbileog oibre, agus anois ní mór duit na céimeanna deachúil a thiontú go formáidiú céimeanna, nóiméid agus soicind mar a thaispeántar mar a leanas na scáileáin scáileáin seo a leanas, conas is féidir leat an comhrá a fháil go tapa in Excel?
Tiontaigh céimeanna deachúil go céimeanna, nóiméad, soicind le VBA
Tiontaigh céimeanna, nóiméid, soicind go céimeanna deachúil le VBA
Tiontaigh céimeanna deachúil go céimeanna, nóiméad, soicind le VBA
Lean na céimeanna thíos le do thoil chun céimeanna deachúil a thiontú go céimeanna, nóiméid agus soicind le cód VBA.
1. Coinnigh ALT cnaipe agus brúigh F11 ar an méarchlár chun a Microsoft Visual Basic le haghaidh Feidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus cóipeáil an VBA isteach sa mhodúl.
VBA: Tiontaigh céim deachúil go céim, nóiméad agus soicind
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. cliceáil Rith cnaipe nó brúigh F5 chun an VBA a reáchtáil.
4. Dialóg ar taispeáint ar an scáileán, agus is féidir leat na cealla a theastaíonn uait a thiontú a roghnú. Féach an pictiúr:
5. cliceáil OK, ansin athraítear na sonraí roghnaithe go céim, nóiméad agus soicind. Féach an pictiúr:
Leid: Caillfear do bhunsonraí trí úsáid a bhaint as an gcód VBA thuas, mar sin b’fhearr duit na sonraí a chóipeáil sula rithfidh tú an cód.
Tiontaigh céimeanna, nóiméid, soicind go céimeanna deachúil le VBA
Uaireanta, b’fhéidir gur mhaith leat na sonraí a thiontú i bhformáidiú céimeanna / nóiméad / soicind go céimeanna deachúil, is féidir leis an gcód VBA seo a leanas cabhrú leat iad a chur i gcrích go tapa.
1. Coinnigh ALCnaipe T agus brúigh F11 ar an méarchlár chun fuinneog Microsoft Visual Basic for Application a oscailt.
2. cliceáil Ionsáigh > Modúil, agus cóipeáil an VBA isteach sa mhodúl.
VBA: Tiontaigh céim, nóiméad agus soicind go céim deachúil
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. Sábháil an cód agus dún an fhuinneog, roghnaigh cill bhán, mar shampla, an Cill A1, iontráil an fhoirmle seo = ConvertDecimal ("10 ° 27 '36" "") (Seasann "10 ° 27 '36" "" an chéim is mian leat a thiontú go céim deachúil, is féidir leat é a athrú de réir mar is gá duit), ansin cliceáil Iontráil cnaipe. Féach screenshots: