Hoe kolom automatisch sorteren op waarde in Excel?
U hebt bijvoorbeeld een inkooptabel zoals hieronder afgebeeld. Nu wil je dat de kolom Prijs automatisch wordt gesorteerd als je nieuwe getallen/prijzen invoert in deze kolom, hoe zou je dit kunnen oplossen? Hier introduceer ik een VBA-macro om u te helpen een specifieke kolom automatisch op waarde te sorteren in Excel.
Kolom automatisch sorteren op waarde met VBA
Kolom automatisch sorteren op waarde met VBA
Deze VBA-macro sorteert alle gegevens in een specifieke kolom automatisch zodra u nieuwe gegevens invoert of de waarde in de kolom in Excel wijzigt.
1. Klik met de rechtermuisknop op de huidige bladnaam in het Werkbladtabbalken klik vervolgens op de Bekijk code vanuit het rechtsklikmenu.
2. Plak in het openingsvenster van Microsoft Visual Basic for Application de volgende VBA-macrocode in het openingsvenster.
VBA: kolom automatisch sorteren in Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Note:
1) In de bovenstaande vba-code, B: B betekent dat het automatisch kolom B zal sorteren, B1 is de eerste cel in kolom B, B2 is de tweede cel in kolom B en u kunt deze wijzigen op basis van uw behoeften.
2) Het fragment Koptekst:=xlJa in de 5e rij vertelt Excel dat het bereik dat u gaat sorteren een koptekst heeft, zodat de eerste rij van het bereik niet wordt meegenomen bij het sorteren. Als er geen koptekst is, verander deze dan in Koptekst:=xlNee; en veranderen Key1:=Bereik ("B2") op de 4e rij naar Key1:=Bereik ("B1").
3. Ga vervolgens terug naar het werkblad, wanneer u een nieuw nummer invoert in de kolom Prijs of bestaande prijzen wijzigt, wordt de kolom Prijs automatisch in oplopende volgorde gesorteerd.
Note: Wanneer u een nieuw nummer invoert in de kolom Prijs, moet u het nummer in de eerste lege cel onder de originele nummers invoeren. Als er lege cellen zijn tussen het nieuw ingevoerde nummer en originele nummers, evenals lege cellen tussen originele nummers, wordt deze kolom niet automatisch gesorteerd.
Demo: sorteer kolom automatisch op waarde met VBA in Excel
Sorteer eenvoudig op frequentie van voorvallen in Excel
Kutools voor Excel's Geavanceerd sorteren hulpprogramma ondersteunt het snel sorteren van gegevens op tekstlengte, achternaam, absolute waarde, frequentie, enz. in Excel.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!