Etiketter er nyttige for os på mange måder. Du kan oprette etiketter i Excel ved hjælp af Microsoft Word. Men i nogle tilfælde kan det være meget besværligt og tidskrævende. Så du vil måske gerne oprette etiketter i Excel uden Word. Denne artikel viser en trin-for-trin-guide for, hvordan du opretter etiketter i Excel uden Word.

Download arbejdsbog til øvelser

Du kan downloade arbejdsbogen fra nedenstående link.

Hvad er etiketter?

Generelt set er en etiket et klistermærke eller et stykke papir, der beskriver den genstand eller det produkt, som den er fastgjort til. Etiketter anvendes til mange forskellige formål. F.eks. skal folk lave etiketter til adresser, så de kan fastgøre dem til kuverten. Vi kan også se etiketter fastgjort til hardwaren i vores computere, så vi kan identificere dem og kende deres specifikationer.

4 trin til at oprette etiketter uden Word i Excel ved hjælp af VBA

Det er meget praktisk at oprette etiketter i Excel uden hjælp fra Microsoft Word . Desuden sparer det en masse tid og besvær.

Lad os nu antage, at du har et datasæt med en liste over Adresser du ønsker at sende dine julekort. På dette tidspunkt vil du oprette etiketter til disse Adresser i Excel uden at bruge Word. I dette tilfælde kan du følge nedenstående trin for at gøre det.

Trin 01 : Kopier data til et nyt ark i Excel

• Først kopierer du adresserne i kolonnen og indsætter dem i en Nyt ark ud fra celle A1 .

Trin 02 : Åbn VBA-vindue og opret et modul i Excel

• Derefter skal du trykke på ALT + F11 for at åbne den VBA vindue.
• Vælg nu det ark, du arbejder på i øjeblikket, og Højreklik på på den. I dette tilfælde er det Ark 2 .
• Vælg derefter sekventielt Indsæt > Modul .

Disse trin vil i sidste ende åbne den VBA vindue og indsæt en ny Modul i dit ark.

Trin 03 : Indsæt koden i Excel

• På dette tidspunkt kopierer du følgende kode og indsætter den i det tomme felt.

 '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 = 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 

💡 Kodeforklaring:

På dette tidspunkt vil jeg forklare den kode, der er brugt ovenfor. Som du kan se, er der to dele af denne kode. Den ene del indeholder sub AskForColumn () som betegnes som Del 01 ,og den anden indeholder den under Createlabels() som betegnes som Del 02 Jeg vil nu forklare begge dele en for en.

Del 01 :

På dette tidspunkt har jeg opdelt koden i forskellige sektioner og nummereret hver af sektionerne i det følgende skærmbillede. Derfor vil jeg her forklare hver sektion i henhold til deres nummer.

• Afdeling 1: Dette afsnit opretter en underafdeling ved navn AskForColumn .
• Afdeling 2: Her angiver vi forskellige variabler.
• Afdeling 3: I dette afsnit tæller vi antallet af rækker i kolonnen.
• Afsnit 4: Her opretter vi nu en InputBox for at spørge om antallet af kolonner.
• Afdeling 5: I dette afsnit kører vi en Til Vi bruger også Trin nøgleordet for at køre løkken det antal gange, vi har sat i InputBox .
• Afdeling 6 : På dette stadium bruger vi dette afsnit til at fordele kolonnens celle i forskellige rækker og kolonner ved hjælp af programmet Transponere og ejendom Ændre størrelse .
• Afdeling 7: Endelig sletter vi det ekstra indhold i dette afsnit.

Del 02 :

I dette tilfælde har jeg også opdelt koden i forskellige sektioner og nummereret hver enkelt sektion i det følgende skærmbillede. Derfor vil jeg her forklare hver sektion i henhold til deres nummer.

• Afdeling 1: Dette afsnit opretter en underafdeling ved navn Createlabels() .
• Afdeling 2: I dette afsnit kalder vi solen AskForColumn() til at køre.
• Afdeling 3: På dette tidspunkt definerer dette afsnit den Celleformat for alle cellerne ved hjælp af Celler ejendom.

Trin 04 : Kør koden for at oprette etiketter uden Word i Excel

• Tryk nu på F5 til at køre under Oprettelse afatelabels () .
• Derefter vises en boks på skærmen som i skærmbilledet nedenfor.
• Indsæt nu det antal kolonner, som du vil have dine etiketter i.
• Klik derefter på OK .

• Til sidst vil du have oprettet dine etiketter som i skærmbilledet nedenfor.

💡 Noter :

• Denne metode fungerer kun, hvis du har dine data i en enkelt kolonne.
• Når du har oprettet etiketterne, kan du tilføje rammer ved hjælp af Alle grænser indstillinger i Hjem fanebladet.
• Sørg også for at køre sub Createlabels() I dette tilfælde, hvis du kører sub, AskForColumn () får du ikke det ønskede resultat.
• Desuden må du ikke indtaste andet end adresserne i kolonnen A .

Læs mere: Sådan oprettes etiketter i Word fra Excel-liste (trin for trin-vejledning)

Sådan udskriver du etiketter i Excel uden Word

Når du har oprettet etiketterne ved hjælp af de ovennævnte trin, kan du nu udskrive etiketterne Hvis du ønsker at gøre det, kan du følge nedenstående trin.

Trin :

• Først skal du gå til Sidelayout fanen øverst på siden.
• Klik derefter på Opsætning af side knap.

• Derefter skal du gå til Margener .
• Nu skal du redigere Top og Nederst margener til 0.5 og rediger derefter Venstre og Højre margener til 0.215 .
• Klik derfor på OK .

• Tryk nu på CTRL + P for at åbne den Udskriv menu.
• På dette tidspunkt skal du klikke på Ingen skalering og der vises 4 muligheder.
• Vælg derefter blandt disse muligheder Indpasning af alle kolonner på én side .

• Endelig er du klar til at udskrive.
• I dette tilfælde vil din udskriftsfremvisning se ud som i skærmbilledet nedenfor.

Læs mere: Sådan Mail Merge Labels fra Excel til Word (med nemme trin)

Konklusion

Sidst men ikke mindst håber jeg, at du har fundet det, du søgte i denne artikel. Hvis du har spørgsmål, kan du skrive en kommentar nedenfor. Hvis du vil læse flere artikler som denne, kan du besøge vores hjemmeside ExcelWIKI .