Tarrat ovat meille hyödyllisiä monin tavoin. Voit luoda tarroja Excelissä Microsoft Wordin avulla. Joissakin tapauksissa tämä voi kuitenkin olla vaivalloista ja aikaa vievää. Haluat ehkä luoda tarroja Excelissä ilman Wordia. Tässä artikkelissa esitellään vaiheittainen opas siitä, miten luoda tarroja Excelissä ilman Wordia.

Lataa harjoituskirja

Voit ladata harjoituskirjan alla olevasta linkistä.

Mitä etiketit ovat?

Yleisesti ottaen etiketti on tarra tai paperinpala, joka kuvaa esinettä tai tuotetta, johon se on kiinnitetty. Etikettejä käytetään monenlaisissa sovelluksissa. Esimerkiksi ihmisten on luotava etikettejä osoitteisiin, jotta he voivat kiinnittää ne kirjekuoreen. Myös tietokoneiden laitteistoihin on kiinnitetty etikettejä, jotta voimme tunnistaa ne ja tietää niiden tekniset tiedot.

4 vaihetta tarrojen luomiseen ilman Wordia Excelissä VBA: n avulla

On erittäin kätevää luoda tarroja Excelissä ilman apua Microsoft Word Lisäksi se säästää paljon aikaa ja vaivaa.

Oletetaan nyt, että sinulla on tietokokonaisuus, jossa on luettelo Osoitteet haluat lähettää joulukorttisi. Tässä vaiheessa haluat luoda tarrat näihin joulukortteihin. Osoitteet Excelissä käyttämättä Wordia. Tässä tapauksessa voit tehdä sen noudattamalla alla olevia ohjeita.

Vaihe 01 : Kopioi tiedot uuteen Excel-arkkiin

• Kopioi ensin sarakkeessa olevat osoitteet ja liitä ne sarakkeeseen Uusi arkki alkaen solusta A1 .

Vaihe 02 : Avaa VBA-ikkuna ja luo moduuli Excelissä

• Paina sitten ALT + F11 avataksesi VBA ikkuna.
• Valitse nyt arkki, jota parhaillaan työstät ja Klikkaa hiiren kakkospainikkeella Tässä tapauksessa se on Arkki 2 .
• Valitse seuraavaksi peräkkäin Lisää > Moduuli .

Lopulta nämä askelsarjat avaavat VBA ikkunaan ja lisää uusi Moduuli arkissasi.

Vaihe 03 : Lisää koodi Exceliin

• Kopioi tässä vaiheessa seuraava koodi ja liitä se tyhjään ruutuun.

 'Tämä koodi luo tarrat Exceliin 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("Syötä lukumäärä sarakkeistaColumns 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 

💡 Koodi Selitys:

Tässä vaiheessa selitän edellä käytetyn koodin. Kuten näette, koodissa on kaksi osaa. Toinen osa sisältää sub AskForColumn () jota kutsutaan nimellä Osa 01 ,ja toinen sisältää sub Createlabels() jota kutsutaan nimellä Osa 02 Selitän nämä molemmat osat yksi kerrallaan.

Osa 01 :

Tässä vaiheessa olen jakanut koodin eri osioihin ja numeroinut kaikki osiot seuraavassa kuvakaappauksessa. Näin ollen selitän tässä jokaisen osion niiden numeron mukaan.

• 1 jakso: Tässä osassa luodaan alaosio nimeltä AskForColumn .
• 2 jakso: Tässä ilmoitetaan erilaisia muuttujia.
• 3 jakso: Tässä osassa lasketaan sarakkeen rivien lukumäärä.
• 4 jakso: Tässä luodaan nyt InputBox kysyäksesi sarakkeiden lukumäärää.
• 5 jakso: Tässä jaksossa suoritetaan Osoitteessa Lisäksi käytämme Vaihe avainsanalla suoritat silmukan niin monta kertaa, kuin olemme laittaneet arvoon InputBox .
• 6 jakso : Tässä vaiheessa käytämme tätä osiota sarakkeen solun jakamiseen eri riveille ja sarakkeisiin käyttämällä sovellusta Transpose ja omaisuus Koon muuttaminen .
• 7 §: Lopuksi poistamme tämän osan ylimääräisen sisällön.

Osa 02 :

Tässäkin tapauksessa olen jakanut koodin eri osiin ja numeroinut jokaisen osion seuraavassa kuvakaappauksessa. Näin ollen selitän tässä jokaisen osion numeron mukaan.

• 1 jakso: Tässä osassa luodaan alaosio nimeltä Createlabels() .
• 2 jakso: Tässä jaksossa kutsumme aurinkoa AskForColumn() juosta.
• 3 jakso: Tässä vaiheessa tässä jaksossa määritellään Solun muoto kaikkien solujen osalta käyttäen Solut omaisuus.

Vaihe 04 : Suorita koodi etikettien luomiseksi ilman Wordia Excelissä

• Paina nyt F5 ajaa aliohjelman Createlabels () .
• Tämän jälkeen näytöllesi ilmestyy alla olevan kuvakaappauksen kaltainen ruutu.
• Lisää tässä vaiheessa haluamasi määrä sarakkeita.
• Napsauta sitten OK .

• Lopuksi saat luotua alla olevan kuvakaappauksen kaltaiset tarrat.

💡 Huomautukset :

• Tämä menetelmä toimii vain, jos tiedot ovat yhdessä sarakkeessa.
• Kun olet luonut tarrat, voit lisätä reunukset käyttämällä komentoa Kaikki rajat vaihtoehdot Etusivu välilehti.
• Varmista myös, että suoritat sub Createlabels() . Tässä tapauksessa, jos suoritat sub, AskForColumn () et saa haluamaasi tulosta.
• Älä myöskään kirjoita mitään muuta kuin sarakkeessa A .

Lue lisää: Tarrojen luominen Wordissa Excel-luettelosta (vaiheittainen ohje)

Tarrojen tulostaminen Excelissä ilman Wordia

Kun olet luonut tarrat edellä mainittujen vaiheiden avulla, voit nyt halutessasi tulostaa tarrat Jos haluat tehdä niin, voit seurata alla olevia ohjeita.

Askeleet :

• Mene ensin osoitteeseen Sivun asettelu välilehti sivun yläreunasta.
• Napsauta seuraavaksi Sivun asetukset nappi.

• Sen jälkeen siirry osoitteeseen Marginaalit .
• Muokkaa nyt Top ja Pohja marginaalit 0.5 ja muokkaa sitten Vasen ja Oikea marginaalit 0.215 .
• Napsauta siis OK .

• Paina nyt CTRL + P avataksesi Tulosta valikko.
• Napsauta tässä vaiheessa Ei skaalausta ja näkyviin tulee 4 vaihtoehtoa.
• Valitse seuraavaksi näistä vaihtoehdoista Sovita kaikki sarakkeet yhdelle sivulle .

• Lopuksi olet valmis tulostamaan.
• Tässä tapauksessa tulostuksen esikatselu näyttää alla olevan kuvakaappauksen kaltaiselta.

Lue lisää: Kuinka yhdistää tarrat Excelistä Wordiin (helpoin askelin)

Päätelmä

Viimeisenä mutta ei vähäisimpänä, toivottavasti löysit mitä etsit tästä artikkelista. Jos sinulla on kysyttävää, kommentoi alla. Jos haluat lukea lisää tällaisia artikkeleita, voit vierailla verkkosivuillamme. ExcelWIKI .