Определете типа операционна система, използвайки VBA в Microsoft Excel

Anonim

За да идентифицираме типа ОС, можем да използваме макрокод. В тази статия ще научим как да определим типа операционна система, която се използва с помощта на VBA код.

Въпрос: Бих искал да знам операционната система на моята система чрез VBA код дали е 32 битова или 64 битова.

За да определим типа операционна система, трябва да следваме следните стъпки:

  • Трябва да стартираме VB редактор
  • Кликнете върху раздела Разработчик
  • От групата кодове изберете Visual Basic

  • Кликнете върху Вмъкване, след това Модул

  • Това ще създаде нов модул
  • Въведете следния код в модула

 Функция OSis32BIT () Като булева OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Тогава OSis32BIT = True End If End функция 
 Функция OSis64BIT () Като булева OSis64BIT = False If InStr (Application.OperatingSystem, "64-bit") Тогава OSis64BIT = True End If End функция 
 Sub TestOSis32BIT () Ако OSis32BIT Тогава MsgBox "Използвате 32 -битова операционна система",, _ Application.OperatingSystem Друго MsgBox "Не използвате 32 -битова операционна система",, _ Application.OperatingSystem Край Ако End Sub

Докато стартирате макроса, ще получите поле за съобщение, вижте снимката по -долу:

Ако използвате 64 -битова операционна система, полето за съобщение ще се актуализира „Не използвате 32 -битова операционна система“

За да проверите дали системата е 32 -битова; можем да използваме UDF в празна клетка като:

  • = OSis32BIT (); това ще върне TRUE, ако операционната система е 32 -битова, в противен случай връща FALSE

За да проверите дали системата е 64 битова; можем да използваме UDF в празна клетка като:

  • = OSis64BIT (); това ще върне ИСТИНА, ако операционната система е 64 -битова, в противен случай ще върне ЛАЖНО

Заключение: По този начин, използвайки VBA код, можем да идентифицираме операционната система, която използваме.

Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.

Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта