Labels zijn op veel manieren nuttig voor ons. U kunt labels maken in Excel met behulp van Microsoft Word. Maar in sommige gevallen kan dit veel gedoe en tijdrovend zijn. Daarom wilt u misschien labels maken in Excel zonder Word. Dit artikel toont een stap-voor-stap handleiding voor het maken van labels in Excel zonder Word.

Download Praktijk Werkboek

U kunt het oefenwerkboek downloaden via onderstaande link.

Wat zijn etiketten?

Over het algemeen is een etiket een sticker of een stuk papier met een beschrijving van het voorwerp of product waarop het is bevestigd. Etiketten worden gebruikt in een breed scala van toepassingen. Mensen moeten bijvoorbeeld etiketten maken voor adressen, zodat ze die op de envelop kunnen bevestigen. Ook zien we etiketten bevestigd aan de hardware in onze computers, zodat we ze kunnen identificeren en hun specificaties kennen.

4 stappen om labels te maken zonder Word in Excel met behulp van VBA

Het is erg handig om labels te maken in Excel zonder de hulp van Microsoft Word Bovendien bespaart het veel tijd en gedoe.

Laten we aannemen dat u een dataset hebt met een lijst van Adressen u wilt uw kerstkaarten versturen. Op dit punt wilt u etiketten maken voor deze Adressen in Excel zonder Word te gebruiken. In dat geval kunt u de onderstaande stappen volgen om dat te doen.

Stap 01 Gegevens kopiëren naar een nieuw blad in Excel

• Kopieer eerst de adressen in de kolom en plak ze in een Nieuw blad vanuit de cel A1 .

Stap 02 Open VBA-venster en maak een module in Excel

• Druk vervolgens op ALT + F11 om de VBA raam.
• Selecteer nu het blad waaraan u momenteel werkt en Rechts klikken op het. In dit geval is het Blad 2 .
• Selecteer vervolgens achtereenvolgens Plaats > Module .

Uiteindelijk zullen deze reeksen stappen de VBA venster en voeg een nieuwe Module in je blad.

Stap 03 : De code invoegen in Excel

• Kopieer nu de volgende code en plak die in het lege vak.

 'Deze code maakt labels in 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 Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .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 

💡 Code Uitleg:

In dit stadium zal ik de hierboven gebruikte code uitleggen. Zoals u kunt zien, zijn er twee delen van deze code. Het ene deel bevat de sub AskForColumn () die zal worden aangeduid als Deel 01 en de andere bevat de sub Creëer labels() die zal worden aangeduid als Deel 02 Nu zal ik beide delen een voor een uitleggen.

Deel 01 :

Op dit punt heb ik de code verdeeld in verschillende secties en elke sectie genummerd in de volgende schermafbeelding. Bijgevolg zal ik hier elke sectie uitleggen volgens hun nummer.

• Sectie 1: Deze sectie creëert een sub genaamd AskForColumn .
• Sectie 2: Hier declareren we verschillende variabelen.
• Sectie 3: Hier tellen we het aantal rijen in de kolom.
• Sectie 4: Nu maken we hier een InputBox om het aantal kolommen te vragen.
• Sectie 5: In dit deel voeren we een Voor lus. Ook gebruiken we de Stap sleutelwoord om de lus het aantal keren te laten lopen dat we in de InputBox .
• Sectie 6 : In dit stadium gebruiken we deze sectie om de cel van de kolom te verdelen in verschillende rijen en kolommen door gebruik te maken van toepassing Transponeer en eigendom Formaat wijzigen .
• Sectie 7: Tenslotte schrappen we de extra inhoud in deze sectie.

Deel 02 :

Ook in dit geval heb ik de code in verschillende secties verdeeld en elke sectie in het volgende screenshot genummerd. Bijgevolg zal ik hier elke sectie uitleggen volgens hun nummer.

• Sectie 1: Deze sectie creëert een sub genaamd Creëer labels() .
• Sectie 2: In dit deel noemen we de zon AskForColumn() om te lopen.
• Sectie 3: Op dit punt definieert deze afdeling de Celformaat voor alle cellen met behulp van de Cellen eigendom.

Stap 04 Voer de code uit om labels te maken zonder Word in Excel

• Druk nu op F5 om de sub Labels aanmaken () .
• U ziet dan een vakje op uw scherm verschijnen zoals in de onderstaande schermafbeelding.
• Voer nu het aantal kolommen in waarin u uw labels wilt hebben.
• Klik vervolgens op OK .

• Tenslotte heeft u uw etiketten gemaakt zoals in de schermafbeelding hieronder.

💡 Opmerkingen :

• Deze methode werkt alleen als de gegevens in een enkele kolom staan.
• Nadat u de etiketten hebt gemaakt, kunt u randen toevoegen met het programma Alle grenzen opties in de Home tab.
• Zorg er ook voor dat je de sub Creëer labels() In dit geval, als je de sub draait, AskForColumn () krijg je niet het gewenste resultaat.
• Voer bovendien niets anders in dan de adressen in kolom A .

Lees meer: Hoe labels maken in Word vanuit Excel lijst (stap-voor-stap handleiding)

Hoe etiketten afdrukken in Excel zonder Word

Nadat u de etiketten met de bovenstaande stappen hebt gemaakt, wilt u nu misschien de etiketten afdrukken Als u dat wilt doen, kunt u de onderstaande stappen volgen.

Stappen :

• Ga eerst naar de Pagina-indeling tabblad bovenaan de pagina.
• Klik vervolgens op de Pagina instelling knop.

• Ga daarna naar Marges .
• Bewerk nu de Top en Onderaan marges naar 0.5 en bewerk dan de Links en Rechts marges naar 0.215 .
• Klik bijgevolg op OK .

• Druk nu op CTRL + P om de Afdrukken menu.
• Klik nu op Geen schaling en er verschijnen 4 opties.
• Selecteer vervolgens uit die opties Alle kolommen op één pagina .

• Eindelijk bent u klaar om af te drukken.
• In dat geval ziet het afdrukvoorbeeld eruit zoals in de onderstaande schermafbeelding.

Lees meer: Etiketten samenvoegen van Excel naar Word (in eenvoudige stappen)

Conclusie

Last but not the least, ik hoop dat u in dit artikel gevonden hebt wat u zocht. Als u nog vragen hebt, laat dan hieronder een reactie achter. Ook als u meer artikelen als deze wilt lezen, kunt u onze website bezoeken ExcelWIKI .