Microsoft Excel'de VBA kullanarak işletim sistemi türünü belirleyin

Anonim

İşletim sisteminin türünü belirlemek için makro kodunu kullanabiliriz. Bu yazıda, VBA kodu kullanılarak kullanılan işletim sistemi türünün nasıl belirleneceğini öğreneceğiz.

Soru: Sistemimin işletim sistemini 32 bit veya 64 bit olup olmadığını VBA kodu aracılığıyla bilmek istiyorum.

İşletim sistemi türünü belirlemek için aşağıdaki adımları izlememiz gerekir:

  • VB editörünü başlatmamız gerekiyor
  • Geliştirici sekmesine tıklayın
  • Kod grubundan Visual Basic'i seçin

  • Ekle'ye ve ardından Modül'e tıklayın

  • Bu yeni modül oluşturacak
  • Modüle aşağıdaki kodu girin

 OSis32BIT() İşlevi As Boolean OSis32BIT = False If InStr(Application.OperatingSystem, "32-bit") O zaman OSis32BIT = End If True End Function 
 OSis64BIT() İşlevi As Boolean OSis64BIT = False If InStr(Application.OperatingSystem, "64-bit") O zaman OSis64BIT = True End If End Function 
 Sub TestOSis32BIT() Eğer OSis32BIT ise MsgBox "32bit işletim sistemi kullanıyorsunuz", , , _ Application.OperatingSystem Else MsgBox "32bit işletim sistemi kullanmıyorsunuz", , _ Application.OperatingSystem End If End Sub

Makroyu çalıştırırken bir mesaj kutusu alacaksınız, aşağıdaki anlık görüntüye bakın:

64 bit işletim sistemi kullanıyorsanız, mesaj kutusu "32 bit işletim sistemi kullanmıyorsunuz" şeklinde güncellenecektir.

Sistemin 32 bit olup olmadığını kontrol etmek için; UDF'yi boş bir hücrede şu şekilde kullanabiliriz:

  • =OSis32BIT(); bu, işletim sistemi 32 bit ise TRUE döndürür, aksi takdirde FALSE döndürür

Sistemin 64 bit olup olmadığını kontrol etmek için; UDF'yi boş bir hücrede şu şekilde kullanabiliriz:

  • =OSis64BIT(); bu, işletim sistemi 64 bit ise TRUE döndürür, aksi takdirde FALSE döndürür

Çözüm: Bu şekilde VBA kodunu kullanarak kullandığımız işletim sistemini tanımlayabiliriz.

Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.

Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın