Determine el tipo de sistema operativo usando VBA en Microsoft Excel

Anonim

Para identificar el tipo de sistema operativo, podemos usar código de macro. En este artículo, aprenderemos cómo determinar el tipo de sistema operativo que se utiliza mediante 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 siguientes pasos:

  • Necesitamos lanzar el editor VB
  • Haga clic en la pestaña Desarrollador
  • Desde el grupo de 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

 Función OSis32BIT () como booleano OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Entonces OSis32BIT = True End If End Function 
 Función OSis64BIT () como booleano OSis64BIT = False If InStr (Application.OperatingSystem, "64-bit") Entonces OSis64BIT = True End If End Function 
 Sub TestOSis32BIT () Si OSis32BIT Entonces MsgBox "Usas un sistema operativo de 32 bits", _ Application.OperatingSystem Else MsgBox "No usas un sistema operativo de 32 bits",, _ Application.OperatingSystem End If End Sub

A medida que ejecute la macro, obtendrá 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á VERDADERO si el sistema operativo es de 32 bits; de lo contrario, devolverá FALSO

Para comprobar si el sistema es de 64 bits; podemos usar UDF en una celda vacía como:

  • = OSis64BIT (); esto devolverá VERDADERO si el sistema operativo es de 64 bits; de lo contrario, devolverá FALSO

Conclusión: De esta forma usando el 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 al sitio de correo electrónico