Hoe bladen sorteren op celwaarde in Excel?
Als we een Excel-bestand gebruiken, sorteren we de werkbladen altijd op alfabetische volgorde, cijfers of tabkleuren, maar heb je ooit geprobeerd de bladtabs te sorteren op een specifieke celwaarde?
Stel dat u een werkmap met tientallen werkbladen heeft, dan heeft cel A1 in elk werkblad een specifieke waarde, en nu moet u alle werkbladen in deze werkmap oplopend sorteren op basis van de waarde van cel A1 in elk werkblad. Met dit artikel krijgt u de oplossing.
Sorteer alle werkbladen op basis van een celwaarde met VBA-code
Sorteer alle werkbladen op basis van een celwaarde met VBA-code
Om alle werkbladen te sorteren op basis van een celwaarde in Excel, is er geen directe manier voor ons, maar de volgende VBA-code kan je een plezier doen.
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: sorteer alle bladen op basis van een celwaarde
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Nadat u de code hebt geplakt, drukt u op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren een cel te selecteren waarop u de bladen wilt sorteren, zie screenshot:
4. En nu kunt u zien dat alle werkbladen oplopend zijn gesorteerd op basis van de tekstwaarde van cel A1 in elk werkblad.
Opmerkingen:
1. Als de geselecteerde cellen zowel getallen als tekstreeksen bevatten, worden de bladen met getallen gesorteerd vóór de tekstreeksen.
2. Als er leeg is in een van de cel A1, wordt het relatieve werkblad voor alle bladen gesorteerd.
Gerelateerde artikelen:
Hoe werkbladen in alfabetische / alfanumerieke volgorde in Excel te sorteren?
Hoe werkbladtabbladen op kleur in Excel te sorteren?
Hoe de volgorde van werkbladtabbladen omkeren?
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!
