Wenn Sie eine Tabelle , wo Ihre Tabelle Daten in Zellen mit verschiedenen farbigen Hintergrund haben, können Sie finden es praktisch, um die Zellen durch Zell Farben sortieren. Excel 2003 verfügt nicht über eine Funktion, die Sie nach Zellenfarbe sortieren können . Allerdings gibt es einen Workaround : Sie können eine Visual Basic für Applikationen ( VBA)-Makro einfügen, um die Aufgabe für Sie durchführen. VBA ist eine Programmiersprache, die speziell um Ihre Office-Anwendungen entwickelt, um Ihre Bedürfnisse anzupassen . Anleitung
1

Presse "Alt und " F11 " gemeinsam aus dem Excel-Arbeitsblatt Sie sortieren möchten . Dadurch wird das Visual Basic-Editor (VBE ) .
2

Klicken Sie auf" einfügen " und klicken Sie dann auf " Module "
3

Cut und fügen Sie den folgenden Code in das leere Fenster : .

Sub SortByColor ()

error GoTo SortByColor_Err

Dim sRangeAddress As String Dim

sStartCell As String Dim

sEndCell As String Dim

rngSort As Range Dim

rng As Range

Application.ScreenUpdating = False

sStartCell = InputBox ("Geben Sie die Adresse der Zelle des " & _

" obere Zelle im Bereich sortiert werden nach Farbe "& _

Chr (13) & ", dh ' A1' "," Geben Handy Address " )

Wenn sStartCell >" "Then

sEndCell = Range ( sStartCell ) . End ( xlDown ) . Adressen-

Range ( sStartCell ) . EntireColumn.Insert

Set rngSort = Range ( sStartCell , sEndCell )

For Each rNG rngSort

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

Weiter

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

Order1 : = xlAscending , Rubrik: = xlNo , _

Orientation: = xlTopToBottom

Range ( sStartCell ) EntireColumn.Delete

. End If

SortByColor_Exit :

Application.ScreenUpdating = True

Set rngSort = Nothing Exit Sub

SortByColor_Err :

MsgBox Err.Number & ":" & Err.Description , _

vbOKOnly , Fortsetzen " SortByColor "

SortByColor_Exit

End Sub