Štítky se skládají z malých kousků papíru, které poskytují informace o objektu. V tomto článku je popsáno, jak tisknout štítky Avery z aplikace Excel.

Stáhnout cvičebnici

Cvičebnici si můžete stáhnout z níže uvedeného odkazu.

Tisk štítků Avery.xlsm

Tisk štítků Avery.docx

2 způsoby tisku štítků Avery z aplikace Excel

Díky aplikaci Microsoft Excel je tisk štítků jednoduchým úkolem. Přiznávám, že jsem vynechal podrobnosti o štítcích, které můžete prozkoumat, pokud chcete Zde první metoda používá Word, zatímco druhá metoda tiskne štítky bez Wordu.

Podívejme se tedy bez dalšího zdržování, jak můžeme tisk štítků.

1. Tisk štítků Avery pomocí aplikace Word z aplikace Excel

Štítky Avery můžete tisknout pomocí aplikace Excel a Word. Podívejme se na postup krok za krokem.

Uvažujme následující soubor dat uvedený v dokumentu B4:F14 zde sloupce zobrazují Název společnosti , Adresa , Město , Stát a Poštovní směrovací číslo každého z příjemců.

Krok 01: Definice tabulky příjemců

• Zpočátku vyberte B4:F14 a přejděte do Vzorce> Definovat název .
• Nyní se zobrazí dialogové okno, ve kterém zadáme vhodný název, v tomto případě, Název_společnosti .

Poznámka: Dbejte na to, aby mezi slovy nebyly mezery. Jednotlivá slova můžete oddělit podtržítkem.

Krok 02: Vytvoření štítků Avery v aplikaci Word

• Za druhé otevřete prázdný dokument v aplikaci Microsoft Word a přejděte na kartu.
• Poté přejděte na Rozesílky> Spustit Mail Merge> Štítky .

• Nyní vyberte možnosti podle obrázku níže a klikněte na tlačítko OK zavřete dialogové okno.

• Dále vyberte Design> Ohraničení stránky .
• Okamžitě se zobrazí okno Průvodce, vyberte možnost Ohraničení> Mřížka .

Tím se v prázdném dokumentu vygeneruje mřížka.

Krok 03: Import seznamu příjemců z aplikace Excel do aplikace Word

• Za třetí, přejděte na Zásilky tentokrát však zvolte Výběr příjemců> Použití existujícího seznamu .

• Poté importujeme zdrojová data do Wordu tak, že v tomto případě vybereme soubor aplikace Excel, Tisk štítků Avery .

• Následně zvolíme název tabulky Název_společnosti ze seznamu.

Tím se vytvoří spojení mezi pracovním listem aplikace Excel a dokumentem aplikace Word.

Krok 04: Vložení polí v aplikaci Word

• Za čtvrté, přejděte na Mailings> Blok adres a vyberte Zápasová pole možnosti v dialogovém okně.

Je zřejmé, že záhlaví sloupců z pracovního listu automaticky odpovídají příslušným polím.

• Klikněte na OK zavřete dialogové okno.

Následně se nám zobrazí náhled štítků, abychom mohli před dalším postupem opravit případné nedostatky.

• Dále klikneme na tlačítko Aktualizace štítků nacházející se v Zásilky tab.

V důsledku toho se všechny štítky změní na AddressBlock .

Krok 05: Dokončení procesu slučování

• Nakonec přejděte na Mailings> Finish> Merge> Úprava jednotlivých dokumentů možnosti.

• Poté v dialogovém okně zaškrtněte možnosti podle obrázku níže a klikněte na tlačítko OK .

Nakonec se všechny štítky objeví v dokumentu aplikace Word.

• Kromě toho stiskněte CTRL + P otevřít možnost tisku ve Wordu.

Kromě toho můžete v okně náhledu zobrazit náhled štítků.

Přečtěte si více: Jak vytvořit štítky v aplikaci Word ze seznamu aplikace Excel (návod krok za krokem)

Podobná čtení

• Jak vytvořit poštovní štítky v aplikaci Excel (ve snadných krocích)
• Jak sloučit štítky z aplikace Excel do aplikace Word (ve snadných krocích)

2. Tisk jednoho štítku Avery bez aplikace Word z aplikace Excel

Pokud máte data, která pokrývají pouze jeden sloupec, můžete tisknout štítky bez použití aplikace Word. Je to jednoduchý postup, takže se jím řiďte.

Předpokládejme, že máme následující datovou sadu v souboru B4:B13 buňky s jediným sloupcem zobrazujícím Adresa .

Krok 01: Vytvoření kopie datové sady

• Nejprve zkopírujte soubor dat a vložte jej do nového pracovního listu.

Poznámka: Údaje je třeba vložit do prvního sloupce počínaje písmenem A1 buňky a odstraňte záhlaví sloupců.

Krok 02: Vložení kódu VBA

• Za druhé, přejděte na Vývojář > Visual Basic .

• Dále vložte Modul kam vložíte VBA kód.

Pro snazší orientaci můžete kód zkopírovat a vložit odsud.

 Sub Makelabels() Application.Run "EnterColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Sub EnterColumn() Dim reference As Range Dim item As Long Dim data As Long Set reference = Cells(Rows.Count, 1).End(xlUp) data = 1 On Error Resume Next incolno = InputBox("Zadejte požadovaný počet sloupců") For item= 1 To reference.Row Step incolno Cells(data, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(item, "A").Resize(incolno, 1)) data = data + 1 Next Range(Cells(data, "A"), Cells(reference.Row, "A")).ClearContents End Sub 

Rozdělení kódu:

Nyní vysvětlím kód VBA, který se používá k vygenerování štítků. V tomto případě je kód rozdělen do dvou částí.

Sekce 1: Vysvětlení podprogramu EnterColumn()

Vysvětlení VBA kód je uveden níže.

• 1- Nejprve se podprogramu přidělí jméno a definují se proměnné.
• 2- Dále spočítáme počet řádků a vytvoříme řádek InputBox přijímat vstupy od uživatele.
• 3 - Pak a Pro smyčka se spustí tolikrát, kolikrát je zadáno v příkazu InputBox .
• 4 - Nakonec jsme Transpozice sloupce do řádků, Změna velikosti a odstraňte z nich veškerý další obsah.

Oddíl 2: Popis podprogramu Makelabels()

Podobným způsobem se VBA kód je vysvětlen níže.

• 1- V této části je podprogramu přidělen název.
• 2- Poté provedeme podprogram.
• 3- Nakonec zadejte formátování buněk pomocí příkazu Buňky nemovitosti.

Krok 03: Spuštění kódu VBA pro generování štítků

• Za třetí stiskněte tlačítko F5 spustit klávesu Vytvořit štítky() podprogram.
• V dialogovém okně zadejte počet sloupců.

Ohraničení můžete přidat pomocí Všechny hranice možnost v Home tab.

Krok 04: Tisk štítků z aplikace Excel

• Za čtvrté, přejděte na Rozložení stránky a klikněte na kartu Nastavení stránky šipka v rohu.
• Poté vyberte Marže a upravte okraj stránky podle následujícího obrázku.

• Dále použijte CTRL + P otevřít Tisk menu.
• V tomto okamžiku stiskněte tlačítko Žádné škálování v rozevíracím seznamu a vyberte Vměstnání všech sloupců na jednu stránku možnost.

Konečně jste připraveni tisk štítků Kromě toho můžete sledovat náhled tisku, jak je znázorněno na obrázku níže.

Další informace: Jak vytvořit štítky bez použití aplikace Word v aplikaci Excel (průvodce krok za krokem)

Na co nezapomenout

• Za prvé, m metoda 2 platí pouze v případě, že máte v datové sadě jediný sloupec.
• Zadruhé naformátujte záhlaví sloupců tak, aby se odlišovala od ostatních dat.
• Zatřetí se ujistěte, že nejsou žádné prázdné buňky, protože to může vést k neočekávaným výsledkům.

Závěr

Doufám, že vám tento článek pomohl pochopit, jak tisknout štítky Avery z aplikace Excel. Pokud máte nějaké dotazy, zanechte prosím komentář níže. Pokud si chcete přečíst další podobné články, můžete navštívit naše webové stránky. ExcelWIKI .