Als je een spreadsheet waar uw tafel heeft gegevens in cellen met verschillende gekleurde achtergrond , vindt u het misschien handig om die cellen te sorteren op cel kleuren . Excel 2003 beschikt niet over een functie waarmee u om te sorteren op cel kleur . Echter, er is een oplossing : Je kunt een Visual Basic voegen voor Applications (VBA ) macro om de taak voor u uitvoeren . VBA is een programmeertaal die speciaal ontworpen op maat van uw Office-toepassingen aan uw behoeften . Instructies
1 Druk " Alt en " F11 " samen uit het Excel- werkblad dat u wilt sorteren . Dit opent de Visual Basic Editor ( VBE ) .
Click 2 " invoegen " en klik op " Module "
Cut 3 en plak de volgende code in het lege venster : . Sub SortByColor ( )
Error GoTo SortByColor_Err Dim sRangeAddress
als Koord Dim sStartCell
als Koord Dim sEndCell
als Koord Dim rngSort
als Waaier
Dim rng als Waaier
Application.ScreenUpdating = False sStartCell = InputBox
( " Geef het celadres van de " & _ " bovenste cel
in het bereik te sorteren op kleur " & _ Chr
( 13 ) & " ie ' A1 ' " , " Enter Cel Address " ) op Twitter Als sStartCell > " "Dan
sEndCell = Range ( sStartCell ) . End ( xlDown ) . Adres Range
( sStartCell ) . EntireColumn.Insert Set rngSort = Range ( sStartCell , sEndCell ) op Twitter
voor Elke rng In rngSort
rng.Value = rng.Offset ( 0 , 1 ) Interior.ColorIndex Volgende Range ( sStartCell )
Sorteren Key1 : . . = Range ( sStartCell ) , _
Order1 : = xlAscending , Header : = xlNo , _ Oriëntatie
: = xlTopToBottom Range
( sStartCell ) EntireColumn.Delete
. end If SortByColor_Exit :
Application.ScreenUpdating = True
Stel rngSort = Nothing
Exit Sub SortByColor_Err :
MsgBox Err.Number & " : " & Err.Description , _
vbOKOnly , " SortByColor "
Resume SortByColor_Exit
End Sub
< br > Druk op " F5 " 4 om de macro uit te voeren de macro zal u vragen het begin van het bereik dat u wilt sorteren op kleur : . voer de cel linksboven in het bereik
< br . >
|
