Como converter graus decimais em graus, minutos e segundos no Excel?
Às vezes, você pode ter uma lista de dados mostrados como graus decimais em uma planilha e agora precisa converter os graus decimais para o formato de graus, minutos e segundos, conforme mostrado nas capturas de tela a seguir. Como você pode fazer essa conversão rapidamente no Excel?
 |  |  |
Converter graus decimais em graus, minutos e segundos com VBA
Converter graus, minutos e segundos em graus decimais com VBA
Converter graus decimais em graus, minutos e segundos com VBA
Por favor, siga as etapas abaixo para converter graus decimais em graus, minutos e segundos com código VBA.
1. Mantenha pressionado o botão ALT e pressione F11 no teclado para abrir uma janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e copie o VBA para o módulo.
VBA: Converter grau decimal em graus, minutos e 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. Clique no botão Executar ou pressione F5 para executar o VBA.
4. Um diálogo será exibido na tela, e você poderá selecionar as células que deseja converter. Veja a captura de tela:
5. Clique em OK, e os dados selecionados serão convertidos em graus, minutos e segundos. Veja a captura de tela:
| | |
Dica: Usar o código VBA acima substituirá seus dados originais, então é melhor copiar os dados antes de executar o código.
Converter graus, minutos e segundos em graus decimais com VBA
Às vezes, você pode querer converter os dados no formato de graus/minutos/segundos para graus decimais; o seguinte código VBA pode ajudá-lo a fazer isso rapidamente.
1. Mantenha pressionado o botão ALT e pressione F11 no teclado para abrir uma janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e copie o VBA para o módulo.
VBA: Converter graus, minutos e segundos em grau decimal
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. Salve o código e feche a janela, selecione uma célula em branco, por exemplo, a célula A1, insira esta fórmula =ConvertDecimal("10° 27' 36""") ("10° 27' 36""" representa o grau que você deseja converter para grau decimal, você pode alterá-lo conforme necessário), depois clique no botão Enter. Veja as capturas de tela:
 | |  |