Cuprins
Procesul obișnuit de tipărire a etichetelor din Microsoft Excel implică fuzionarea foilor de calcul cu Microsoft Word. Dar unii oameni preferă să finalizeze toate sarcinile în Excel. Din fericire, există o modalitate de a imprima etichetele în Excel fără a se implica în Word. Acest tutorial se va concentra pe modul în care se poate realiza acest lucru.
Descărcați caietul de practică
Puteți descărca registrul de lucru cu setul de date și macroul utilizat pentru demonstrație de la linkul de mai jos și îl puteți utiliza ca model.
Imprimă etichete fără Word.xlsm
Acesta este fișierul care conține etichete imprimabile.
Imprimă etichete fără Word.pdf
Procedura pas cu pas pentru a imprima etichete în Excel fără Word
La tipărirea etichetelor direct din Excel fără a utiliza Microsoft Word, trebuie doar să imprimăm foaia de calcul Excel cu dimensiunea corespunzătoare a etichetei. Putem transforma dimensiunea celulei care se potrivește cu dimensiunea etichetei. Vom utiliza codul VBA pentru a îndeplini această sarcină pentru noi.
În primul rând, să presupunem că avem următorul set de date.
Vom converti mai întâi fiecare dată în etichete și apoi le vom imprima în Excel, fără a folosi niciun ajutor din Word.
Pentru a utiliza Microsoft Visual Basic pentru aplicații (VBA) în Excel, aveți nevoie mai întâi de Dezvoltator Faceți clic aici pentru a vedea cum puteți să afișați fila Dezvoltator pe panglica dvs. Odată ce ați obținut acest lucru, continuați să urmați pașii pe care i-am demonstrat pentru a imprima aceste etichete în Excel fără Word.
Pasul 1: Copierea datelor în foaia nouă
Selecția codului VBA de aici poate funcționa corect numai dacă intrările din celule încep de la celula A1 Așadar, trebuie mai întâi să aranjăm setul de date care conține toate etichetele în acest mod. În cazul în care setul de date începe în altă parte decât în celula A1 , ca a noastră, care a început la celula B5 , copiați-le mai întâi într-o nouă foaie de calcul și puneți-le chiar la început. Ar trebui să arate cam așa.
Acum ar trebui să fie gata să lucreze cu codul VBA.
Pasul 2: Introduceți codul VBA
În continuare, trebuie să inserăm codul VBA pentru a ajusta etichetele la dimensiunea și forma dorită. Pentru a insera codul VBA-
- În primul rând, mergeți la Dezvoltatorii de pe panglică.
- Apoi selectați Visual Basic de la Cod grup.
- Ca urmare, se va deschide fereastra VBA. Acum selectați Introduceți din acesta și selectați Modul din meniul derulant.
- După aceea, mergeți la modul și scrieți următorul cod.
'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 = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .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
🔎 Cod Explicație
Există două părți sau subsoluri în acest cod VBA- partea CreateLabel sub și ÎntreabăPentruColoană Mai întâi, vom explica ce se întâmplă în subpunctul AskForColumn și apoi vom trece la subpunctul CreateLabel pentru a explica cum funcționează codul.
Partea 1:
Pentru o mai bună înțelegere, am împărțit porțiunea în diferite secțiuni. Priviți figura de la sfârșitul discuției.
👉
Secțiunea 1: Această secțiune declară numele subdiviziunii ÎntreabăPentruColoană .
👉
Secțiunea 2: Am folosit această secțiune pentru a declara trei variabile - refrg, vrb și data.
👉
Secțiunea 3: În această secțiune, am stabilit valorile pentru refrg și date.
👉
Secțiunea 4: În acest moment, codul afișează o casetă de introducere a datelor în foaia de calcul.
👉
Secțiunea 5: În această secțiune, o Pentru se execută o buclă pentru numărul introdus în caseta de introducere.
👉
Secțiunea 6: Această secțiune a codului redimensionează acum celulele.
👉
Secțiunea 7: În cele din urmă, această secțiune șterge conținutul suplimentar.
Partea a doua:
La fel ca în partea anterioară, am împărțit și această subdiviziune în diferite secțiuni. Urmăriți figura de la sfârșitul discuției pentru partea vizuală.
👉
Secțiunea 1: Această parte a codului declară numele sub Creați etichete .
👉
Secțiunea 2: Această comandă execută subprogramul anterior în acest punct al codului.
👉
Secțiunea 3: Această porțiune formatează fiecare celulă folosind VBA Celule proprietate.
Pasul 3: Executați codul VBA
După ce ați introdus codul, închideți fereastra VBA. Pentru a executa codul acum, urmați pașii de mai jos.
- În primul rând, mergeți la Dezvoltator de pe panglică.
- În al doilea rând, selectați Macros de la Cod grup.
- Acum, în Macro caseta, selectați Createlables în cadrul Numele macroului .
- Apoi faceți clic pe Rulați .
- În continuare, selectați numărul de coloane pe care îl doriți. Pentru demonstrație vom selecta 3. Apoi faceți clic pe OK .
Foaia de calcul va arăta acum în mod automat astfel.
Etichetele sunt acum gata să fie tipărite în Excel, fără a fi nevoie să folosiți Word.
Citește mai mult: Cum să imprimați etichete din Excel în Word (cu pași simpli)
Pasul 4: Setați marjele personalizate
Pentru a imprima etichetele, trebuie să setăm marjele corecte pentru pagina tipărită. Pentru aceasta, trebuie să alegem dimensiunea potrivită în așa fel încât să nu afecteze poziția etichetelor și să nu compromită nicio etichetă de pe foaie. Pentru a seta marjele personalizate, urmați acești pași.
- Mai întâi de toate, mergeți la Dispunerea paginii de pe panglică.
- Apoi selectați Configurarea paginii după cum se arată în figură. Îl puteți găsi în partea dreaptă jos a fiecărui grup.
- Ca urmare, se va Configurarea paginii Acum mergeți la caseta Marje în ea.
- Selectați apoi lungimile marginilor dorite pentru pagina tipărită. Noi am selectat următoarele.
- După ce ați terminat, faceți clic pe OK .
Pasul 5: Selectați opțiunile de scalare pentru imprimare
Scalarea corectă este importantă și pentru imprimarea etichetelor. De exemplu, ceea ce am făcut până acum va imprima pagina astfel.
Ceea ce cu siguranță nu este scopul nostru. Deci trebuie să punem foaia pe o pagină. Pentru a face asta...
- Mai întâi, accesați secțiunea de previzualizare a imprimării apăsând pe Ctrl+P pe tastatură.
- În partea stângă jos a vizualizării, puteți găsi Setări Sub aceasta, veți găsi Scalare opțiuni la sfârșit.
- Acum faceți clic pe opțiunea de scalare și selectați Foaie de montaj pe o pagină din meniul derulant.
În acest moment, scalarea etichetelor va fi completă.
Citește mai mult: Cum să imprimați etichete de adrese în Excel (2 moduri rapide)
Pasul 6: Imprimă foaia de calcul
În timp ce vă aflați încă pe ecranul de previzualizare a imprimării, faceți clic pe Imprimare din stânga sus a vizualizării.
Dați clic pe ea și toate etichetele vor fi tipărite în Excel fără niciun ajutor din Word.
Lucruri de reținut
👉 Înainte de a rula codul VBA, asigurați-vă că toate etichetele dvs. încep în celula A1 .
👉 Selectați marja și scalarea corespunzătoare înainte de imprimare, astfel încât toate etichetele să încapă pe pagină. În caz contrar, unele ar putea fi tăiate.
👉 Acțiunile de cod VBA sunt ireversibile. Așadar, asigurați-vă că aveți datele necesare în copie de rezervă înainte de a executa una.
Concluzie
Aceștia au fost pașii de urmat pentru a imprima etichete în Excel fără a utiliza sau a îmbina prin corespondență Microsoft Word. Sperăm că acum sunteți în măsură să imprimați etichete în Excel fără Word. Sper că ați găsit acest ghid util și informativ. Dacă aveți întrebări sau sugestii, anunțați-ne în comentariile de mai jos.
Pentru mai multe ghiduri ca acesta, vizitați Exceldemy.com .