Hvis du har et regneark der tabellen har data i celler med forskjellig farget bakgrunn , kan du finne det nyttig å sortere disse cellene ved celle farger. Excel 2003 har ikke en funksjon som gjør at du kan sortere etter celle farge. Men det er en midlertidig løsning : du kan sette inn en Visual Basic for Applications ( VBA ) makro til å utføre oppgaven for deg. VBA er et programmeringsspråk spesielt utviklet for å skreddersy dine Office-programmer som passer dine behov . Instruksjoner
en

Trykk " Alt og " F11 " sammen fra Excel-regnearket du vil sortere . Dette åpner Visual Basic-redigering ( VBE ) .
2

Klikk " Sett inn " og deretter" Module "
3

Klipp ut og lim inn følgende kode inn i det tomme vinduet: .

Sub SortByColor ( )

på feil GoTo SortByColor_Err

Dim sRangeAddress As String

Dim sStartCell As String

Dim sEndCell As String

Dim rngSort Som Range

Dim RNG Som Range

Application.ScreenUpdating = False

sStartCell = InputBox ("Skriv cellen adressen til " & _

" øverste cellen i området som skal sorteres etter farge "& _

Chr ( 13 ) &" dvs. " A1 " " , " Enter Cell Address " )
p Hvis sStartCell > " "Then

sEndCell = Range ( sStartCell ) . End ( xlDown ) . Adresse

Range ( sStartCell ) . EntireColumn.Insert

Set rngSort = Range ( sStartCell , sEndCell )

for hver RING I rngSort

rng.Value = rng.Offset ( 0 , 1 ) Interior.ColorIndex

Neste

Range ( sStartCell ) Sorter Key1 : . . = Range ( sStartCell ) , _

Order1 : = xlAscending , Header : = xlNo , _

Orientering: = xlTopToBottom

Range ( sStartCell ) EntireColumn.Delete

. End If

SortByColor_Exit : en

Application.ScreenUpdating = sant

Sett rngSort = Ingenting

Exit Sub

SortByColor_Err :

MsgBox err.number & " :" & err.Description , _

vbOKOnly , " SortByColor "

Resume SortByColor_Exit

End Sub

4

Trykk " F5 " for å kjøre makroen makroen vil be deg begynnelsen av området du vil sortere etter farge: . . inn øverste venstre celle i området