Retorna a versão do sistema operacional em que o Excel está sendo executado.
Série DONUT PROJECT 2024
Exemplo de uso: =VERSAO.DO.SO()
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
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
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário