Určte typ operačného systému pomocou VBA v programe Microsoft Excel

Anonim

Na identifikáciu typu OS môžeme použiť kód makra. V tomto článku sa naučíme, ako určiť typ operačného systému, ktorý sa používa, pomocou kódu VBA.

Otázka: Chcel by som poznať operačný systém svojho systému prostredníctvom kódu VBA, či je 32 -bitový alebo 64 -bitový.

Na určenie typu operačného systému musíme vykonať nasledujúce kroky:

  • Musíme spustiť editor VB
  • Kliknite na kartu Vývojár
  • Zo skupiny kódov vyberte Visual Basic

  • Kliknite na Vložiť a potom na Modul

  • Tým sa vytvorí nový modul
  • Do modulu zadajte nasledujúci kód

 Funkcia OSis32BIT () As Boolean OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Then OSis32BIT = True End If End Function 
 Funkcia OSis64BIT () As Boolean OSis64BIT = False If InStr (Application.OperatingSystem, „64-bit“) Then OSis64BIT = True End If End Function 
 Sub TestOSis32BIT () Ak OSis32BIT, potom MsgBox „Používate 32 -bitový operačný systém“,, _ Application.OperatingSystem Else MsgBox „Nepoužívate 32 -bitový operačný systém“,, _ Application.OperatingSystem Koniec Ak Koniec Sub 

Keď spustíte makro, zobrazí sa okno so správou, pozrite sa na nasledujúci obrázok:

Ak používate 64 -bitový operačný systém, v okne správy sa aktualizuje „Nepoužívate 32 -bitový operačný systém“

Ak chcete skontrolovať, či je systém 32 bitov; UDF môžeme použiť v prázdnej bunke ako:

  • = OSis32BIT (); toto vráti TRUE, ak je operačný systém 32 bitový, inak vráti FALSE

Ak chcete skontrolovať, či je systém 64 -bitový; UDF môžeme použiť v prázdnej bunke ako:

  • = OSis64BIT (); toto vráti TRUE, ak je operačný systém 64 bitový, inak vráti FALSE

Záver: Týmto spôsobom pomocou kódu VBA môžeme identifikovať operačný systém, ktorý používame.

Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.

Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku