Determine o tipo de sistema operacional usando VBA no Microsoft Excel

Anonim

Para identificar o tipo de sistema operacional, podemos usar código de macro. Neste artigo, aprenderemos como determinar o tipo de sistema operacional que está sendo usado usando o código VBA.

Pergunta: Gostaria de saber o SO do meu sistema através do código VBA se é de 32 bits ou 64 bits.

Para determinar o tipo de sistema operacional, precisamos seguir as etapas abaixo:

  • Precisamos lançar o editor VB
  • Clique na guia Desenvolvedor
  • No grupo Código, selecione Visual Basic

  • Clique em Inserir e depois em Módulo

  • Isso criará um novo módulo
  • Insira o seguinte código no Módulo

 Função OSis32BIT () As Boolean OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Then OSis32BIT = True End If End Function 
 Função OSis64BIT () As Boolean OSis64BIT = False If InStr (Application.OperatingSystem, "64-bit") Then OSis64BIT = True End If End Function 
 Sub TestOSis32BIT () If OSis32BIT Then MsgBox "Você usa um sistema operacional de 32 bits",, _ Application.OperatingSystem Else MsgBox "Você não usa um sistema operacional de 32 bits",, _ Application.OperatingSystem End If End Sub

Ao executar a macro, você receberá uma caixa de mensagem, consulte o instantâneo abaixo:

Se você estiver usando um sistema operacional de 64 bits, a caixa de mensagem atualizará "Você não usa um sistema operacional de 32 bits"

Para verificar se o sistema é de 32 bits; podemos usar UDF em uma célula vazia como:

  • = OSis32BIT (); isso retornará TRUE se o sistema operacional for de 32 bits, caso contrário, retornará FALSE

Para verificar se o sistema é de 64 bits; podemos usar UDF em uma célula vazia como:

  • = OSis64BIT (); isso retornará TRUE se o sistema operacional for de 64 bits, caso contrário, retornará FALSE

Conclusão: Desta forma, usando o código VBA, podemos identificar o sistema operacional que estamos usando.

Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.

Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail