DONUT PROJECT 2024 - VBA - Retorna a Versão do Sistema Operacional em que o Excel está sendo Executado

Retorna a versão do sistema operacional em que o Excel está sendo executado.

Exemplo de uso: =VERSAO.DO.SO()

 Série Donut Project 

  

Como mencionado anteriormente, não existe uma função nativa "VERSAO.DO.SO" no Excel. No entanto, você pode usar VBA para acessar informações sobre o sistema operacional. Vou fornecer três exemplos de como você pode usar o VBA para obter e usar informações sobre a versão do sistema operacional:

 

Exemplo 1: Exibir a Versão do Sistema Operacional em uma Caixa de Mensagem

Este exemplo usa uma função VBA para obter a versão do sistema operacional e exibi-la em uma caixa de mensagem.

Sub ExibirVersaoSO()

    Dim versaoSO As String

    versaoSO = GetWindowsVersion()

    

    MsgBox "A versão do sistema operacional é: " & versaoSO, vbInformation, "Versão do Sistema Operacional"

End Sub

Function GetWindowsVersion() As String

    GetWindowsVersion = Environ("OS")

End Function

 Série VBA Outlook: 

  

  

  

Exemplo 2: Inserir a Versão do Sistema Operacional em uma Célula Específica

Este exemplo usa uma função VBA para obter a versão do sistema operacional e insere-a em uma célula específica na planilha ativa.

Sub InserirVersaoSO()

    Dim versaoSO As String

    versaoSO = GetWindowsVersion()

    

    ThisWorkbook.ActiveSheet.Range("A1").Value = "Versão do Sistema Operacional: " & versaoSO

End Sub

Function GetWindowsVersion() As String

    GetWindowsVersion = Environ("OS")

End Function

Exemplo 3: Armazenar a Versão do Sistema Operacional em uma Variável

Este exemplo usa uma função VBA para obter a versão do sistema operacional e armazená-la em uma variável. Em seguida, a variável é usada para fazer outras operações, como preencher uma célula ou realizar cálculos adicionais.

Sub UsarVersaoSO()

    Dim versaoSO As String

    versaoSO = GetWindowsVersion()

    

    ' Faça algo com a informação da versão do SO, como preencher uma célula

    ThisWorkbook.ActiveSheet.Range("A1").Value = "Versão do Sistema Operacional: " & versaoSO

End Sub

Function GetWindowsVersion() As String

    GetWindowsVersion = Environ("OS")

End Function

Sub UsarVersaoSO()

    Dim versaoSO As String

    versaoSO = GetWindowsVersion()

    

    ' Faça algo com a informação da versão do SO, como preencher uma célula

    ThisWorkbook.ActiveSheet.Range("A1").Value = "Versão do Sistema Operacional: " & versaoSO

End Sub

Function GetWindowsVersion() As String

    GetWindowsVersion = Environ("OS")

End Function

Esse exemplo ilustra diferentes maneiras de usar o VBA para obter informações sobre a versão do sistema operacional e usá-las no Excel. Basta copiar e colar o código VBA em um módulo do VBA, por exemplo no Excel, e executar as macros conforme necessário.

 Clique nas capas abaixo e compre também: