Прескочи на основното съдържание

Как бързо да вмъкнете потребителско име на Windows в клетка в Excel?

Автор: Слънце Последна промяна: 2020-05-27

Когато Excel работи, понякога може да се наложи да вмъкнете потребителско име на Windows в клетките. Можете да вмъкнете потребителско име едно по едно ръчно, но тук имам някои по-добри начини, спестяващи вашето време.

Вмъкнете потребителско име в клетка с VBA

Вмъкнете потребителско име или друга информация за работна книга в клетка с Kutools за Excel добра идея3


Вмъкнете потребителско име в клетка с VBA

Тук ви представям VBA код за бързо вмъкване на потребителско име на Windows в диапазон от клетки в Excel.

1. Натиснете Alt + F11 ключове за активиране Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след това копирайте и поставете под VBA кода в прозореца на модула.

VBA: Въведете потребителско име.

Sub Usernameincell()
    Range("A1:D5").Value = Application.UserName
End Sub

2. кликване бягане или F5 за изпълнение на кода, след което потребителското име се вмъква във всяка клетка в диапазон A1: D5. Вижте екранна снимка:

doc въведете потребителско име 1

Можете да промените диапазона A1: D5 в кода на VBA, за да отговорите на вашите нужди.

Но ако има някакво съдържание в посочения диапазон, този VBA код ще замени съдържанието на клетката само с потребителско име.

В този случай можете да изберете да използвате Kutools за Excel.


Вмъкнете потребителско име или друга информация в клетка с Kutools за Excel

Ако искате да вмъкнете потребителско име на Windows или друга информация за работни книги, като например име на работна книга, име на работен лист, път на работна книга и име в клетка, долен или горен колонтитул, можете да използвате Kutools за ExcelЕ Вмъкване на информация за работна книга.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След безплатно инсталиране Kutools за Excel, моля, направете следното:

Кликнете Kutools плюс > Workbook > Вмъкване на информация за работна книга. Вижте екранна снимка:
doc въведете потребителско име 9

doc въведете потребителско име 8
A: Изберете информацията, която искате да вмъкнете.
B: Изберете място, където да поставите въведената информация.
C: За да вмъкнете горен или долен колонтитул, можете да изберете да поставите
информацията в certer на горния/долния колонтитул, вляво от горния колонтитул/
долен колонтитул или отдясно на горния/долния колонтитул.

Вмъкнете път и име на работна книга в клетка

doc вмъкване на информация за работна книга 2

Вмъкнете потребителско име в централната заглавка

doc вмъкване на информация за работна книга 3

Вмъкнете текущата дата и час в десния долен колонтитул

doc вмъкване на информация за работна книга 4

Щракнете тук, за да научите повече подробности относно информацията за вмъкване на работна книга на Kutools за Excel.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for an answer to what seems to be an obscure command! This worked wonderfully, however I'd like to run an IF statement that only adds the username if "Yes" is in another cell. Can you help?
This comment was minimized by the moderator on the site
You don't need all this crap, the formula for the username is
=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))

so =if(CELL="YES",MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\")),"whatever")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations