Ako zoradiť podľa Cell farby v programe Excel 2003

Ak máte tabuľku, kde má dáta v bunkách s rozdielnym farebným pozadím váš stôl , možno zistíte , že šikovný triediť tie bunky farbami buniek . Excel 2003 nemá funkciu , ktorá vám umožní zoradiť bunky farbou . Avšak , tam je riešenie : môžete vložiť Visual Basic for Applications ( VBA ) makro plniť úloha pre vás . VBA je programovací jazyk , špeciálne navrhnutý tak , aby prispôsobiť svoje aplikácie balíka Office tak , aby vyhovovali vašim potrebám . Návod dovolená 1

Stlačte tlačidlo " Alt a " F11 " spoločne z hárku programu Excel , ktorý chcete zoradiť . Otvorí sa Editor jazyka Visual Basic ( VBE ) .
2

Kliknite na " . Vložiť " a potom kliknite na " modul "
3

Cut a vložte nasledujúci kód do prázdneho okna :

Sub SortByColor ( )

chyba GoTo SortByColor_Err

Dim sRangeAddress As String Dim

sStartCell As String Dim

sEndCell As String Dim

rngSort Ako dosahu

Dim RNG ako rozsah

Application.ScreenUpdating = False

sStartCell = InputBox ( " Zadajte adresu bunky " & _

" hornú bunku v oblasti , ktoré majú byť zoradené podľa farby " & _

Chr ( 13 ) & " , tj " A1 " , " " Zadajte adresu bunky " )

Ak sStartCell > " " Tak

sEndCell = rozsah ( sStartCell ) . End ( xlDown ) . Adresa klipart

rozsah ( sStartCell ) . EntireColumn.Insert

Set rngSort = rozsah ( sStartCell , sEndCell )

pre každý RNG V rngSort

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

Ďalšie

rozsah ( sStartCell ) Zoradiť key1 : .. = rozsah ( sStartCell ) , _

Order1 : = xlAscending , Header : = xlNo , _

Orientácia : . = xlTopToBottom

rozsah ( sStartCell ) EntireColumn.Delete

end If

SortByColor_Exit :

Application.ScreenUpdating = TRUE

Set rngSort = Nothing

Exit Sub

SortByColor_Err :

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

vbOKOnly , " SortByColor "

Resume SortByColor_Exit

End Sub
< . br > 4

Stlačte " F5 " pre spustenie makra Makro sa vás opýtať na začiatok oblasti , ktorú chcete zoradiť podľa farby : . zadajte ľavý horný bunku v oblasti

• Predchádzajúca strana: Ako Label Kategórie os ( X ) v programe Excel 2007 
• Ďalšia strana: Ako na upgrade na programe Excel 2003