W tym artykule stworzymy makro, które zwróci nazwę komputera i użytkownika dla zalogowanego użytkownika.
W tym przykładzie chcemy wyodrębnić nazwę komputera w komórce C10 i nazwę użytkownika w komórce C11.
Stworzyliśmy makro „GetComputerUserName”, aby znaleźć komputer i nazwę użytkownika. Makro możemy uruchomić klikając przycisk „Wyślij”.
Makro wyodrębni nazwę komputera w komórce C10 i nazwę użytkownika w komórce C11.
Wyjaśnienie kodu
Funkcja środowiska
Funkcja Environ zwraca wartość ciągu znaków skojarzoną ze zmienną środowiskową systemu operacyjnego.
Składnia funkcji Environ
Środowisko({Nazwa zmiennej środowiskowej | numer})
Proszę postępować zgodnie z poniższym kodem!
Sub GetComputerUserName() Dim ComputerName, UserName As String 'Pobieranie nazwy komputera ComputerName = Environ("computername") 'Pobieranie nazwy użytkownika UserName = Environ("username") 'Przypisywanie wartości do komórek C10 i C11 Range("C10").Value = ComputerName Range("C11").Value = UserName End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail