Для определения типа ОС мы можем использовать код макроса. В этой статье мы узнаем, как определить тип используемой операционной системы с помощью кода VBA .

_Вопрос: я хотел бы узнать ОС моей системы с помощью кода VBA, является ли она 32-битной или 64-битной. _

Чтобы определить тип операционной системы, нам необходимо выполнить следующие шаги:

Нам нужно запустить редактор VB. Перейдите на вкладку «Разработчик» * В группе «Код» выберите Visual Basic

image 1

  • Нажмите «Вставить», затем «Модуль»

image 2

Это создаст новый модуль. Введите следующий код в модуль

===

Function OSis32BIT() As Boolean

OSis32BIT = False

If InStr(Application.OperatingSystem, "32-bit") Then

OSis32BIT = True

End If

End Function
Function OSis64BIT() As Boolean

OSis64BIT = False

If InStr(Application.OperatingSystem, "64-bit") Then

OSis64BIT = True

End If

End Function
Sub TestOSis32BIT()

If OSis32BIT Then

MsgBox "You use a 32bit operating system", , _

Application.OperatingSystem

Else

MsgBox "You don't use a 32bit operating system", , _

Application.OperatingSystem

End If

End Sub

image 3

===

Когда вы запустите макрос, вы увидите окно сообщения, см. Снимок ниже:

image 4

Если вы используете 64-битную операционную систему, то в окне сообщения появится сообщение «Вы не используете 32-битную операционную систему» ​​

Проверить, является ли система 32-битной; мы можем использовать UDF в пустой ячейке как:

  • = OSis32BIT (); это вернет ИСТИНА, если операционная система 32-битная, иначе вернет ЛОЖЬ

image 5

Проверить, является ли система 64-битной; мы можем использовать UDF в пустой ячейке как:

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

image 6

Вывод: Таким образом, используя код VBA, мы можем определить используемую нами операционную систему.

image 48

Если вам понравились наши блоги, поделитесь ими с друзьями на Facebook. А также вы можете подписаться на нас в Twitter и Facebook .

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]