Excels fargeskjema - eksempler på VBA -kode

Endre farge på celle - .Interior.ColorIndex

For å endre fargen på en celle kan vi bruke:

Cell.Interior.ColorIndex = Num

Hvor:
• Celle er cellereferansen
• Interiør - refererer til fargen på den faktiske cellefargen (interiøret)
• Colourindex er en verdi mellom 1 og 56 for en av Excel 56 forhåndsdefinerte farger

Og Num er tallfargen som er tilordnet cellen. Imidlertid er det ikke alltid lett å huske hvilket tall som representerer hvilken farge. Følgende underprogram endrer cellefargen basert på radnummeret. Så for eksempel vil rad 3 ha farge 3 osv.

Siden det er 56 forhåndsinnstilte farger i Excel, betyr dette at cellene 59, 115 vil ha samme farge som cellen i rad 3:

123456789101112 Alternativ EksplisittPrivate Sub CommandButton1_Click ()Colour_Range (Sheets ("Sheet2"). Range ("A1: A2000"))Slutt SubUnderfargeområde (celleområde som område)'Farger hver celle i områdetDim CellFor hver celle i celleområdeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowNesteSlutt Sub

Rutinen aktiveres av en klikkhendelse.

Klikk her for å laste ned .XLSM -filen for denne opplæringen.

wave wave wave wave wave