Hoppa till huvudinnehåll

Hur flyttar jag till nästa cell efter inmatning automatiskt i Excel?

Författare: Sun Senast ändrad: 2024-11-04

I den här artikeln introducerar jag knep för att automatiskt flytta markören till nästa cell för att mata in sekvensnummer utan att trycka på Enter-tangenten i Excel.

Automatisk flytt till nästa höger cell efter fyrsiffrig inmatning utan tryck på Enter-tangenten med VBA

Fyll automatiskt fyrsiffriga serier med Kutools för Excel bra idé3


pil blå höger bubbla Automatisk flytt till nästa höger cell efter fyrsiffrig inmatning utan tryck på Enter-tangenten med VBA

Här är VBA-kod som kan hjälpa dig att automatiskt flytta till nästa högra cell efter att ha angett ett 4-siffrigt nummer, utan att trycka på Enter-tangenten.

1. Tryck Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna och klistra in under VBA-koden i Modulerna manus. Se skärmdump:

VBA: Flytta automatiskt till nästa högercell efter inmatning av fyrsiffrigt nummer.

Sub FourCharEntry1()
'UpdatebyExtendoffice20160614
    Dim xStr As String
    Dim I As Integer
    Dim K As Integer
    xStr = Application.InputBox("Enter string", "Kutools for Excel", , , , , , 2)
    K = 0
    Application.ScreenUpdating = False
    For I = 1 To Len(xStr) Step 4
        ActiveCell.Offset(0, K) = "'" & Mid(xStr, I, 4)
        K = K + 1
    Next
    Application.ScreenUpdating = True
End Sub

En skärmdump som visar VBA-modulen med kod för att automatiskt flytta till nästa cell efter inmatning

3. tryck på F5 nyckel för att köra koden och a Kutools för Excel dialogrutan dyker upp, du kan ange sekvensnummer i den utan några avgränsare. Se skärmdump:
En skärmdump av Kutools för Excel-dialogruta för att ange sekvensnummer utan separator

4. klick OK. Nu har var fjärde siffror placerats i en cell från vänster till höger.
En skärmdump som visar 4-siffriga nummer som automatiskt placeras i celler från vänster till höger

Tips: Om du vill ange 5-siffriga, 6-siffriga ... i cellen kan du ändra 4 till 5, 6 eller andra i koden.


pil blå höger bubbla Fyll automatiskt fyrsiffriga serier med Kutools för Excel

Med Kutools för Excel - ett praktiskt verktyg, du kan automatiskt fylla serienumren till ett intervall utan att trycka på Enter-tangenten med dess Infoga sekvensnummer verktyg.

Kutools för Excel, utrustad med AI 🤖, erbjuder över 300 praktiska funktioner för att förenkla dina uppgifter.

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

1. Välj en kolumn eller en rad som du vill fylla i serien och klicka på Kutools > Insert > Infoga sekvensnummer. Se skärmdump:
En skärmbild som visar alternativet Infoga sekvensnummer i Kutools-fliken på menyfliksområdet

2. I Infoga sekvensnummer dialog, klicka Nya för att utöka dialogen. Se skärmdump:
En skärmdump av dialogrutan Infoga sekvensnummer

3. Ange sedan serien efter behov. Se skärmdump:
En skärmbild som visar seriespecifikationsalternativ i dialogrutan Infoga sekvensnummer

4. klick Lägg till > Fyll i intervall, då kommer det valda intervallet att automatiskt fyllas i med sekvensnumren.
En skärmdump som visar ett intervall fyllt med sekvensnummer med hjälp av Kutools

Tips: Med Infoga sekvensnummer verktyg kan du också infoga upprepade serier. Kolla upp Slutnummer alternativet i dialogrutan, ange det slutnummer du vill ha i rätt textruta, och sedan fylls serienumren upprepade gånger var tionde nummer. Se skärmdump:
En skärmdump som visar upprepade serienummer med alternativet Slutnummer i Kutools

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
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...


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!