Etiketid on meile mitmel moel kasulikud. Excelis saab etikette luua Microsoft Wordi abil. Kuid mõnel juhul võib see olla väga tülikas ja aeganõudev. Seega võite soovida luua etikette Excelis ilma Wordita. See artikkel näitab samm-sammult, kuidas luua etikette Excelis ilma Wordita. See artikkel näitab, kuidas luua etikette Excelis ilma Wordita.

Lae alla praktiline töövihik

Praktilise töövihiku saate alla laadida allolevalt lingilt.

Mis on sildid?

Üldiselt on etikett kleebis või paberitükk, mis kirjeldab objekti või toodet, millele see on kinnitatud. Etikette kasutatakse väga mitmesugustes rakendustes. Näiteks on inimestel vaja luua aadresside jaoks etikette, et nad saaksid need ümbrikule kinnitada. Samuti näeme oma arvutite riistvara külge kinnitatud etikette, et saaksime neid identifitseerida ja teada nende spetsiifikatsioone.

4 sammu etikettide loomiseks ilma Wordita Excelis VBA abil

Excelis on väga mugav luua silte ilma abita. Microsoft Word Lisaks säästab see palju aega ja vaeva.

Oletame nüüd, et teil on andmekogum, mille nimekiri on järgmine Aadressid soovite saata oma jõulukaardid. Sel hetkel soovite luua nende jaoks sildid. Aadressid Excelis ilma Wordi kasutamata. Sellisel juhul saate selleks järgida allpool toodud sammude komplekti.

Samm 01 : Andmete kopeerimine Exceli uuele lehele

• Esmalt kopeerige veerus olevad aadressid ja kleepige need sisse Uus leht alustades rakust A1 .

Samm 02 : VBA akna avamine ja mooduli loomine Excelis

• Seejärel vajutage ALT + F11 avada VBA aken.
• Nüüd valige leht, millega te parajasti töötate, ja Parema klõpsuga Sellisel juhul on see Leht 2 .
• Seejärel valige järjestikku Sisesta > Moodul .

Lõpuks avavad need sammude komplektid VBA aknas ja sisestage uus Moodul oma lehel.

Samm 03 : Sisestage kood Excelisse

• Siinkohal kopeeri järgmine kood ja kleebi see tühja kasti.

 'See kood loob sildid Excelis 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 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 

💡 Koodi selgitus:

Selgitan siinkohal eespool kasutatud koodi. Nagu näete, on selles koodis kaks osa. Üks osa sisaldab sub AskForColumn () mida nimetatakse Osa 01 ,ja teine sisaldab alljärgnevat Createlabels() mida nimetatakse Osa 02 Nüüd selgitan ma mõlemat osa ükshaaval.

Osa 01 :

Siinkohal olen jaotanud koodi erinevateks osadeks ja nummerdanud iga osa järgneval ekraanipildil. Järelikult selgitan siinkohal iga osa vastavalt nende numbrile.

• 1. jagu: Selles jaotises luuakse alamrubriik nimega AskForColumn .
• 2. jagu: Siin deklareerime erinevaid muutujaid.
• 3. jagu: Selles jaotises loendame veerus olevate ridade arvu.
• 4. jagu: Nüüd, siin me loome InputBox küsida veergude arvu.
• 5. jagu: Selles osas käivitame me Sest Samuti kasutame me Samm võtmesõna, et käivitada tsükkel nii mitu korda, kui me paneme sisse InputBox .
• 6. jagu : Selles etapis, siin kasutame seda sektsiooni, et jaotada lahtri lahter erinevatesse ridadesse ja veergudesse, kasutades rakendust Transpose ja vara Suuruse muutmine .
• 7. jagu: Lõpuks kustutame selles jaotises oleva lisainfo.

Osa 02 :

Ka antud juhul olen koodi jaotanud erinevateks osadeks ja nummerdanud iga osa järgneval ekraanipildil. Järelikult selgitan siinkohal iga osa vastavalt nende numbrile.

• 1. jagu: Selles jaotises luuakse alamrubriik nimega Createlabels() .
• 2. jagu: Selles osas kutsume päikest AskForColumn() käivitada.
• 3. jagu: Siinkohal määratletakse käesolevas punktis Raku formaat kõigi rakkude jaoks, kasutades Rakud vara.

Samm 04 : Käivita kood etikettide loomiseks ilma Wordita Excelis

• Nüüd vajutage F5 allprogrammi käivitamiseks Createlabels () .
• Sellest tulenevalt ilmub ekraanile kast, nagu alltoodud ekraanipildil.
• Siinkohal sisestage siltide arv, mida soovite, et sildid oleksid olemas.
• Seejärel klõpsake nuppu OK .

• Lõpuks on teie sildid loodud nagu allpool oleval ekraanipildil.

💡 Märkused :

• See meetod töötab ainult siis, kui teie andmed on ühes veerus.
• Pärast etikettide loomist saate lisada piire, kasutades funktsiooni Kõik piirid valikud Kodu vahekaart.
• Samuti veenduge, et te käivitate sub Createlabels() . Sel juhul, kui te käivitate sub, AskForColumn () te ei saa soovitud tulemust.
• Peale selle ärge sisestage midagi muud kui aadressid veerus A .

Loe edasi: Kuidas luua sildid Wordis Exceli loendist (samm-sammult juhend)

Kuidas printida etikette Excelis ilma Wordita

Pärast siltide loomist ülalnimetatud sammude abil, võite nüüd soovida printida etiketid Kui soovite seda teha, võite järgida alljärgnevaid samme.

Sammud :

• Kõigepealt minge Lehekülje paigutus vahekaart lehe ülaosas.
• Seejärel klõpsake nupule Lehekülje seadistamine nupp.

• Pärast seda mine Marginaalid .
• Nüüd redigeerige Top ja Alumine marginaalid 0.5 ja seejärel redigeerida Vasakpoolne ja Õigus marginaalid 0.215 .
• Järelikult klõpsake OK .

• Nüüd vajutage CTRL + P avada Prindi menüü.
• Sel hetkel klõpsake nuppu Ei ole skaleerimine ja kuvatakse 4 valikut.
• Seejärel valige nende valikute hulgast Paigaldage kõik veerud ühele leheküljele .

• Lõpuks olete valmis printimiseks.
• Sellisel juhul näeb teie printimise eelvaade välja nagu alloleval ekraanipildil.

Loe edasi: Kuidas ühendada sildid Exceli ja Wordi vahel (lihtsate sammudega)

Kokkuvõte

Lõpetuseks, ma loodan, et leidsite sellest artiklist selle, mida otsisite. Kui teil on küsimusi, palun kirjutage kommentaar allpool. Samuti, kui soovite lugeda rohkem artikleid nagu see, võite külastada meie veebisait ExcelWIKI .