Använd ett makro för att tillämpa cellsk skuggningsformat på varannan rad i ett markerat område i Excel

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Sammanfattning

Microsoft Excel formaterar automatiskt nya data som du skriver i slutet av en lista så att de stämmer överens med föregående rader. Du kan också formatera en lista programmässigt. Den här artikeln innehåller ett microsoftexempel Visual Basic for Applications procedur för att skugga varannan rad i en markering.

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov.

För att se de mönster som är tillgängliga i Microsoft Office Excel 2003 och i tidigare versioner klickar du på Celler på menyn Format och sedan på fliken Mönster.

Följ de här stegen för att se de mönster Microsoft Office Excel 2007:

  1. Klicka på Format i gruppen Cellerfliken Start. Klicka sedan på Formatera celler..
  2. Klicka på fliken Fyllning i dialogrutan Formatera celler.

I listrutan Mönster visas tillgängliga mönster. Det mönster som används i följande makro, som refereras till av dess konstantnamn xlGray16, är det femte från höger på den första raden.

Följande makro anger mönstret på varannan rad i den aktuella markeringen till xlGray16.

Exempel på en Visual Basic-procedur

Sub ShadeEveryOtherRow()
    Dim Counter As Integer

   'For every row in the current selection...
    For Counter = 1 To Selection.Rows.Count
        'If the row is an odd number (within the selection)...
        If Counter Mod 2 = 1 Then
            'Set the pattern to xlGray16.
            Selection.Rows(Counter).Interior.Pattern = xlGray16
        End If
    Next

End Sub

Anteckning

Det här makrot körs bara på raderna i det markerade området. Om du lägger till nya rader med data efter att du har kört makrot måste du köra makrot igen med alla nya rader med data markerade.

Den här processen kan också göras manuellt med hjälp av villkorsstyrd formatering.

Mer information om hur du formaterar varannan rad med hjälp av villkorsstyrd formatering finns i Använda skuggning på varannan rad i ett kalkylblad.

Du kan också formatera en lista med hjälp av kommandot Autoformat-menyn. I Excel 2003 och i Microsoft Excel 2002 finns kommandot Autoformat-menynFormat-menyn. I Excel 2007 måste du lägga till menykommandot Autoformat i verktygsfältet Snabbåtkomst. Gör så här:

  1. Klicka Microsoft Office och klicka sedan på Excel Alternativ.
  2. Klicka på Designanpassning.
  3. Klicka för att välja Alla kommandon under Välj kommandon från.
  4. Klicka på Autoformat,Lägg till och sedan på OK.