Den sædvanlige proces til udskrivning af etiketter fra Microsoft Excel involverer mail merging af regneark med Microsoft Word. Men nogle mennesker foretrækker at udføre alle opgaverne i Excel. Heldigvis er der en måde at udskrive etiketter i Excel på uden at involvere sig i Word. Denne vejledning vil fokusere på, hvordan man opnår dette.

Download arbejdsbog til øvelser

Du kan downloade arbejdsmappen med datasættet og makroen, der er brugt til demonstrationen, fra linket nedenfor og bruge den som din skabelon.

Udskriv etiketter uden Word.xlsm

Dette er filen med de udskrivbare etiketter.

Udskriv etiketter uden Word.pdf

Trin-for-trin procedure til at udskrive etiketter i Excel uden Word

Til udskrive etiketter direkte fra Excel uden at bruge Microsoft Word, skal vi blot udskrive Excel-regnearket med den rette etiketstørrelse. Vi kan omdanne cellestørrelsen, så den passer til etiketstørrelsen. Vi vil bruge VBA-kode til at udføre opgaven for os.

Lad os først antage, at vi har følgende datasæt.

Vi vil først konvertere hver data til etiketter og derefter udskrive dem i Excel uden hjælp fra Word.

Hvis du vil bruge Microsoft Visual Basic for Applications (VBA) i Excel, skal du først bruge Udvikler fanen på dit bånd. Klik her for at se, hvordan du kan vise fanen Udvikler på dit bånd Når du har det, kan du fortsætte med at følge de trin, vi har vist for at udskrive disse etiketter i Excel uden Word.

Trin 1: Kopier data til nyt ark

VBA-kodens valg her kan kun fungere korrekt, hvis celleposterne starter fra celle A1 Så vi skal først arrangere vores datasæt med alle etiketterne på en sådan måde. Hvis dit datasæt starter et andet sted end celle A1 , som vores, der startede på celle B5 , kopier dem først ind i et nyt regneark og sæt dem helt i begyndelsen. Det skal se nogenlunde sådan her ud.

Nu skulle den være klar til at arbejde med VBA-koden.

Trin 2: Indsæt VBA-kode

Dernæst skal vi indsætte VBA-koden for at justere etiketterne til den ønskede størrelse og form. Sådan indsætter du VBA-kode-

• Først skal du gå til Udviklere på fanen i farvebåndet.
• Vælg derefter Visual Basic fra den Kode gruppe.

• VBA-vinduet åbnes som følge heraf. Vælg nu VBA-vinduet Indsæt fanen i den og vælg Modul fra rullemenuen.

• Derefter skal du gå til modulet og skrive følgende kode ned.

 'Denne kode vil oprette etiketter i 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 With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .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("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 

🔎 Kode Forklaring

Der er to dele eller subs i denne VBA-kode - den CreateLabel sub og og AskForColumn Først vil vi forklare, hvad der foregår i AskForColumn-underfunktionen og derefter gå videre til CreateLabel-underfunktionen for at forklare, hvordan koden fungerer.

Del 1:

For at gøre det lettere at forstå, har vi opdelt afsnittet i forskellige dele. Se figuren i slutningen af diskussionen.

👉 Afdeling 1: I dette afsnit angives navnet på den under AskForColumn .

👉 Afdeling 2: Vi har brugt dette afsnit til at erklære tre variabler - refrg, vrb og data.

👉 Afdeling 3: I dette afsnit har vi fastsat værdier for refrg og data.

👉 Afsnit 4: På dette tidspunkt viser koden et indtastningsfelt på regnearket.

👉 Afdeling 5: I denne sektion skal en Til løkken køres for det tal, der er indtastet i indtastningsfeltet.

👉 Afdeling 6: Denne del af koden ændrer nu størrelsen på cellerne.

👉 Afdeling 7: Endelig rydder dette afsnit det ekstra indhold.

Del 2:

Ligesom i den foregående del har vi også inddelt denne del i forskellige afsnit. Følg figuren i slutningen af diskussionen for at se den visuelle del.

👉 Afdeling 1: Denne del af koden erklærer undernavnet Createlabels .

👉 Afdeling 2: Denne kommando kører den forrige sub på dette punkt i koden.

👉 Afdeling 3: Denne del formaterer hver celle ved hjælp af VBA Celler ejendom.

Trin 3: Kør VBA-kode

Når du har indtastet koden, lukker du VBA-vinduet. Følg disse trin for at køre koden nu.

• Først skal du gå til Udvikler på fanen i farvebåndet.
• For det andet skal du vælge Makroer fra den Kode gruppe.

• Nu i den Makro boksen, vælg Createlables under den Makronavn .

• Klik derefter på Kør .
• Vælg derefter det antal kolonner, du ønsker. Vi vælger 3 til demonstrationen. Klik derefter på OK .

Regnearket vil nu automatisk se sådan ud.

Etiketterne er nu klar til at blive udskrevet i Excel uden brug af Word.

Læs mere: Sådan udskriver du etiketter fra Excel i Word (med nemme trin)

Trin 4: Indstil brugerdefinerede margener

For at udskrive etiketterne skal vi indstille de korrekte marginer for den udskrevne side. Vi skal derfor vælge den rigtige størrelse på en sådan måde, at det ikke påvirker etiketpositionen eller kompromitterer nogen etiketter på arket. Følg disse trin for at indstille brugerdefinerede marginer.

• Først og fremmest skal du gå til Sidelayout på fanen i farvebåndet.
• Vælg derefter den Opsætning af side knappen som vist i figuren. Du finder den nederst til højre i hver gruppe.

• Som følge heraf har Opsætning af side boksen vil dukke op. Gå nu til Margener fanen i den.
• Vælg derefter de ønskede margenlængder for din trykte side. Vi har valgt følgende.

• Når du er færdig, skal du klikke på OK .

Trin 5: Vælg skaleringsindstillinger til udskrivning

Korrekt skalering er også vigtig for udskrivning af etiketter. Det, vi har gjort indtil nu, vil f.eks. udskrive siden på denne måde.

Det er bestemt ikke vores mål, så vi er nødt til at få arket til at passe på én side. For at gøre det-

• Først skal du gå til udskriftsoversigten ved at trykke på Ctrl+P på dit tastatur.
• Nederst til venstre i visningen kan du finde Indstillinger . Herunder finder du den Skalering muligheder i slutningen.

• Klik nu på skaleringsindstillingen, og vælg Fit Sheet på én side fra rullemenuen.

Skaleringen af etiketterne vil være færdig på dette tidspunkt.

Læs mere: Sådan udskriver du adresseetiketter i Excel (2 hurtige måder)

Trin 6: Udskriv regnearket

Mens du stadig er på skærmen med udskriftsoversigt, skal du klikke på Udskriv øverst til venstre i visningen.

Klik på den, og du vil udskrive alle etiketterne i Excel uden hjælp fra Word.

Ting at huske

👉 Før du kører VBA-koden, skal du sikre dig, at alle dine etiketter starter ved celle A1 .

👉 Vælg den rigtige margen og skalering, før du udskriver, så alle etiketterne passer på siden. Ellers kan nogle af dem blive klippet af.

👉 VBA-kodehandlinger er irreversible, så sørg for, at du har sikkerhedskopieret de nødvendige data, før du kører en.

Konklusion

Dette var de trin, du skal følge for at udskrive etiketter i Excel uden at bruge eller sammenføje Microsoft Word. Forhåbentlig kan du nu udskrive etiketter i Excel uden Word. Jeg håber, at du fandt denne vejledning nyttig og informativ. Hvis du har spørgsmål eller forslag, så lad os vide det i kommentarerne nedenfor.

Du kan finde flere vejledninger som denne på Exceldemy.com .