Determinați tipul de sistem de operare utilizând VBA în Microsoft Excel

Anonim

Pentru a identifica tipul de sistem de operare, putem folosi codul macro. În acest articol vom învăța cum să determinăm tipul de sistem de operare utilizat folosind codul VBA.

Întrebare: Aș dori să știu sistemul de operare al sistemului meu prin cod VBA dacă este pe 32 de biți sau pe 64 de biți.

Pentru a determina tipul de sistem de operare, trebuie să urmăm pașii de mai jos:

  • Trebuie să lansăm editorul VB
  • Faceți clic pe fila Dezvoltator
  • Din grupul de coduri, selectați Visual Basic

  • Faceți clic pe Insert apoi Module

  • Aceasta va crea un nou modul
  • Introduceți următorul cod în modul

 Funcție OSis32BIT () Ca boolean OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Apoi OSis32BIT = True End If End Function 
 Funcția OSis64BIT () Ca boolean OSis64BIT = False If InStr (Application.OperatingSystem, "64-bit") Apoi OSis64BIT = True End If End Function 
 Sub TestOSis32BIT () Dacă OSis32BIT, atunci MsgBox „Utilizați un sistem de operare pe 32 de biți”,, _ Application.OperatingSystem Altfel MsgBox „Nu utilizați un sistem de operare pe 32 de biți”,, _ Application.OperatingSystem End If End Sub 

Pe măsură ce rulați macrocomanda, veți primi o casetă de mesaj, consultați instantaneul de mai jos:

Dacă utilizați un sistem de operare pe 64 de biți, atunci se va actualiza caseta de mesaj „Nu utilizați un sistem de operare pe 32 de biți”

Pentru a verifica dacă sistemul are 32 de biți; putem folosi UDF într-o celulă goală ca:

  • = OSis32BIT (); acest lucru va reveni ADEVĂRAT dacă sistemul de operare este pe 32 de biți, altfel va reveni FALS

Pentru a verifica dacă sistemul are 64 de biți; putem folosi UDF într-o celulă goală ca:

  • = OSis64BIT (); acest lucru va reveni ADEVĂRAT dacă sistemul de operare este pe 64 de biți, altfel va reveni FALS

Concluzie: În acest fel, folosind codul VBA, putem identifica sistemul de operare pe care îl folosim.

Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.

Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail