Função Ambiente VBA do Excel
O VBA Environ, onde Environ significa Environment, é usado para obter qualquer informação existente no sistema operacional. A função Excel VBA Environ retorna o valor como caminho, local, nome, extensão disponível no sistema. Além deste ambiente (o sistema operacional) também mantém as informações sobre nome do usuário, autorização, nome da pasta etc.
O ambiente VBA considera apenas expressão como uma entrada. Onde essa expressão pode ser qualquer coisa. Abaixo está a sintaxe do Environ.
Como usar a função Environ no Excel VBA?
Abaixo estão os diferentes exemplos para usar a função Environ no Excel VBA.
Você pode fazer o download deste modelo do VBA Environ Excel aqui - Modelo do VBA Environ ExcelAmbiente VBA - Exemplo # 1
Existem diferentes maneiras de obter informações do sistema operacional através do VBA Environ. Um deles veremos neste exemplo. Abaixo está a lista de possíveis usuários autorizados do meu sistema que podem ser VERDADEIRO ou FALSO. Nós mencionamos esses nomes na Planilha2.
Siga as etapas abaixo para usar a função Environ no VBA:
Etapa 1: Agora, com a ajuda do VBA Environ, descobriremos qual deles é o nome de usuário autorizado correto do sistema operacional atual. Planilha1 é o local onde encontraremos o nome de usuário correto do sistema na célula C3.
Etapa 2: sob o cabeçalho " Autorizado? ”Veremos se o nome de usuário está autorizado ou não com a função If e CountIf, como mostrado abaixo. Se o nome de usuário for válido e autorizado, obteremos SIM, se válido, mas não autorizado, obteremos Não. Para nome de usuário não autorizado e inválido, ainda obteremos Não.
Etapa 3: Agora, na planilha do Excel, crie um botão de comando disponível na guia Desenvolvedor, no controle Active X do menu Inserir, como mostrado abaixo.
Etapa 4: Agora crie um botão de comando em qualquer lugar da planilha. Também podemos escolher qualquer forma sobre o botão de comando.
Etapa 5: clique com o botão direito do mouse no botão criado e vá para a opção Propriedades .
Etapa 6: com isso, podemos alterar o nome padrão para qualquer coisa. Aqui escolhemos o Run Environ, como mostrado abaixo.
Etapa 7: Agora clique com o botão direito do mouse no mesmo botão e selecione Exibir código para ir na janela do VBA.
Etapa 7: Nesse caso, obteremos o subprocedimento pré-construído do botão de comando.
Código:
Private Sub CommandButton2_Click () End Sub
Etapa 8: selecione a planilha onde queremos aplicar a função Environ.
Código:
Sub privado CommandButton2_Click () folhas ("Sheet1") End Sub
Etapa 9: Em seguida, selecione as células do intervalo em que queremos ver a saída.
Código:
Submarino privado CommandButton2_Click () folhas ("Sheet1"). Range ("C3") = End Sub
Etapa 10: Agora use a função Environ com o campo que queremos obter. Aqui queremos ver USERNAME.
Código:
Submarino privado CommandButton2_Click () Planilhas ("Sheet1"). Range ("C3") = Ambiente ("USERNAME") End Sub
Etapa 11: Agora abra um loop IF-ELSE em que escreva a condição se a célula do intervalo E3 for SIM e me forneça a mensagem como Usuário autorizado.
Código:
Sub CommandButton2_Click () privado ("Sheet1"). Range ("C3") = Ambiente ("USERNAME") Se o "Sheer (" Sheet1 "). Range (" E3 ") =" Yes "Então MsgBox" Usuário autorizado! " End Sub
Etapa 12: Em Outro, me dê a mensagem como Usuário não autorizado, como mostrado abaixo.
Código:
Sub CommandButton2_Click () privado ("Sheet1"). Range ("C3") = Ambiente ("USERNAME") Se o "Sheer (" Sheet1 "). Range (" E3 ") =" Yes "Então MsgBox" Usuário autorizado! " Caso contrário, MsgBox "Usuário não autorizado" End If End Sub
Etapa 13: Agora compilaremos nosso código passo a passo pressionando a tecla de função F8 para ver se há algum erro ou não. Se tudo estiver bom, saia da janela do VBA e desmarque o modo Design na guia Desenvolvedor, como mostrado abaixo.
Etapa 14: Agora, executaremos nossa macro clicando no botão de comando chamado "Executar ambiente". Veremos, em C3, o nome de usuário autorizado é impresso como Game2 e, em seguida, o mesmo é confirmado duas vezes. Uma vez na caixa de mensagem e outra na célula E3.
Isso significa que o nome de usuário mencionado na Planilha2 como Jogo2 é válido e autorizado.
Ambiente VBA - Exemplo # 2
Existe outra maneira de obter as informações completas sobre o sistema operacional que possuímos. Isso funciona da mesma maneira que vimos no exemplo-1. Para isso, siga as etapas abaixo:
Etapa 1: Abra um módulo na guia do menu Inserir.
Etapa 2: Agora, em Opção explícita, definiremos as funções que queremos ver.
Código:
Opção Função explícita CompName () End Function
Etapa 3: suponha que, se você deseja ver o Nome do Computador, use qualquer palavra que defina Computador. Aqui escolhemos CompName e usamos a função Environ com " Computer Name ".
Código:
Opção Função explícita CompName () CompName = Environ ("ComputerName") End Function
Etapa 4: Vamos abrir outra função pela qual veremos o caminho do arquivo temporário, como mostrado abaixo.
Código:
Opção Função explícita CompName () CompName = Ambiente ("ComputerName") Função End Function Temp () End Function
Etapa 5: Agora, novamente, use qualquer palavra que defina o caminho do arquivo Temp, como TempDir e insira a função Environ com TEMP .
Código:
Opção Função explícita CompName () CompName = Environ ("ComputerName") Função final Função Temp () TempDir = Environ ("Temp") Função final
Etapa 6: Depois disso, abra o subprocedimento no qual usaremos as duas funções definidas acima para ver seus detalhes.
Código:
Opção Função explícita CompName () CompName = Environ ("ComputerName") Função End Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub
Etapa 7: defina uma variável como Long na qual veremos os detalhes.
Código:
Opção Função explícita CompName () CompName = Ambiente ("ComputerName") Função End Função Temp () TempDir = Ambiente ("Temp") End Function Sub Enviro () Dim A As Long End Sub
Etapa 8: abra um loop For-Next e especifique o tamanho da variável A por quanto tempo será o limite de caracteres. Aqui, definimos como 50.
Código:
Opção Função explícita CompName () CompName = Environ ("ComputerName") Função End Function Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Dim A Quanto tempo A = 1 a 50 End Sub
Etapa 9: Agora use a opção Debug Print para a variável A e com a função Environ, como mostrado abaixo.
Código:
Opção Função explícita CompName () CompName = Environ ("ComputerName") Função final Função Temp () TempDir = Ambiente ("Temp") Função final Sub Enviro () Dim A A Por muito tempo A = 1 a 50 Debug.Print Environ (A ) Próximo final Sub
Etapa 10: Compile cada etapa do código e abra uma janela imediata na guia do menu Exibir.
Etapa 11: Agora execute o código clicando no botão Reproduzir, localizado abaixo da barra de menus.
Etapa 12: Veremos, na janela imediata, detalhes completos do sistema operacional relacionados às funções que declaramos serem buscadas.
Prós da função do ambiente VBA do Excel
- Parece complexo, mas é fácil de implementar.
- Ele fornece detalhes completos do computador e do sistema operacional.
- Podemos listar todos os detalhes específicos, bem como nossos requisitos.
- Também podemos ver quem é o usuário autorizado a usar e editar o sistema.
Coisas para lembrar
- O ambiente do VBA não se limita ao processo mostrado nos exemplos acima. Podemos obter muitos outros detalhes do sistema operacional, como qualquer caminho, local, pasta ou arquivo, até qualquer tamanho de arquivo, com a ajuda do VBA Environ.
- Se algum valor que inserimos não for uma tabela de cadeia de ambiente, obteremos uma cadeia de comprimento zero.
- Quando terminarmos de codificar, salve o arquivo no formato macro enable excel para evitar a perda do código.
Artigos recomendados
Este é um guia para o VBA Environ. Aqui discutimos como usar a função Environ no Excel VBA, juntamente com exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -
- Instruções IF do VBA | Modelos do Excel
- Como usar a função de classificação Excel VBA?
- VBA While Loop (exemplos com modelo do Excel)
- Contador VBA (exemplos)