Neste artigo, criaremos uma macro que retornará o computador e o nome do usuário para o usuário conectado.
Neste exemplo, queremos extrair o nome do computador na célula C10 e o nome do usuário na célula C11.
Criamos a macro “GetComputerUserName” para localizar o computador e o nome do usuário. Podemos executar a macro clicando no botão “Enviar”.
A macro extrairá o nome do computador na célula C10 e o nome do usuário na célula C11.
Explicação do código
Função Environ
A função Environ retorna o valor da string associado à variável de ambiente do sistema operacional.
Sintaxe da função Environ
Environ ({nome da variável de ambiente | número})
Siga abaixo para o código
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Obtendo o nome do computador ComputerName = Environ ("computername")' Obtendo o nome do usuário UserName = Environ ("username") 'Atribuindo valor à célula C10 e intervalo C11 ("C10"). = Intervalo do Nome do Computador ("C11"). Valor = Nome do Usuário End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail