In questo articolo, creeremo una macro che restituirà computer e nome utente per l’utente connesso.

In questo esempio, vogliamo estrarre il nome del computer nella cella C10 e il nome utente nella cella C11.

ArrowMain

Abbiamo creato la macro “GetComputerUserName” per trovare il computer e il nome utente. Possiamo eseguire la macro facendo clic sul pulsante “Invia”.

ArrowOutput

La macro estrarrà il nome del computer nella cella C10 e il nome utente nella cella C11.

Spiegazione del codice

Funzione Environ

La funzione Environ restituisce il valore stringa associato alla variabile di ambiente del sistema operativo.

Sintassi della funzione Environ

Environ (\ {Nome variabile d’ambiente | numero})

Segui sotto per il codice

Sub GetComputerUserName()

Dim ComputerName, UserName As String

'Getting computer name

ComputerName = Environ("computername")

'Getting user name

UserName = Environ("username")

'Assigning value to cell C10 and C11

Range("C10").Value = ComputerName

Range("C11").Value = UserName

End Sub

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]