Hoppa till huvudinnehåll

Hur infogar jag snabbt Windows användarnamn i cellen i Excel?

I Excel fungerar, ibland kan du behöva infoga Windows användarnamn i celler. Du kan infoga användarnamn en efter en manuellt, men här har jag några bättre sätt att spara tid.

Infoga användarnamn i cell med VBA

Infoga användarnamn eller annan arbetsbokinformation i cellen med Kutools för Excel bra idé3


Infoga användarnamn i cell med VBA

Här introducerar jag dig en VBA-kod för att snabbt infoga Windows-användarnamn till ett antal celler i Excel.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera och klistra sedan in under VBA-koden i modulfönstret.

VBA: Infoga användarnamn.

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

2. klick Körning knapp eller F5 nyckel för att köra koden, sedan infogas användarnamnet i varje cell i intervallet A1: D5. Se skärmdump:

doc infoga användarnamn 1

Du kan ändra intervallet A1: D5 i VBA-kod för att möta dina behov.

Men om det finns något innehåll i det angivna intervallet ersätter denna VBA-kod cellinnehållet med endast användarnamn.

I det här fallet kan du välja att använda Kutools för Excel.


Infoga användarnamn eller annan information i cellen med Kutools för Excel

Om du vill infoga Windows-användarnamn eller information om andra arbetsböcker, till exempel arbetsbokens namn, kalkylbladets namn, arbetsbokens sökväg och namn i en cell eller sidfot eller sidhuvud, kan du använda Kutools för ExcelÄr Infoga arbetsbokinformation.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

Efter gratis installation Kutools för Excel, gör så här:

Klicka Kutools Plus > Arbetsbok > Infoga arbetsbokinformation. Se skärmdump:
doc infoga användarnamn 9

doc infoga användarnamn 8
A: Välj den information du vill infoga.
B: Välj en plats för att infoga den infogade informationen.
C: Om du vill infoga sidhuvud eller sidfot kan du välja att placera
informationen vid certer av sidhuvud / sidfot, till vänster om sidhuvud /
sidfot eller till höger om sidhuvud / sidfot.

Infoga sökbokens sökväg och namn i en cell

doc infoga arbetsbokinformation 2

Infoga användarnamn i mittrubriken

doc infoga arbetsbokinformation 3

Infoga aktuellt datum och tid i höger sidfot

doc infoga arbetsbokinformation 4

Klicka här för att lära dig mer information om Kutools for Excel's Infoga arbetsbokinformation.

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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