În acest articol, vom crea o macro care va returna computerul și numele de utilizator pentru utilizatorul conectat.
În acest exemplu, dorim să extragem numele computerului în celula C10 și numele de utilizator în celula C11.
Am creat macrocomanda „GetComputerUserName” pentru a găsi computerul și numele de utilizator. Putem rula macro-ul făcând clic pe butonul „Trimiteți”.
Macro va extrage numele computerului în celula C10 și numele de utilizator în celula C11.
Explicarea codului
Funcția Environ
Funcția Environ returnează valoarea șirului asociată cu variabila de mediu a sistemului de operare.
Sintaxa funcției Environ
Environ ({Numele variabilei de mediu | număr})
Vă rugăm să urmați codul de mai jos
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Obținerea numelui computerului ComputerName = Environ ("nume computer")' Obținerea numelui utilizator UserName = Environ ("nume utilizator") 'Atribuirea valorii pentru celula C10 și C11 Interval ("C10"). = Range ComputerName ("C11"). Valoare = UserName End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail