Etikete so nam koristne na veliko načinov. Etikete v Excelu lahko ustvarite s pomočjo programa Microsoft Word. V nekaterih primerih pa je to lahko zelo težavno in zamudno. Zato boste morda želeli ustvariti etikete v Excelu brez Worda. Ta članek prikazuje vodič po korakih, kako ustvariti etikete v Excelu brez Worda.

Prenesi delovni zvezek za prakso

Vadbeni zvezek lahko prenesete s spodnje povezave.

Kaj so etikete?

V splošnem je etiketa nalepka ali kos papirja, ki opisuje predmet ali izdelek, na katerega je nalepljena. Etikete se uporabljajo v številnih aplikacijah. Ljudje morajo na primer izdelati etikete za naslove, da jih lahko pritrdijo na ovojnico. Prav tako lahko vidimo etikete, pritrjene na strojno opremo v računalnikih, da jih lahko prepoznamo in izvemo o njihovih specifikacijah.

4 koraki za ustvarjanje nalepk brez Worda v Excelu z uporabo VBA

Ustvarjanje nalepk v Excelu je zelo priročno brez pomoči Microsoft Word Poleg tega prihrani veliko časa in težav.

Predpostavimo, da imate nabor podatkov s seznamom Naslovi želite poslati božične voščilnice. Na tej točki želite ustvariti nalepke za te voščilnice. Naslovi v Excelu, ne da bi uporabili Word. V tem primeru lahko sledite spodnjim korakom.

Korak 01 : Kopiranje podatkov v nov list v Excelu

• Najprej kopirajte naslove v stolpcu in jih prilepite v Nov list začenši s celico A1 .

Korak 02 : Odprite okno VBA in ustvarite modul v Excelu

• Nato pritisnite ALT + F11 da odprete VBA okno.
• Zdaj izberite list, na katerem trenutno delate, in Desni klik V tem primeru je to List 2 .
• Nato zaporedno izberite Vstavite > Modul .

Sčasoma bodo ti koraki odprli VBA in vstavite novo okno Modul v svojem listu.

Korak 03 : Vstavite kodo v Excel

• Na tej točki kopirajte naslednjo kodo in jo prilepite v prazno polje.

 'Ta koda bo ustvarila oznake 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 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 ofStolpci želeni") Za vrb = 1 Do refrg.Row Korak 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 

💡 Razlaga kode:

Na tej stopnji bom pojasnil zgoraj uporabljeno kodo. Kot lahko vidite, ima ta koda dva dela. En del vsebuje pod AskForColumn () ki se bo imenovala 01. del , drugi pa vsebuje pod Ustvarjanje oznak() ki se bo imenovala 02. del . Zdaj bom razložil oba dela po vrsti.

01. del :

Na tej točki sem kodo razdelil na različne dele in jih oštevilčil na naslednji sliki zaslona. Zato bom tukaj razložil vsak del glede na njegovo številko.

• Oddelek 1: Ta razdelek ustvari podrazdelek z imenom AskForColumn .
• Oddelek 2: Tu razglašamo različne spremenljivke.
• Oddelek 3: V tem razdelku preštejemo število vrstic v stolpcu.
• Oddelek 4: Tukaj ustvarimo InputBox vprašati po številu stolpcev.
• Oddelek 5: V tem razdelku izvajamo Za prav tako uporabljamo zanko Korak ključna beseda za izvajanje zanke tolikokrat, kolikorkrat smo vnesli InputBox .
• Oddelek 6 : Na tej stopnji uporabimo ta razdelek, da celico stolpca razdelimo v različne vrstice in stolpce z uporabo aplikacije Transpozicija in premoženje Spremeni velikost .
• Oddelek 7: Na koncu izbrišemo dodatno vsebino v tem razdelku.

02. del :

Tudi v tem primeru sem kodo razdelil na različne dele in vsak del oštevilčil na naslednji sliki zaslona. Zato bom tukaj razložil vsak del glede na njegovo številko.

• Oddelek 1: Ta razdelek ustvari podrazdelek z imenom Ustvarjanje oznak() .
• Oddelek 2: V tem razdelku imenujemo sonce AskForColumn() za zagon.
• Oddelek 3: Na tej točki ta oddelek opredeljuje Oblika celic za vse celice z uporabo Celice lastnost.

Korak 04 : Zaženite kodo za ustvarjanje nalepk brez Worda v Excelu

• Zdaj pritisnite F5 za zagon podsklopa Ustvarjanje oznak () .
• Na zaslonu se prikaže okno, kot je prikazano na spodnji sliki.
• Na tej točki vstavite število stolpcev, v katerih želite imeti nalepke.
• Nato kliknite na V REDU .

• Na koncu boste ustvarili etikete, kot je prikazano na spodnji sliki zaslona.

💡 Opombe :

• Ta metoda deluje le, če so podatki v enem stolpcu.
• Ko ustvarite oznake, lahko dodate robove z uporabo Vse meje možnosti v Domov zavihek.
• Poskrbite tudi, da boste zagnali pod Ustvarjanje oznak() V tem primeru, če zaženete pod, AskForColumn () ne boste dosegli želenega rezultata.
• Poleg tega ne vnašajte ničesar drugega kot naslove v stolpcu A .

Preberite več: Kako ustvariti nalepke v Wordu iz seznama Excel (navodila po korakih)

Kako natisniti nalepke v Excelu brez Worda

Po ustvarjanju nalepk z zgoraj navedenimi koraki boste morda želeli tiskanje nalepk . Če želite to storiti, sledite spodnjim korakom.

Koraki :

• Najprej pojdite v Postavitev strani na vrhu strani.
• Nato kliknite na Nastavitev strani gumb.

• Nato pojdite v Robovi .
• Zdaj uredite Vrh in . Dno meje do 0.5 in nato uredite Leva stran in . Desno meje do 0.215 .
• Nato kliknite na V REDU .

• Zdaj pritisnite CTRL + P da odprete Natisni meni.
• Na tej točki kliknite na Brez skaliranja in prikazane bodo 4 možnosti.
• Nato med temi možnostmi izberite Namestitev vseh stolpcev na eno stran .

• Končno ste pripravljeni za tiskanje.
• V tem primeru bo predogled tiskanja podoben spodnji sliki zaslona.

Preberite več: Kako združiti nalepke iz programa Excel v program Word (z enostavnimi koraki)

Zaključek

Upam, da ste v tem članku našli, kar ste iskali. Če imate kakršna koli vprašanja, vas prosimo, da jih komentirate spodaj. Če želite prebrati še več takšnih člankov, lahko obiščete našo spletno stran ExcelWIKI .