Použití makra k použití formátu stínování buněk u všech ostatních řádků ve vybrané oblasti v Excelu

• Platí pro:

  Microsoft Excel

Souhrn

Microsoft Excel automaticky formátuje nová data, která zadáte na konec seznamu, aby odpovídala předchozím řádkům. Seznam můžete také naformátovat programově. Tento článek obsahuje ukázkovou proceduru jazyka Microsoft Visual Basic for Applications, která vystínuje každý druhý řádek ve výběru.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Chcete-li zobrazit vzory dostupné v aplikaci Microsoft Office Excel 2003 a dřívějších verzích, klikněte v nabídce Formát na příkaz Buňky a potom klikněte na kartu Vzorky .

Chcete-li zobrazit vzory dostupné v aplikaci Microsoft Office Excel 2007, postupujte takto:

1. Na kartě Domů klikněte ve skupině Buňky na Formát. Potom klikněte na Formát buněk.
2. V dialogovém okně Formát buněk klikněte na kartu Výplň .

V rozevíracím seznamu Vzor se zobrazují dostupné vzory. Vzor použitý v následujícím makrech, na který se odkazuje svým konstantním názvem xlGray16, je pátým vzorem zprava v prvním řádku.

Následující makro nastaví vzorek v každém druhém řádku aktuálního výběru na xlGray16.

Ukázkový procedury Visual Basic

VB

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

Poznámka

Toto makro se spouští pouze na řádcích vybrané oblasti. Pokud po spuštění makra přidáte nové řádky dat, musíte makro spustit znovu se všemi vybranými novými řádky dat.

Tento proces lze provést také ručně pomocí podmíněného formátování.

Další informace o tom, jak formátovat každý druhý řádek pomocí podmíněného formátování, najdete v tématu Použití stínování u alternativních řádků v listu.

Seznam můžete také naformátovat pomocí příkazu nabídky Automatické formátování . V aplikaci Excel 2003 a Microsoft Excel 2002 je příkaz nabídky Automatické formátování v nabídce Formát . V Aplikaci Excel 2007 musíte přidat příkaz nabídky Automatické formátování na panel nástrojů Rychlý přístup. Postupujte takto:

1. Klikněte na tlačítko Microsoft Office a potom klikněte na Možnosti aplikace Excel.
2. Klikněte na Přizpůsobení návrhu.
3. Kliknutím vyberte všechny příkazy v části Zvolit příkazy z.
4. Klikněte na Automatické formátování, klikněte na Přidat a potom klikněte na OK.