Determinar el tipo de sistema operativo utilizando VBA en Microsoft Excel
Para identificar el tipo de SO, podemos utilizar código macro. En este artículo, aprenderemos cómo determinar el tipo de sistema operativo que se está utilizando utilizando el código VBA .
Pregunta: Me gustaría saber el sistema operativo de mi sistema a través del código VBA, ya sea de 32 bits o de 64 bits .
Para determinar el tipo de sistema operativo, debemos seguir los pasos a continuación:
Necesitamos iniciar el editor de VB Haga clic en la pestaña Desarrollador * Desde el grupo Código, seleccione Visual Basic
-
Haga clic en Insertar y luego en Módulo
Esto creará un nuevo módulo. Ingrese el siguiente código en el Módulo
===
Function OSis32BIT() As Boolean OSis32BIT = False If InStr(Application.OperatingSystem, "32-bit") Then OSis32BIT = True End If End Function
Function OSis64BIT() As Boolean OSis64BIT = False If InStr(Application.OperatingSystem, "64-bit") Then OSis64BIT = True End If End Function
Sub TestOSis32BIT() If OSis32BIT Then MsgBox "You use a 32bit operating system", , _ Application.OperatingSystem Else MsgBox "You don't use a 32bit operating system", , _ Application.OperatingSystem End If End Sub
===
A medida que ejecute la macro, aparecerá un cuadro de mensaje, consulte la instantánea a continuación:
Si está utilizando un sistema operativo de 64 bits, el cuadro de mensaje se actualizará «No utiliza un sistema operativo de 32 bits»
Para comprobar si el sistema es de 32 bits; podemos usar UDF en una celda vacía como:
-
= OSis32BIT (); esto devolverá TRUE si el sistema operativo es de 32 bits; de lo contrario, devolverá FALSE
Para comprobar si el sistema es de 64 bits; podemos usar UDF en una celda vacía como:
-
= OSis64BIT (); esto devolverá TRUE si el sistema operativo es de 64 bits, de lo contrario, devolverá FALSE
Conclusión: De esta forma usando código VBA, podemos identificar el sistema operativo que estamos usando.
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]