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 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:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen