Den vanliga processen för utskrift av etiketter från Microsoft Excel innebär att du måste sammanföra kalkylblad med Microsoft Word. Men vissa människor föredrar att göra allt i Excel. Som tur är finns det ett sätt att skriva ut etiketter i Excel utan att behöva använda Word. Den här handledningen kommer att fokusera på hur du gör det.

Ladda ner övningsboken

Du kan ladda ner arbetsboken med datasetet och makrot som används i demonstrationen från länken nedan och använda den som mall.

Utskrift av etiketter utan Word.xlsm

Detta är filen med utskrivbara etiketter.

Utskrift av etiketter utan Word.pdf

Steg-för-steg-förfarande för att skriva ut etiketter i Excel utan Word

Till skriva ut etiketter direkt från Excel utan att använda Microsoft word, vi behöver bara skriva ut Excel-kalkylbladet med lämplig etikettstorlek. Vi kan omvandla cellstorleken så att den passar etikettstorleken. Vi kommer att använda VBA-kod för att utföra uppgiften åt oss.

Låt oss först anta att vi har följande dataset.

Vi ska först konvertera varje data till etiketter och sedan skriva ut dem i Excel utan hjälp av Word.

För att kunna använda Microsoft Visual Basic for Applications (VBA) i Excel behöver du först och främst följande Utvecklare i bandet. Klicka här för att se hur du kan visa fliken Utvecklare i bandet När du har det kan du fortsätta att följa de steg som vi har visat för att skriva ut etiketterna i Excel utan Word.

Steg 1: Kopiera data till ett nytt blad

VBA-kodens val här kan bara fungera korrekt om cellposterna börjar från cell A1 Vi måste alltså först ordna vår datauppsättning med alla etiketter på ett sådant sätt. Om din datauppsättning börjar någon annanstans än i cellen A1 , som vår, som började på cell B5 kopiera dem först till ett nytt kalkylblad och sätt dem i början. Det ska se ut ungefär så här.

Nu bör den vara redo att arbeta med VBA-koden.

Steg 2: Infoga VBA-kod

Därefter måste vi infoga VBA-koden för att justera etiketterna till önskad storlek och form. För att infoga VBA-koden-

• Gå först till Utvecklare i bandet.
• Välj sedan Visual Basic från Kod grupp.

• Som ett resultat öppnas VBA-fönstret. Välj nu Infoga i den och välj Modul från rullgardinsmenyn.

• Därefter går du till modulen och skriver ned följande kod.

 Den här koden skapar 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 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 

🔎 Kod Förklaring

Det finns två delar eller subs i denna VBA-kod - den CreateLabel sub och den AskForColumn Först förklarar vi vad som händer i AskForColumn-underdelen och sedan går vi vidare till CreateLabel-underdelen för att förklara hur koden fungerar.

Del 1:

För en bättre förståelse har vi delat upp avsnittet i olika delar. Titta på figuren i slutet av diskussionen.

👉 Avsnitt 1: I det här avsnittet anges namnet på under AskForColumn .

👉 Avsnitt 2: Vi har använt detta avsnitt för att deklarera tre variabler - refrg, vrb och data.

👉 Avsnitt 3: I det här avsnittet har vi ställt in värden för refrg och data.

👉 Avsnitt 4: Vid denna tidpunkt visar koden en inmatningsruta på kalkylbladet.

👉 Avsnitt 5: I detta avsnitt ska en För loop körs för det antal som anges i inmatningsrutan.

👉 Avsnitt 6: Den här delen av koden ändrar nu storleken på cellerna.

👉 Avsnitt 7: Slutligen rensar detta avsnitt det extra innehållet.

Del 2:

På samma sätt som i den föregående delen har vi delat upp även denna del i olika avsnitt. Följ figuren i slutet av diskussionen för den visuella delen.

👉 Avsnitt 1: Denna del av koden deklarerar undernamnet Createlabels .

👉 Avsnitt 2: Med detta kommando körs den föregående undertexten vid denna punkt i koden.

👉 Avsnitt 3: Denna del formaterar varje cell med hjälp av VBA Celler egendom.

Steg 3: Kör VBA-kod

När du har skrivit in koden stänger du VBA-fönstret. För att köra koden följer du följande steg.

• Gå först till Utvecklare i bandet.
• För det andra väljer du Makroer från Kod grupp.

• Nu i Makro väljer du Createlables under den Makronamn .

• Klicka sedan på Kör .
• Välj sedan det antal kolumner du vill ha. Vi väljer 3 för demonstrationen. Klicka sedan på OK .

Kalkylbladet kommer nu automatiskt att se ut så här.

Etiketterna är nu redo att skrivas ut i Excel utan att du behöver använda Word.

Läs mer: Hur man skriver ut etiketter från Excel i Word (med enkla steg)

Steg 4: Ange anpassade marginaler

För att skriva ut etiketterna måste vi ställa in rätt marginaler för den utskrivna sidan. För detta måste vi välja rätt storlek på ett sådant sätt att det inte påverkar etikettpositionen eller äventyrar några etiketter på arket. För att ställa in anpassade marginaler följer du de här stegen.

• Först och främst ska du gå till Sidlayout i bandet.
• Välj sedan Uppställning av sidan knappen som visas i figuren. Du hittar den längst ner till höger i varje grupp.

• Som ett resultat av detta har Uppställning av sidan öppnas. Gå nu till rutan Marginalerna i den.
• Välj sedan de önskade marginalerna för den tryckta sidan. Vi har valt följande.

• När du är klar klickar du på OK .

Steg 5: Välj skalningsalternativ för utskrift

Det är också viktigt att skalningen är korrekt när du skriver ut etiketter. Det som vi har gjort hittills är till exempel att skriva ut sidan så här.

Det är verkligen inte vårt mål, så vi måste få plats på en sida. För att göra det-

• Gå först till avsnittet för förhandsgranskning av utskrift genom att trycka på Ctrl+P på tangentbordet.
• Längst ner till vänster i vyn hittar du följande Inställningar Under den hittar du följande Skalning alternativ i slutet.

• Klicka nu på skalningsalternativet och välj Anpassningsblad på en sida från rullgardinsmenyn.

Skalningen av etiketterna är klar vid denna tidpunkt.

Läs mer: Hur man skriver ut adressetiketter i Excel (2 snabba sätt)

Steg 6: Skriv ut kalkylbladet

Medan du fortfarande är på skärmen för förhandsgranskning av utskrift klickar du på Skriv ut längst upp till vänster i vyn.

Klicka på den så skrivs alla etiketter ut i Excel utan hjälp från Word.

Saker att komma ihåg

👉 Innan du kör VBA-koden kontrollerar du att alla etiketter börjar i cell A1 .

👉 Välj rätt marginal och skalning innan du skriver ut så att alla etiketter får plats på sidan. Annars kan vissa etiketter klippas bort.

👉 VBA-kodåtgärder är oåterkalleliga, så se till att du har säkerhetskopierat dina nödvändiga data innan du kör en kod.

Slutsats

Detta var stegen för att skriva ut etiketter i Excel utan att använda Microsoft Word eller postsammanläggning. Förhoppningsvis kan du nu skriva ut etiketter i Excel utan Word. Jag hoppas att du fann den här guiden användbar och informativ. Om du har några frågor eller förslag kan du höra av dig till oss i kommentarerna nedan.

För fler guider av det här slaget, besök Exceldemy.com .