Aby zidentyfikować typ systemu operacyjnego, możemy użyć kodu makra. W tym artykule dowiemy się, jak określić typ używanego systemu operacyjnego za pomocą kodu VBA.
Pytanie: Chciałbym poznać system operacyjny mojego systemu za pomocą kodu VBA, niezależnie od tego, czy jest 32-bitowy, czy 64-bitowy.
Aby określić typ systemu operacyjnego, musimy wykonać poniższe kroki:
- Musimy uruchomić edytor VB
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Kliknij Wstaw, a następnie Moduł
- Spowoduje to utworzenie nowego modułu
- Wprowadź następujący kod w module
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 "Używasz 32-bitowego systemu operacyjnego", , _ Application.OperatingSystem Else MsgBox "Nie używasz 32-bitowego systemu operacyjnego", , _ Application.OperatingSystem End If End Sub
Po uruchomieniu makra pojawi się okno komunikatu, zapoznaj się z poniższą migawką:
Jeśli używasz 64-bitowego systemu operacyjnego, okno komunikatu zostanie zaktualizowane „Nie używasz 32-bitowego systemu operacyjnego”
Aby sprawdzić, czy system jest 32-bitowy; możemy użyć UDF w pustej komórce jako:
- =OSis32BIT(); to zwróci TRUE, jeśli system operacyjny jest 32-bitowy, w przeciwnym razie zwróci FALSE
Aby sprawdzić, czy system jest 64-bitowy; możemy użyć UDF w pustej komórce jako:
- =OSis64BIT(); to zwróci TRUE, jeśli system operacyjny jest 64-bitowy, w przeciwnym razie zwróci FALSE
Wniosek: W ten sposób za pomocą kodu VBA możemy zidentyfikować system operacyjny, którego używamy.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail
