Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

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

Cluaisín Oifige Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed in Oifig, agus Déan Do Obair i bhfad Níos Éasca ...
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
  • Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
  • Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
  • Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
  • Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
  • Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
  • Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
  • Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2019 agus 365; Tacaíochtaí le gach teanga; Imscaradh éasca i d’fhiontar nó d’eagraíocht.

mboilgeog cheart gorm saighead 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.


mboilgeog cheart gorm saighead 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:


Earraí coibhneasta

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.