¿Cómo obtener la zona horaria actual y mostrarla en una celda de Excel?
Al trabajar con hojas de cálculo de Excel, especialmente en entornos colaborativos o internacionales, conocer la zona horaria exacta configurada en el sistema resulta fundamental. Mostrar directamente en una celda de Excel la zona horaria del sistema garantiza la precisión de cálculos, informes o comparaciones de datos sensibles al tiempo, sobre todo cuando los archivos se comparten entre usuarios de distintas regiones. Sin embargo, Excel no incluye una función integrada para extraer directamente esta información en una celda.
Obtener la zona horaria actual y mostrarla en una celda con una función definida por el usuario
Obtener la zona horaria actual y mostrarla en una celda con una función definida por el usuario
Para extraer y mostrar directamente en una celda de Excel la zona horaria actual de su sistema, puede utilizar una función definida por el usuario (UDF) creada en VBA. Esta solución resulta especialmente práctica cuando necesita acceder con frecuencia a esta información dentro de su libro de trabajo. A continuación, se detalla cómo implementarla paso a paso:
Nota: Este enfoque funciona mejor si tiene las macros habilitadas en su entorno de Excel y permiso para ejecutar código VBA. Lee directamente la configuración regional del sistema Windows configurada en su equipo.
1. Pulse simultáneamente las teclas Alt + F11. Esto abre la ventana del editor de Microsoft Visual Basic para Aplicaciones (VBA).
2. En el editor de VBA, localice el panel de proyecto a la izquierda y haga clic en Insertar > Módulo. Esto añadirá un nuevo módulo a su libro, donde podrá introducir código personalizado. Copie y pegue cuidadosamente el siguiente código VBA en la ventana en blanco del módulo:
Código VBA: Obtener la zona horaria actual en 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 FunctionAsegúrese de copiar todo el código anterior. Antes de ejecutar macros o la UDF, verifique que la configuración de macros le permita ejecutar código. Si recibe un error o una advertencia de seguridad, ajuste la configuración en Archivo > Opciones > Centro de confianza > Configuración del Centro de confianza > Configuración de macros.
3. Tras pegar el código, pulse Alt+Q para cerrar el editor de VBA y volver a Excel.
4. Seleccione cualquier celda en la que desee mostrar la zona horaria e introduzca esta fórmula: =GetTimeZoneAtPresent() y, a continuación, pulse Intro. ¡La zona horaria actual configurada en su sistema aparecerá al instante en la celda seleccionada!
Este método resulta especialmente eficaz en plantillas de informes automatizados o paneles de control compartidos entre colegas de distintas ubicaciones geográficas, donde la claridad sobre la zona horaria es fundamental. No obstante, recuerde que las UDF solo funcionan si el libro se guarda como archivo habilitado para macros (.xlsm). Si transfiere el archivo o lo envía a alguien con las macros deshabilitadas, es posible que el resultado no se actualice ni se muestre.
Consulte la captura de pantalla para mayor claridad:
Si el resultado no aparece o se muestra un error, compruebe lo siguiente:
- La configuración de macros permite ejecutar código VBA.
- El código se copió íntegramente y sin modificaciones.
- No está disponible en Excel Online ni en entornos restringidos, ya que las soluciones VBA están limitadas a la versión de escritorio de Excel.
Para actualizar o refrescar la información de la zona horaria, simplemente recalcula la hoja (pulsa)F9) o vuelve a introducir la fórmula si la zona horaria del sistema ha cambiado durante tu sesión de Excel.
Consejo: Este resultado reflejará la configuración del sistema operativo de su equipo. Si comparte el archivo, cada usuario verá la zona horaria de su propio sistema al recalcular la fórmula en su entorno local de Excel.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos