Määritä käyttöjärjestelmän tyyppi VBA: n avulla Microsoft Excelissä

Anonim

Voit tunnistaa käyttöjärjestelmän tyypin käyttämällä makrokoodia. Tässä artikkelissa opimme määrittämään käytettävän käyttöjärjestelmän tyypin VBA -koodin avulla.

Kysymys: Haluaisin tietää järjestelmän käyttöjärjestelmän VBA -koodin kautta, onko se 32- tai 64 -bittinen.

Jotta voimme määrittää käyttöjärjestelmän tyypin, meidän on noudatettava seuraavia vaiheita:

  • Meidän on käynnistettävä VB -editori
  • Napsauta Kehittäjä -välilehteä
  • Valitse koodiryhmästä Visual Basic

  • Napsauta Lisää ja sitten Moduuli

  • Tämä luo uuden moduulin
  • Syötä seuraava koodi moduuliin

 Funktio OSis32BIT () Boolen muodossa OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Sitten OSis32BIT = True End If End -toiminto 
 Funktio OSis64BIT () Boolen muodossa OSis64BIT = False If InStr (Application.OperatingSystem, "64-bit") Sitten OSis64BIT = True End If End -toiminto 
 Sub TestOSis32BIT () Jos OSis32BIT Sitten MsgBox "Käytät 32 -bittistä käyttöjärjestelmää",, _ Application.OperatingSystem Muu MsgBox "Et käytä 32 -bittistä käyttöjärjestelmää",, _ Application.OperatingSystem End If End Sub 

Kun suoritat makron, saat viestiruudun, katso alla oleva tilannevedos:

Jos käytät 64 -bittistä käyttöjärjestelmää, viestiruutu päivittyy "Et käytä 32 -bittistä käyttöjärjestelmää"

Tarkista, onko järjestelmä 32 -bittinen; voimme käyttää UDF: ää tyhjässä solussa seuraavasti:

  • = OSis32BIT (); tämä palauttaa TOSI, jos käyttöjärjestelmä on 32 -bittinen, muuten palauttaa EPÄTOSI

Tarkista, onko järjestelmä 64 -bittinen; voimme käyttää UDF: ää tyhjässä solussa seuraavasti:

  • = OSis64BIT (); tämä palauttaa TOSI, jos käyttöjärjestelmä on 64 -bittinen, muuten palauttaa EPÄTOSI

Johtopäätös: Tällä tavalla VBA -koodin avulla voimme tunnistaa käyttämämme käyttöjärjestelmän.

Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.

Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse