Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Registrarse  \/ 
x

or

¿Cómo convertir grados decimales a grados, minutos, segundos en Excel?

A veces, es posible que tenga una lista de datos mostrada como grados decimales en una hoja de trabajo, y ahora necesita convertir los grados decimales al formato de grados, minutos y segundos como se muestra en las siguientes capturas de pantalla, ¿cómo puede obtener la conversación rápidamente en Excel?

Convierta grados decimales a grados, minutos, segundos con VBA

Convierta grados, minutos, segundos a grados decimales con VBA

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha Convierta grados decimales a grados, minutos, segundos con VBA


Siga los pasos a continuación para convertir grados decimales a grados, minutos y segundos con código VBA.

1. Sostener ALT botón y prensa F11 en el teclado para abrir un Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy copie el VBA en el módulo.

VBA: convierte grados decimales en grados, minutos y segundos

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. Hacer clic Corral botón o prensa F5 para ejecutar el VBA.

4. Aparece un cuadro de diálogo en la pantalla, y puede seleccionar las celdas que desea convertir. Ver captura de pantalla:

5. Hacer clic OK, luego los datos seleccionados se convierten en grados, minutos y segundos. Ver captura de pantalla:

Consejo: El uso del código VBA anterior perderá sus datos originales, por lo que será mejor que copie los datos antes de ejecutar el código.


flecha azul burbuja derecha Convierta grados, minutos, segundos a grados decimales con VBA

A veces, es posible que desee convertir los datos en formato de grados / minutos / segundos a grados decimales, el siguiente código VBA puede ayudarlo a hacerlo rápidamente.

1. Sostener ALBotón T y presione F11 en el teclado para abrir una ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy copie el VBA en el módulo.

VBA: convierte grados, minutos y segundos a grados decimales

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. Guarde el código y cierre la ventana, seleccione una celda en blanco, por ejemplo, la Celda A1, ingrese esta fórmula = ConvertDecimal ("10 ° 27 '36" "") ("10 ° 27 '36" "" representa el grado que desea convertir a grado decimal, puede cambiarlo según lo necesite), luego haga clic en Entrar botón. Ver capturas de pantalla:


Artículos relativos

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.