В тази статия ще създадем макрос, който ще върне името на компютъра и потребителя за влезлия потребител.
В този пример искаме да извлечем име на компютър в клетка C10 и потребителско име в клетка C11.
Създадохме макрос „GetComputerUserName“, за да намерим компютъра и потребителското име. Можем да стартираме макроса, като кликнете върху бутона „Изпращане“.
Макросът ще извлече името на компютъра в клетка C10 и потребителското име в клетка C11.
Обяснение на кода
Функция на околната среда
Функцията Environ връща низовата стойност, свързана с променливата на околната среда на операционната система.
Синтаксис на функцията Environ
Environ ({Име на променливата на околната среда | номер})
Моля, следвайте кода по -долу
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Получаване на име на компютър ComputerName = Environ ("име на компютър") "Получаване на потребителско име UserName = Environ (" потребителско име ")" Присвояване на стойност на диапазон C10 и C11 ("C10"). Стойност = Обхват на имена на компютър ("C11"). Стойност = Крайно подпод
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта