Como obter o fuso horário atual e exibi-lo numa célula do Excel?
Ao trabalhar com folhas de cálculo do Excel — especialmente em ambientes colaborativos ou internacionais —, conhecer o fuso horário exato definido no seu sistema pode ser essencial. Ao identificar e apresentar diretamente na célula do Excel o fuso horário do seu sistema, garante a precisão de cálculos, relatórios ou comparações de dados sensíveis ao tempo, sobretudo quando os ficheiros são partilhados entre utilizadores de diferentes regiões. Infelizmente, o Excel não inclui uma função incorporada para extrair diretamente essa informação do fuso horário do sistema e inseri-la numa célula.
Obtenha o fuso horário atual e apresente-o numa célula com uma função definida pelo utilizador
Obtenha o fuso horário atual e apresente-o numa célula com uma função definida pelo utilizador
Para extrair e apresentar diretamente na célula do Excel o fuso horário atual do seu sistema, pode utilizar uma função definida pelo utilizador (UDF) escrita em VBA. Trata-se de uma solução prática, especialmente quando precisa frequentemente desta informação na sua pasta de trabalho. Eis como proceder passo a passo:
Nota: Esta abordagem funciona melhor se as macros estiverem ativadas no seu ambiente do Excel e se tiver permissão para executar código VBA. Lê diretamente a definição regional do sistema Windows configurada no seu computador.
1. Prima simultaneamente as teclas Alt+F11. Isto abre a janela do editor do Microsoft Visual Basic for Applications (VBA).
2. No editor do VBA, localize o painel do projeto à esquerda e clique em Inserir > Módulo. Isto adiciona um novo módulo à sua pasta de trabalho, onde pode introduzir código personalizado. Copie e cole cuidadosamente o seguinte código VBA na janela em branco do 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 FunctionCertifique-se de copiar todo o código acima. Antes de executar macros ou a UDF, confirme que as suas definições de macros permitem a execução de código. Caso surja um erro ou aviso de segurança, ajuste as definições de macros em Ficheiro > Opções > Centro de Confiança > Definições do Centro de Confiança > Definições de Macros.
3. Após colar o código, prima Alt + Q para fechar o editor do VBA e regressar ao Excel.
4. Escolha qualquer célula onde pretenda apresentar o fuso horário e introduza esta fórmula:=GetTimeZoneAtPresent(), depois prima Enter. O fuso horário atual definido no seu sistema aparecerá imediatamente na célula selecionada.
Este método revela-se particularmente eficaz para modelos automatizados de relatórios ou painéis de controlo partilháveis entre colegas em diferentes localizações geográficas, onde a clareza do fuso horário é essencial. No entanto, lembre-se de que as UDF só funcionam se a pasta de trabalho for guardada como ficheiro com macros ativadas (.xlsm). Caso transfira o ficheiro ou o envie a alguém com as macros desativadas, o resultado poderá não ser atualizado nem apresentado.
Veja a captura de ecrã para maior clareza:
Se o resultado não aparecer ou for apresentado um erro, verifique se:
- As suas definições de macros permitem a execução de código VBA.
- O código foi copiado na íntegra e sem qualquer modificação.
- Não está disponível no Excel Online nem em ambientes restritos, pois as soluções VBA estão limitadas ao Excel para ambiente de trabalho.
Para atualizar ou refrescar a informação do fuso horário, basta recalcular a folha (prima)F9) ou reintroduzir a fórmula caso o fuso horário do sistema tenha sido alterado durante a sessão do Excel.
Dica: Este resultado reflete as definições do sistema operativo do seu computador. Se partilhar o ficheiro, cada utilizador verá o seu próprio fuso horário do sistema ao recalcular a fórmula no seu ambiente local do Excel.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos