Etichetele ne sunt utile într-o mulțime de moduri. Puteți crea etichete în Excel cu ajutorul Microsoft Word. Dar, în unele cazuri, acest lucru poate fi foarte dificil și poate consuma mult timp. Deci, este posibil să doriți să creați etichete în Excel fără Word. Acest articol demonstrează un ghid pas cu pas despre cum să creați etichete în Excel fără Word.

Descărcați caietul de practică

Puteți descărca caietul de practică de la link-ul de mai jos.

Ce sunt etichetele?

În general, o etichetă este un autocolant sau o bucată de hârtie care descrie obiectul sau produsul pe care este atașată. Etichetele sunt utilizate în numeroase aplicații. De exemplu, oamenii trebuie să creeze etichete pentru adrese, astfel încât să le poată atașa la plic. De asemenea, putem vedea etichete atașate la hardware-ul din computerele noastre, astfel încât să le putem identifica și să cunoaștem specificațiile acestora.

4 pași pentru a crea etichete fără Word în Excel folosind VBA

Este foarte convenabil să creați etichete în Excel fără ajutorul Microsoft Word În plus, se economisește mult timp și se economisesc multe probleme.

Acum, să presupunem că aveți un set de date cu o listă de Adrese În acest moment, doriți să creați etichete pentru aceste felicitări de Crăciun. Adrese în Excel fără a utiliza Word. În acest caz, puteți urma seturile de pași de mai jos pentru a face acest lucru.

Pasul 01 : Copierea datelor într-o foaie nouă în Excel

• În primul rând, copiați adresele din coloană și lipiți-le într-un fișier Foaie nouă pornind de la celulă A1 .

Pasul 02 : Deschideți fereastra VBA și creați un modul în Excel

• Apoi, apăsați ALT + F11 pentru a deschide fereastra VBA fereastră.
• Acum, selectați foaia pe care lucrați în prezent și Faceți clic dreapta pe În acest caz, este Foaia 2 .
• Apoi, selectați secvențial Introduceți > Modul .

În cele din urmă, aceste seturi de pași vor deschide VBA și introduceți un nou fișier Modul în foaia ta.

Pasul 03 : Introduceți codul în Excel

• În acest moment, copiați următorul cod și lipiți-l în caseta goală.

 'Acest cod va crea etichete în 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 With 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 

💡 Codul Explicație:

În această etapă, voi explica codul folosit mai sus. După cum puteți vedea, există două părți ale acestui cod. O parte conține subiectul Cerere pentru coloană () care se va numi Partea 01 ,iar cealaltă conține sub Crearea etichetelor() care se va numi Partea 02 Acum, voi explica aceste două părți una câte una.

Partea 01 :

În acest moment, am împărțit codul în diferite secțiuni și am numerotat fiecare dintre secțiuni în următoarea captură de ecran. În consecință, aici voi explica fiecare secțiune în funcție de numărul lor.

• Secțiunea 1: Această secțiune creează o subdiviziune numită ÎntreabăPentruColoană .
• Secțiunea 2: Aici, declarăm diferite variabile.
• Secțiunea 3: În această secțiune, numărăm numărul de rânduri din coloană.
• Secțiunea 4: Acum, aici creăm un fișier InputBox pentru a cere numărul de coloane.
• Secțiunea 5: În această secțiune, vom rula un Pentru De asemenea, vom folosi funcția Pasul pentru a rula bucla de câte ori am pus în InputBox .
• Secțiunea 6 : În acest stadiu, aici folosim această secțiune pentru a distribui celulele coloanei în diferite rânduri și coloane prin utilizarea aplicației Transpuneți și proprietatea Redimensionați .
• Secțiunea 7: În cele din urmă, eliminăm conținutul suplimentar din această secțiune.

Partea 02 :

Și în acest caz, am împărțit codul în diferite secțiuni și am numerotat fiecare dintre secțiuni în următoarea captură de ecran. În consecință, aici voi explica fiecare secțiune în funcție de numărul lor.

• Secțiunea 1: Această secțiune creează o subdiviziune numită Crearea etichetelor() .
• Secțiunea 2: În această secțiune, vom numi soarele Întreabă pentru coloană() să funcționeze.
• Secțiunea 3: În acest moment, această secțiune definește Formatul celulei pentru toate celulele, utilizând Celule proprietate.

Pasul 04 : Rulați codul pentru a crea etichete fără Word în Excel

• Acum, apăsați F5 pentru a rula sub Crearea etichetelor () .
• În consecință, veți vedea o casetă care va apărea pe ecran, ca în imaginea de mai jos.
• În acest moment, inserați numărul de coloane în care doriți să fie afișate etichetele.
• Apoi, faceți clic pe OK .

• În cele din urmă, veți avea etichetele create ca în imaginea de mai jos.

💡 Note :

• Această metodă va funcționa numai dacă datele se află într-o singură coloană.
• După ce ați creat etichetele, puteți adăuga margini folosind opțiunea Toate frontierele din cadrul opțiunilor Acasă tab.
• De asemenea, asigurați-vă că rulați sub Crearea etichetelor() În acest caz, dacă executați sub, Cerere pentru coloană () nu veți obține rezultatul dorit.
• În plus, nu introduceți nimic altceva decât adresele din coloana A .

Citește mai mult: Cum să creați etichete în Word din lista Excel (Ghid pas cu pas)

Cum să imprimați etichete în Excel fără Word

După ce ați creat etichetele folosind pașii menționați mai sus, acum poate doriți să imprimați etichetele Acum, dacă doriți să faceți acest lucru, puteți urma pașii de mai jos.

Pași :

• În primul rând, mergeți la Dispunerea paginii din partea de sus a paginii.
• În continuare, faceți clic pe butonul Configurarea paginii buton.

• După aceea, mergeți la Marje .
• Acum, editați fișierul Top și Partea de jos marjele la 0.5 și apoi editați fișierul Stânga și Dreapta marjele la 0.215 .
• În consecință, faceți clic pe OK .

• Acum, apăsați CTRL + P pentru a deschide fereastra Imprimare meniu.
• În acest moment, faceți clic pe Fără scalare și se vor afișa 4 opțiuni.
• În continuare, din aceste opțiuni, selectați Potriviți toate coloanele pe o pagină .

• În cele din urmă, sunteți gata să imprimați.
• În acest caz, previzualizarea imprimării va fi ca în imaginea de mai jos.

Citește mai mult: Cum să combinați etichetele de corespondență din Excel în Word (cu pași simpli)

Concluzie

Nu în ultimul rând, sper că ați găsit ceea ce căutați în acest articol. Dacă aveți întrebări, vă rog să lăsați un comentariu mai jos. De asemenea, dacă doriți să citiți mai multe articole de acest gen, puteți vizita site-ul nostru ExcelWIKI .