Hoe automatisch naar de volgende cel te gaan na invoer in Excel?

In dit artikel introduceer ik trucs om de cursor automatisch naar de volgende cel te verplaatsen om een reeksnummer in te voeren zonder op de Enter-toets te drukken in Excel.

Automatisch naar de volgende rechtercel gaan na het invoeren van 4 cijfers zonder op Enter te drukken met VBA

Automatisch een 4-cijferige reeks invullen met Kutools voor Excel

Automatisch naar de volgende rechtercel gaan na het invoeren van 4 cijfers zonder op Enter te drukken met VBA

Hier is een VBA-code die u kan helpen automatisch naar de volgende rechtercel te gaan nadat u een 4-cijferig nummer hebt ingevoerd, zonder op de Enter-toets te drukken.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak onderstaande VBA-code in het Module-script. Zie screenshot:

VBA: Automatisch naar de volgende rechtercel gaan na het invoeren van een 4-cijferig 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

3. Druk op de F5 toets om de code uit te voeren, en een Kutools voor Excel dialoogvenster zal verschijnen, waarin u reekscijfers kunt invoeren zonder scheidingstekens. Zie screenshot:

4. Klik op OK. Nu zijn elke 4 cijfers in één cel geplaatst van links naar rechts.

Tip: Als u 5-cijferige, 6-cijferige… getallen in een cel wilt invoeren, kunt u 4 wijzigen in 5, 6 of andere in de code.

Automatisch een 4-cijferige reeks invullen met Kutools voor Excel

Met Kutools voor Excel – een handig hulpmiddel, kunt u automatisch reeksnummers invullen in een bereik zonder op de Enter-toets te drukken met behulp van de Reeksnummer invoegen-functie.

Na gratis installatie van Kutools voor Excel, doe als volgt:

1. Selecteer een kolom of een rij die u wilt vullen met een reeks, en klik op Kutools > Invoegen > Reeksnummer invoegen. Zie screenshot:

2. In het Reeksnummer invoegen dialoogvenster, klik op Nieuw om het dialoogvenster uit te vouwen. Zie screenshot:

3. Specificeer vervolgens de reeks zoals u nodig hebt. Zie screenshot:

4. Klik op Toevoegen > Bereik vullen, dan wordt het geselecteerde bereik automatisch gevuld met de reeksnummers.

Tip: Met Reeksnummer invoegen hulpprogramma, kunt u ook herhaalde reeksen invoegen. Controleer Eindnummer optie in het dialoogvenster, voer het eindnummer dat u wilt in het rechtertekstvak in, en vervolgens worden de reeksnummers herhaaldelijk elke 10 nummers ingevuld. Zie screenshot: