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.
Abbiamo creato la macro "GetComputerUserName" per trovare il computer e il nome utente. Possiamo eseguire la macro facendo clic sul pulsante "Invia".
La macro estrarrà il nome del computer nella cella C10 e il nome utente nella cella C11.
Spiegazione del codice
Funzione ambiente
La funzione Environ restituisce il valore stringa associato alla variabile di ambiente del sistema operativo.
Sintassi della funzione Environ
Ambiente({Nome variabile d'ambiente | numero})
Si prega di seguire sotto per il codice
Sub GetComputerUserName() Dim ComputerName, UserName As String 'Ottenimento nome computer ComputerName = Environ("nomecomputer") 'Ottenimento nome utente UserName = Environ("nomeutente") 'Assegnazione valore alla cella C10 e C11 Range("C10").Valore = ComputerName Range("C11").Value = UserName End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica