Etiketės mums naudingos daugeliu būdų. Galite kurti etiketes "Excel" naudodami "Microsoft Word". Tačiau kai kuriais atvejais tai gali kelti daug rūpesčių ir atimti daug laiko. Todėl galbūt norėsite kurti etiketes "Excel" be "Word". Šiame straipsnyje pateikiamas žingsnis po žingsnio vadovas, kaip kurti etiketes "Excel" be "Word".

Atsisiųsti praktikos sąsiuvinį

Praktikos sąsiuvinį galite atsisiųsti iš toliau pateiktos nuorodos.

Kas yra etiketės?

Apskritai etiketė - tai lipdukas arba popieriaus lapelis, apibūdinantis daiktą ar gaminį, prie kurio jis yra pritvirtintas. Etiketės naudojamos įvairiose srityse. Pavyzdžiui, žmonėms reikia sukurti etiketes adresams, kad jie galėtų jas pritvirtinti prie voko. Taip pat galime matyti etiketes, pritvirtintas prie kompiuterių aparatinės įrangos, kad galėtume ją identifikuoti ir sužinoti jos specifikacijas.

4 žingsniai, kaip sukurti etiketes be "Word" programoje "Excel" naudojant VBA

Labai patogu kurti etiketes "Excel" programoje nenaudojant "Microsoft Word . Be to, tai padeda sutaupyti daug laiko ir sutaupyti rūpesčių.

Tarkime, kad turite duomenų rinkinį su sąrašu Adresai norite išsiųsti kalėdinius atvirukus. Šiuo metu norite sukurti šių atvirukų etiketes. Adresai "Excel" programoje nenaudodami "Word". Tokiu atveju galite atlikti toliau nurodytus veiksmus.

01 veiksmas : Duomenų kopijavimas į naują "Excel" lapą

• Pirmiausia nukopijuokite stulpelio adresus ir įklijuokite juos į Naujas lapas pradedant nuo ląstelės A1 .

02 veiksmas : Atidarykite VBA langą ir sukurkite modulį "Excel" programoje

• Tada paspauskite ALT + F11 atidaryti VBA langas.
• Dabar pasirinkite lapą, su kuriuo šiuo metu dirbate, ir Dešiniuoju pelės klavišu spustelėkite šiuo atveju tai yra 2 lapas .
• Tada nuosekliai pasirinkite Įdėkite > Modulis .

Galiausiai šie žingsnių rinkiniai atvers VBA langą ir įterpkite naują Modulis lape.

03 veiksmas : Įterpkite kodą į "Excel

• Šiuo metu nukopijuokite šį kodą ir įklijuokite jį į tuščią langelį.

 'Šis kodas sukurs etiketes "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 With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With 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("Įveskite skaičiųPageidaujami stulpeliai") 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 

💡 Kodo paaiškinimas:

Šiame etape paaiškinsiu pirmiau naudotą kodą. Kaip matote, šis kodas susideda iš dviejų dalių. Vienoje dalyje yra sub AskForColumn () kuri bus vadinama 01 dalis , o kitame - sub Sukurti etiketes() kuri bus vadinama 02 dalis Dabar paaiškinsiu abi šias dalis po vieną.

01 dalis :

Šiuo metu kodą suskirsčiau į skirtingas dalis ir kiekvieną iš jų sunumeravau toliau pateiktoje ekrano nuotraukoje. Todėl čia paaiškinsiu kiekvieną dalį pagal jos numerį.

• 1 skirsnis: Šiame skirsnyje sukuriamas poskyris, pavadintas AskForColumn .
• 2 skirsnis: Čia deklaruojame skirtingus kintamuosius.
• 3 skirsnis: Šiame skyriuje skaičiuojame stulpelio eilučių skaičių.
• 4 skirsnis: Dabar čia sukuriame InputBox paklausti stulpelių skaičiaus.
• 5 skirsnis: Šiame skyriuje paleidžiame Tinklalapiui Taip pat naudojame Žingsnis raktinį žodį, kad ciklas būtų paleistas tiek kartų, kiek kartų InputBox .
• 6 skirsnis : Šiame etape mes naudojame šį skyrių, kad paskirstytume stulpelio ląstelę į skirtingas eilutes ir stulpelius naudodami programą Transponuoti ir nuosavybė Pakeisti dydį .
• 7 skirsnis: Galiausiai ištrinsime papildomą šio skirsnio turinį.

02 dalis :

Šiuo atveju taip pat suskirsčiau kodą į skirtingas dalis ir kiekvieną iš jų sunumeravau toliau pateiktoje ekrano nuotraukoje. Todėl čia paaiškinsiu kiekvieną dalį pagal jos numerį.

• 1 skirsnis: Šiame skirsnyje sukuriamas poskyris, pavadintas Sukurti etiketes() .
• 2 skirsnis: Šiame skyriuje saulę vadiname AskForColumn() paleisti.
• 3 skirsnis: Šiuo metu šiame skirsnyje apibrėžiama Ląstelių formatas visoms ląstelėms, naudodami Ląstelės nuosavybė.

04 veiksmas : Paleiskite kodą, kad sukurtumėte etiketes be "Word" programoje "Excel

• Dabar paspauskite F5 paleisti sub Sukurti etiketes () .
• Todėl ekrane pasirodys langelis, kaip parodyta toliau pateiktoje ekrano nuotraukoje.
• Šiuo metu įterpkite reikiamą etikečių stulpelių skaičių.
• Tada spustelėkite GERAI .

• Galiausiai sukursite etiketes, kaip parodyta toliau pateiktame paveikslėlyje.

💡 Pastabos :

• Šis metodas tinka tik tuo atveju, jei duomenys yra viename stulpelyje.
• Sukūrę etiketes, galite pridėti apvadus naudodami Visos ribos parinktys Pagrindinis skirtukas.
• Taip pat įsitikinkite, kad paleidote sub Sukurti etiketes() . Šiuo atveju, jei paleisite sub, AskForColumn () nepasieksite norimo rezultato.
• Be to, neįveskite nieko kito, išskyrus adresus, nurodytus stulpelyje A .

Skaityti daugiau: Kaip sukurti etiketes "Word" programoje iš "Excel" sąrašo (žingsnis po žingsnio gairės)

Kaip spausdinti etiketes "Excel" be "Word

Sukūrę etiketes pirmiau nurodytais veiksmais, dabar galite spausdinti etiketes . Dabar, jei norite tai padaryti, atlikite toliau nurodytus veiksmus.

Žingsniai :

• Pirmiausia eikite į Puslapio išdėstymas skirtuką puslapio viršuje.
• Tada spustelėkite Puslapio sąranka mygtuką.

• Po to eikite į Maržos .
• Dabar redaguokite Viršuje ir Dugnas maržos iki 0.5 ir tada redaguokite Kairėje pusėje ir Teisė maržos iki 0.215 .
• Todėl spustelėkite GERAI .

• Dabar paspauskite CTRL + P atidaryti Spausdinti meniu.
• Šiuo metu spustelėkite Nėra mastelio keitimo ir bus rodomos 4 parinktys.
• Tada iš šių parinkčių pasirinkite Visų stulpelių talpinimas viename puslapyje .

• Galiausiai galite spausdinti.
• Tokiu atveju spausdinimo peržiūra bus panaši į toliau pateiktą ekrano kopiją.

Skaityti daugiau: Kaip sujungti pašto etiketes iš "Excel" į "Word" (paprastais žingsniais)

Išvada

Galiausiai, bet ne mažiau svarbu, tikiuosi, kad šiame straipsnyje radote tai, ko ieškojote. Jei turite kokių nors klausimų, prašome parašyti komentarą žemiau. Be to, jei norite perskaityti daugiau panašių straipsnių, galite apsilankyti mūsų svetainėje ExcelWIKI .