Etiketter är användbara för oss på många sätt. Du kan skapa etiketter i Excel med hjälp av Microsoft Word. Men i vissa fall kan detta vara mycket besvärligt och tidskrävande. Därför kanske du vill skapa etiketter i Excel utan Word. Den här artikeln visar en steg-för-steg-guide för hur du skapar etiketter i Excel utan Word.

Ladda ner övningsboken

Du kan ladda ner arbetsboken från länken nedan.

Vad är etiketter?

Generellt sett är en etikett ett klistermärke eller en papperslapp som beskriver det föremål eller den produkt som den fästs på. Etiketter används i många olika tillämpningar. Till exempel måste människor skapa etiketter för adresser så att de kan fästa dem på kuvertet. Vi kan också se etiketter som fästs på hårdvaran i våra datorer så att vi kan identifiera dem och känna till deras specifikationer.

4 steg för att skapa etiketter utan Word i Excel med VBA

Det är mycket bekvämt att skapa etiketter i Excel utan hjälp av Microsoft Word Dessutom sparar det mycket tid och krångel.

Låt oss anta att du har ett dataset med en lista över Adresser Du vill skicka dina julkort. Nu vill du skapa etiketter för dessa Adresser i Excel utan att använda Word. I det här fallet kan du följa stegen nedan för att göra det.

Steg 01 : Kopiera data till ett nytt ark i Excel

• Först kopierar du adresserna i kolumnen och klistrar in dem i en Nytt blad med utgångspunkt från cellen A1 .

Steg 02 : Öppna VBA-fönster och skapa en modul i Excel

• Tryck sedan på ALT + F11 för att öppna VBA fönster.
• Välj nu det ark som du för närvarande arbetar på och Högerklicka på på den. I det här fallet är det Blad 2 .
• Därefter väljer du i tur och ordning Infoga > Modul .

Så småningom kommer dessa steg att öppna VBA och och infoga en ny Modul i ditt blad.

Steg 03 : Infoga koden i Excel

• Kopiera följande kod och klistra in den i den tomma rutan.

 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 = 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("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 

💡 Kodförklaring:

I det här skedet ska jag förklara koden som användes ovan. Som du kan se finns det två delar av koden. Den ena delen innehåller sub AskForColumn () som kommer att betecknas som Del 01 ,och den andra innehåller under Skapa etiketter() som kommer att betecknas som Del 02 Nu ska jag förklara båda dessa delar en efter en.

Del 01 :

Vid det här laget har jag delat upp koden i olika sektioner och numrerat varje sektion i följande skärmdump. Därför kommer jag här att förklara varje sektion i enlighet med dess nummer.

• Avsnitt 1: I detta avsnitt skapas en underrubrik som heter AskForColumn .
• Avsnitt 2: Här deklarerar vi olika variabler.
• Avsnitt 3: I det här avsnittet räknar vi antalet rader i kolumnen.
• Avsnitt 4: Här skapar vi en InputBox för att fråga efter antalet kolumner.
• Avsnitt 5: I det här avsnittet kör vi en För slinga. Vi använder också Steg nyckelordet för att köra slingan lika många gånger som vi anger i InputBox .
• Avsnitt 6 : I det här skedet använder vi detta avsnitt för att fördela kolumnens celler i olika rader och kolumner med hjälp av programmet Transponera och egendom Ändra storlek .
• Avsnitt 7: Slutligen tar vi bort det extra innehållet i detta avsnitt.

Del 02 :

Även i det här fallet har jag delat upp koden i olika sektioner och numrerat varje sektion i följande skärmdump. Därför kommer jag här att förklara varje sektion i enlighet med dess nummer.

• Avsnitt 1: I detta avsnitt skapas en underrubrik som heter Skapa etiketter() .
• Avsnitt 2: I det här avsnittet kallar vi solen för AskForColumn() att köra.
• Avsnitt 3: I det här avsnittet definieras i detta skede Cellformat för alla celler med hjälp av Celler egendom.

Steg 04 : Kör koden för att skapa etiketter utan Word i Excel

• Tryck nu på F5 för att köra under Skapa etiketter () .
• Du kommer då att se en ruta på skärmen som i skärmbilden nedan.
• Lägg nu in det antal kolumner som du vill ha etiketterna i.
• Klicka sedan på OK .

• Till slut har du skapat etiketter som i skärmbilden nedan.

💡 Anteckningar :

• Den här metoden fungerar bara om du har dina data i en enda kolumn.
• När du har skapat etiketterna kan du lägga till ramar med hjälp av Alla gränser alternativ i Hem fliken.
• Se också till att du kör sub Skapa etiketter() I det här fallet, om du kör sub, AskForColumn () du kommer inte att få det önskade resultatet.
• Ange inte heller något annat än adresserna i kolumnen A .

Läs mer: Hur man skapar etiketter i Word från Excel-listan (steg för steg)

Hur man skriver ut etiketter i Excel utan Word

När du har skapat etiketterna med hjälp av de ovan nämnda stegen kan du nu vilja skriva ut etiketterna Om du vill göra det kan du följa nedanstående steg.

Steg :

• Gå först till Sidlayout från toppen av sidan.
• Klicka sedan på Uppställning av sidan knapp.

• Därefter går du till Marginalerna .
• Redigera nu Topp och Botten marginaler till 0.5 och sedan redigera Vänster och Höger marginaler till 0.215 .
• Klicka därför på OK .

• Tryck nu på CTRL + P för att öppna Skriv ut meny.
• Klicka nu på Ingen skalning och 4 alternativ visas.
• Därefter väljer du bland dessa alternativ följande Anpassa alla kolumner på en sida .

• Slutligen är du redo att skriva ut.
• I det här fallet kommer utskriftsförhandsgranskningen att se ut som i skärmdumpen nedan.

Läs mer: Hur man sammanfogar etiketter från Excel till Word (med enkla steg)

Slutsats

Sist men inte minst hoppas jag att du hittade vad du letade efter i den här artikeln. Om du har några frågor kan du skriva en kommentar nedan. Om du vill läsa fler artiklar som den här kan du besöka vår webbplats. ExcelWIKI .