Štítky jsou pro nás užitečné v mnoha ohledech. Štítky v Excelu můžete vytvářet pomocí aplikace Microsoft Word. V některých případech to však může být velmi obtížné a časově náročné. Proto možná budete chtít vytvořit štítky v Excelu bez aplikace Word. Tento článek ukazuje návod krok za krokem, jak vytvořit štítky v Excelu bez aplikace Word.

Stáhnout cvičebnici

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

Co jsou to štítky?

Obecně lze říci, že štítek je nálepka nebo kus papíru popisující předmět nebo výrobek, ke kterému je připojen. Štítky se používají v široké škále aplikací. Lidé například potřebují vytvořit štítky pro adresy, aby je mohli připojit k obálce. Také můžeme vidět štítky připojené k hardwaru v našich počítačích, abychom je mohli identifikovat a znát jejich specifikace.

4 kroky k vytvoření štítků bez použití Wordu v aplikaci Excel pomocí VBA

Vytváření štítků v aplikaci Excel je velmi pohodlné bez pomoci Microsoft Word . Navíc ušetří spoustu času a starostí.

Předpokládejme, že máte datovou sadu se seznamem. Adresy chcete poslat vánoční přání. V tuto chvíli chcete vytvořit štítky pro tyto přání. Adresy v aplikaci Excel bez použití aplikace Word. V takovém případě můžete postupovat podle níže uvedených kroků.

Krok 01 : Kopírování dat do nového listu v aplikaci Excel

• Nejprve zkopírujte adresy ve sloupci a vložte je do pole Nový list počínaje buňkou A1 .

Krok 02 : Otevření okna VBA a vytvoření modulu v aplikaci Excel

• Pak stiskněte tlačítko ALT + F11 otevřít VBA okno.
• Nyní vyberte list, na kterém právě pracujete, a. Kliknutí pravým tlačítkem myši v tomto případě je to List 2 .
• Poté postupně vyberte Vložte > Modul .

Nakonec tyto sady kroků otevřou VBA a vložte nové okno Modul ve svém listu.

Krok 03 : Vložení kódu do aplikace Excel

• V tomto okamžiku zkopírujte následující kód a vložte jej do prázdného pole.

 'Tento kód vytvoří štítky v Excelu Sub Createlabels() Application.Run "AskForColumn" 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 Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number ofColumns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

💡 Vysvětlení kódu:

V této fázi vysvětlím výše použitý kód. Jak vidíte, tento kód má dvě části. Jedna část obsahuje sub AskForColumn () který se bude označovat jako Část 01 , a druhý obsahuje dílčí Vytvořit štítky() který se bude označovat jako Část 02 . Nyní vysvětlím obě tyto části postupně.

Část 01 :

Na tomto místě jsem kód rozdělil do jednotlivých sekcí a jednotlivé sekce očísloval na následujícím snímku obrazovky. Následně zde vysvětlím jednotlivé sekce podle jejich čísla.

• Oddíl 1: Tento oddíl vytvoří dílčí položku s názvem AskForColumn .
• Oddíl 2: Zde deklarujeme různé proměnné.
• Oddíl 3: V této části počítáme počet řádků ve sloupci.
• Oddíl 4: Nyní zde vytvoříme InputBox se zeptat na počet sloupců.
• Oddíl 5: V této části spustíme Pro Také používáme smyčku Krok pro spuštění smyčky tolikrát, kolikrát jsme vložili do pole InputBox .
• Oddíl 6 : V této fázi používáme tuto sekci k rozdělení buňky sloupce do různých řádků a sloupců pomocí aplikace Transpozice a majetek Změna velikosti .
• Oddíl 7: Nakonec v této části odstraníme další obsah.

Část 02 :

I v tomto případě jsem kód rozdělil do různých sekcí a jednotlivé sekce očísloval na následujícím snímku obrazovky. Následně zde vysvětlím jednotlivé sekce podle jejich čísla.

• Oddíl 1: Tento oddíl vytvoří dílčí položku s názvem Vytvořit štítky() .
• Oddíl 2: V této části nazýváme slunce AskForColumn() spustit.
• Oddíl 3: V tomto bodě tento oddíl definuje Formát buněk pro všechny buňky pomocí Buňky nemovitosti.

Krok 04 : Spusťte kód pro vytvoření štítků bez použití aplikace Word v aplikaci Excel

• Nyní stiskněte F5 spustit dílčí Vytvořit štítky () .
• Následně se na obrazovce zobrazí okno jako na obrázku níže.
• V tomto okamžiku vložte počet sloupců, ve kterých chcete mít štítky.
• Poté klikněte na OK .

• Nakonec budete mít štítky vytvořené jako na obrázku níže.

💡 Poznámky :

• Tato metoda bude fungovat pouze v případě, že máte data v jednom sloupci.
• Po vytvoření štítků můžete přidat rámečky pomocí příkazu Všechny hranice možnosti v Home tab.
• Také se ujistěte, že jste spustili sub Vytvořit štítky() V tomto případě, pokud spustíte sub, AskForColumn () nedosáhnete požadovaného výsledku.
• Kromě toho nezadávejte nic jiného než adresy ve sloupci A .

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

Jak tisknout štítky v aplikaci Excel bez použití aplikace Word

Po vytvoření štítků pomocí výše uvedených kroků můžete nyní chtít. tisk štítků . Pokud tak chcete učinit, můžete nyní postupovat podle následujících kroků.

Kroky :

• Nejprve přejděte do Rozložení stránky na kartě v horní části stránky.
• Dále klikněte na Nastavení stránky tlačítko.

• Poté přejděte na Marže .
• Nyní upravte Nahoru a Spodní část marže na 0.5 a poté upravte Vlevo a Právo marže na 0.215 .
• Následně klikněte na OK .

• Nyní stiskněte CTRL + P otevřít Tisk menu.
• V tomto okamžiku klikněte na Žádné škálování a zobrazí se 4 možnosti.
• Dále z těchto možností vyberte Vměstnání všech sloupců na jednu stránku .

• Nakonec jste připraveni k tisku.
• V tomto případě bude náhled tisku vypadat jako na obrázku níže.

Přečtěte si více: Jak sloučit štítky z aplikace Excel do aplikace Word (ve snadných krocích)

Závěr

V neposlední řadě doufám, že jste v tomto článku našli to, co jste hledali. Pokud máte nějaké dotazy, napište nám prosím komentář níže. Také pokud si chcete přečíst další podobné články, můžete navštívit naše webové stránky. ExcelWIKI .