Como obter o fuso horário atual e exibi-lo em uma célula no Excel?
Você sabe como descobrir em qual fuso horário o sistema está configurado no seu computador? Aqui, mostrarei uma maneira fácil de fazer isso no Excel.
Obtenha o fuso horário atual e exiba-o na célula com uma função definida pelo usuário
Obtenha o fuso horário atual e exiba-o na célula com uma função definida pelo usuário
A seguinte função definida pelo usuário ajudará você a exibir diretamente nas células necessárias do Excel o fuso horário atual do sistema. Por favor, siga os passos abaixo.
1. Pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela Módulo.
Código VBA: Obter o fuso horário atual no Excel
Function GetTimeZoneAtPresent() As String
'Updated by Extendoffice 20180814
Dim xObjIs, xObjI
On Error GoTo ER
Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
If xObjIs.Count = 1 Then
For Each xObjI In xObjIs
If Len(xObjI.Caption) > 1 Then
GetTimeZoneAtPresent = xObjI.Caption
Exit Function
Else
GetTimeZoneAtPresent = "Null"
Exit Function
End If
Next
End If
ER:
GetTimeZoneAtPresent = "Failed"
End Function
3. Pressione as teclas Alt + Q para sair da janela do Microsoft Visual Basic for Applications.
4. Selecione uma célula onde você precisa exibir o fuso horário, digite esta fórmula: =GetTimeZoneAtPresent() e pressione a tecla Enter para obter os detalhes do fuso horário. Veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!