Štítky sú pre nás užitočné v mnohých ohľadoch. Štítky v programe Excel môžete vytvárať pomocou programu Microsoft Word. V niektorých prípadoch to však môže byť veľmi náročné a zdĺhavé. Preto možno budete chcieť vytvoriť štítky v programe Excel bez programu Word. Tento článok ukazuje krok za krokom, ako vytvoriť štítky v programe Excel bez programu Word.

Stiahnite si cvičebnicu

Cvičebnicu si môžete stiahnuť z nižšie uvedeného odkazu.

Čo sú to štítky?

Všeobecne povedané, štítok je nálepka alebo kúsok papiera s popisom predmetu alebo výrobku, ku ktorému je pripevnený. Štítky sa používajú v širokej škále aplikácií. Ľudia napríklad potrebujú vytvoriť štítky na adresy, aby ich mohli pripevniť na obálku. Takisto môžeme vidieť štítky pripevnené na hardvér v našich počítačoch, aby sme ich mohli identifikovať a vedieť o ich špecifikáciách.

4 kroky na vytvorenie štítkov bez použitia programu Word v programe Excel pomocou VBA

Vytváranie štítkov v programe Excel je veľmi pohodlné bez pomoci Microsoft Word Okrem toho šetrí veľa času a problémov.

Teraz predpokladajme, že máte súbor údajov so zoznamom Adresy chcete poslať vianočné pohľadnice. V tejto chvíli chcete vytvoriť štítky pre tieto pohľadnice. Adresy v programe Excel bez použitia programu Word. V tomto prípade môžete postupovať podľa nižšie uvedených krokov.

Krok 01 : Kopírovanie údajov do nového hárku v programe Excel

• Najprv skopírujte adresy v stĺpci a vložte ich do Nový hárok počnúc bunkou A1 .

Krok 02 : Otvorte okno VBA a vytvorte modul v programe Excel

• Potom stlačte tlačidlo ALT + F11 otvoriť VBA okno.
• Teraz vyberte hárok, na ktorom práve pracujete, a Kliknutie pravým tlačidlom myši v tomto prípade je to List 2 .
• Potom postupne vyberte Vložte > Modul .

Tieto súbory krokov nakoniec otvoria VBA a vložte nové okno Modul v hárku.

Krok 03 : Vloženie kódu do programu Excel

• V tomto okamihu skopírujte nasledujúci kód a vložte ho do prázdneho poľa.

 'Tento kód vytvorí štítky v programe Excel 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("Zadajte početColumns 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 

💡 Vysvetlenie kódu:

V tejto fáze vysvetlím vyššie použitý kód. Ako vidíte, tento kód má dve časti. Jedna časť obsahuje sub AskForColumn () ktorý sa bude označovať ako Časť 01 , a druhá obsahuje pod Vytvoriť štítky() ktorý sa bude označovať ako Časť 02 Teraz vám postupne vysvetlím obe tieto časti.

Časť 01 :

Na tomto mieste som kód rozdelil na jednotlivé časti a každú z nich som očísloval na nasledujúcom obrázku. Následne tu vysvetlím jednotlivé časti podľa ich čísla.

• Oddiel 1: Táto časť vytvára podskupinu s názvom AskForColumn .
• Oddiel 2: Tu deklarujeme rôzne premenné.
• Oddiel 3: V tejto časti počítame počet riadkov v stĺpci.
• Oddiel 4: Teraz tu vytvoríme InputBox na zadanie počtu stĺpcov.
• Oddiel 5: V tejto časti spustíme Pre tiež používame Krok kľúčové slovo na spustenie slučky toľkokrát, koľkokrát sme vložili do InputBox .
• Oddiel 6 : V tejto fáze používame túto časť na rozdelenie buniek stĺpca do rôznych riadkov a stĺpcov pomocou aplikácie Transponovať a majetok Zmena veľkosti .
• Oddiel 7: Nakoniec odstránime dodatočný obsah v tejto časti.

Časť 02 :

Aj v tomto prípade som kód rozdelil na rôzne časti a jednotlivé časti som očísloval na nasledujúcom obrázku. Následne tu vysvetlím jednotlivé časti podľa ich čísla.

• Oddiel 1: Táto časť vytvára podskupinu s názvom Vytvoriť štítky() .
• Oddiel 2: V tejto časti nazývame slnko AskForColumn() spustiť.
• Oddiel 3: V tomto bode sa v tejto časti definuje Formát buniek pre všetky bunky pomocou Bunky nehnuteľnosť.

Krok 04 : Spustite kód na vytvorenie štítkov bez Wordu v programe Excel

• Teraz stlačte F5 na spustenie podskupiny Vytvoriť štítky () .
• Následne sa na obrazovke zobrazí okno ako na obrázku nižšie.
• V tomto okamihu vložte počet stĺpcov, v ktorých chcete mať štítky.
• Potom kliknite na OK .

• Nakoniec budete mať vytvorené štítky, ako na obrázku nižšie.

💡 Poznámky :

• Táto metóda bude fungovať len vtedy, ak máte údaje v jednom stĺpci.
• Po vytvorení štítkov môžete pridať okraje pomocou Všetky hranice možnosti v Domov tab.
• Uistite sa tiež, že ste spustili sub Vytvoriť štítky() V tomto prípade, ak spustíte pod, AskForColumn () nedosiahnete požadovaný výsledok.
• Okrem toho nezadávajte nič iné ako adresy v stĺpci A .

Prečítajte si viac: Ako vytvoriť štítky v programe Word zo zoznamu programu Excel (návod krok za krokom)

Ako tlačiť štítky v programe Excel bez aplikácie Word

Po vytvorení štítkov pomocou vyššie uvedených krokov môžete teraz vytlačiť štítky . Ak tak chcete urobiť, postupujte podľa nasledujúcich krokov.

Kroky :

• Najprv prejdite na Rozloženie stránky karta v hornej časti stránky.
• Potom kliknite na Nastavenie stránky tlačidlo.

• Potom prejdite na stránku Marže .
• Teraz upravte Top a Spodná časť rozpätia na 0.5 a potom upravte Vľavo a Vpravo rozpätia na 0.215 .
• Následne kliknite na OK .

• Teraz stlačte CTRL + P otvoriť Tlač menu.
• V tomto okamihu kliknite na Žiadne škálovanie a zobrazia sa 4 možnosti.
• Potom z týchto možností vyberte Vmestenie všetkých stĺpcov na jednu stránku .

• Nakoniec ste pripravení na tlač.
• V tomto prípade bude náhľad tlače vyzerať ako na nasledujúcej snímke.

Prečítajte si viac: Ako zlúčiť štítky z programu Excel do programu Word (v jednoduchých krokoch)

Záver

V neposlednom rade dúfam, že ste v tomto článku našli to, čo ste hľadali. Ak máte nejaké otázky, napíšte nám ich do komentára nižšie. Ak si chcete prečítať viac podobných článkov, môžete navštíviť našu webovú stránku ExcelWIKI .