Как показать текущее имя пользователя в ячейке?

В большинстве онлайн-ресурсов, которые я могу найти, я обычно показываю, как получить эту информацию в VBA. Есть ли какой-либо прямой способ получить эту информацию в ячейке?

Например, просто, как =ENVIRON('User') (который не работает)

Ответ 1

В соответствии с инструкциями по приведенной ниже ссылке выполните следующие действия.

В VBA вставьте новый модуль и вставьте этот код:

Public Function UserName()
    UserName = Environ$("UserName")
End Function

Вызвать функцию, используя формулу:

=Username()

Основываясь на инструкциях по адресу:

https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

Ответ 2

если вы не хотите создавать UDF в VBA или не можете, это может быть альтернативой.

=Cell("Filename",A1) это даст вам полное имя файла, и из этого вы можете получить имя пользователя с чем-то вроде этого:

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

Эта формула работает только из книги, сохраненной ранее.

Вы должны начать с четвертой позиции из-за первой косой черты с диска.

Ответ 3

Пример: для просмотра имени пользователя Windows на ячейке C5 вы можете использовать этот script:

Range("C5").Value = ": " & Environ("USERNAME").

Ответ 4

Самый простой способ - создать макрос VBA, который обертывает эту функцию, например:

Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

Затем вызовите его из ячейки:

=UserNameWindows()

Подробнее см. в этой статье и другими способами.

Ответ 5

Отображает имя текущего пользователя:

Function Username() As String
    Username = Application.Username
End Function

Свойство Application.Username содержит имя, введенное с установкой MS Office.

Введите эту формулу в ячейку:

=Username()

Ответ 6

Без макроса VBA вы можете использовать эти советы, чтобы получить имя пользователя из пути:

=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))