A Microsoft Excelből történő címkenyomtatás szokásos folyamata magában foglalja a táblázatok Microsoft Worddel történő levelezéses összevonását. Néhányan azonban jobban szeretik az összes feladatot Excelen belül elvégezni. Szerencsére van egy módja annak, hogy a címkéket Excelben nyomtassa ki anélkül, hogy a Worddel foglalkozna. Ez a bemutató arra összpontosít, hogyan lehet ezt megvalósítani.

Gyakorlati munkafüzet letöltése

Az alábbi linkről letöltheti a munkafüzetet az adatkészlettel és a bemutatóhoz használt makróval, és sablonként használhatja.

Címkék nyomtatása Word nélkül.xlsm

Ez a nyomtatható címkéket tartalmazó fájl.

Címkék nyomtatása Word nélkül.pdf

Lépésről lépésre történő eljárás címkék nyomtatásához Excelben Word nélkül

A címre. címkék nyomtatása közvetlenül az Excelből a Microsoft Word használata nélkül, csak ki kell nyomtatnunk az Excel táblázatot a megfelelő címkemérettel. A cellaméretet a címkemérethez illeszkedő módon tudjuk átalakítani. VBA kódot fogunk használni a feladat elvégzéséhez.

Először is tegyük fel, hogy a következő adatkészlettel rendelkezünk.

Az egyes adatokat először címkékké alakítjuk, majd a Word segítsége nélkül kinyomtatjuk őket az Excelben.

A Microsoft Visual Basic for Applications (VBA) Excelben történő használatához először a következőre van szüksége Fejlesztő Kattintson ide, hogy megnézze, hogyan lehet megjeleníti a Fejlesztő lapot a szalagban Ha ez megvan, kövesse az általunk bemutatott lépéseket, hogy ezeket a címkéket Word nélkül nyomtassa ki az Excelben.

1. lépés: Adatok másolása új lapra

A VBA-kód kiválasztása itt csak akkor működik megfelelően, ha a cellabejegyzések a cellából A1 Tehát először az összes címkét tartalmazó adathalmazunkat kell ily módon elrendeznünk. Abban az esetben, ha az adathalmazunk nem a cellában kezdődik, hanem bárhol máshol. A1 , mint a miénk, amely a sejteknél kezdődött B5 , először másolja át őket egy új táblázatba, és tegye őket a legelejére. Valahogy így kell kinéznie.

Most már készen kell állnia a VBA kóddal való munkára.

2. lépés: VBA kód beillesztése

Ezután be kell illesztenünk a VBA kódot, hogy a címkéket a kívánt méretre és alakra igazítsuk. A VBA kód beillesztéséhez-

• Először menjen a Fejlesztők lapot a szalagján.
• Ezután válassza ki Visual Basic a Kód: csoport.

• Ennek eredményeképpen megnyílik a VBA ablak. Most válassza ki a Beillesztés lapot, és válassza ki a Modul a legördülő menüből.

• Ezután menj a modulba, és írd le a következő kódot.

 'Ez a kód létrehozza a címkéket az Excelben 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 

🔎 Kód Magyarázat

Ebben a VBA-kódban két rész vagy alrész van - a CreateLabel sub és a AskForColumn Először elmagyarázzuk, hogy mi történik az AskForColumn alprogramban, majd áttérünk a CreateLabel alprogramra, hogy elmagyarázzuk, hogyan működik a kód.

1. rész:

A jobb megértés érdekében a részt különböző szakaszokra osztottuk. Nézze meg az ábrát a megbeszélés végén.

👉 1. szakasz: Ez a szakasz az alrendszer nevét adja meg AskForColumn .

👉 2. szakasz: Ebben a szakaszban három változót - refrg, vrb és data - deklaráltunk.

👉 3. szakasz: Ebben a szakaszban a refrg és az adatok értékeit állítottuk be.

👉 4. szakasz: Ezen a ponton a kód egy beviteli mezőt jelenít meg a táblázatkezelőben.

👉 5. szakasz: Ebben a szakaszban egy A oldalon. ciklus fut le a beviteli mezőbe beírt számra.

👉 6. szakasz: A kód ezen szakasza most átméretezi a cellákat.

👉 7. szakasz: Végül ez a szakasz törli az extra tartalmakat.

2. rész:

Az előző részhez hasonlóan ezt az alrészletet is különböző részekre osztottuk. Kövesse a tárgyalás végén található ábrát a vizuális részhez.

👉 1. szakasz: A kódnak ez a része deklarálja az alnevet Createlabels .

👉 2. szakasz: Ez a parancs az előző alprogramot futtatja a kód ezen pontján.

👉 3. szakasz: Ez a rész minden egyes cellát a VBA Sejtek ingatlan.

3. lépés: VBA kód futtatása

A kód beírása után zárja be a VBA ablakot. A kód futtatásához kövesse a következő lépéseket.

• Először menjen a Fejlesztő lapot a szalagján.
• Másodszor, válassza ki Makrók a Kód: csoport.

• Most a Makró mezőben válassza a Createlables a Makró neve .

• Ezután kattintson a Fuss .
• Ezután válassza ki a kívánt oszlopok számát. Mi a bemutatóhoz 3-t választunk. Ezután kattintson a OK .

A táblázat mostantól automatikusan így fog kinézni.

A címkék mostantól nyomtatásra készek az Excelben, a Word használata nélkül.

Bővebben: Címkék nyomtatása Excelből a Wordben (egyszerű lépésekkel)

4. lépés: Egyéni margók beállítása

A címkék nyomtatásához a megfelelő margókat kell beállítanunk a nyomtatott laphoz. Ehhez a megfelelő méretet úgy kell kiválasztanunk, hogy az ne befolyásolja a címke pozícióját, és ne veszélyeztesse a lapon lévő címkéket. Az egyéni margók beállításához kövesse az alábbi lépéseket.

• Először is, menjen a Oldal elrendezése lapot a szalagján.
• Ezután válassza ki a Oldal beállítása gombot az ábrán látható módon. Ezt minden csoport jobb alsó sarkában találja.

• Ennek eredményeként a Oldal beállítása mező fog felugrani. Most menj a Margins lapot.
• Ezután válassza ki a kívánt margóhosszúságot a nyomtatott oldalhoz. Mi a következőket választottuk.

• Ha végzett, kattintson a OK .

5. lépés: A nyomtatáshoz szükséges méretezési beállítások kiválasztása

A címkék nyomtatásánál is fontos a megfelelő méretezés. Például, amit eddig csináltunk, az így nyomtatja ki az oldalt.

Ami természetesen nem a mi célunk. Tehát egy oldalra kell helyeznünk a lapot. Ehhez...

• Először is, lépjen a nyomtatási előnézet részbe a Ctrl+P a billentyűzeten.
• A nézet bal alsó sarkában a következőket találja Beállítások Ez alatt találja a Méretezés opciók a végén.

• Most kattintson a méretezés opcióra, és válassza a Fit Sheet egy oldalon a legördülő menüből.

A címkék méretezése ezen a ponton befejeződik.

Bővebben: Címkék nyomtatása Excelben (2 gyors módja)

6. lépés: Táblázat nyomtatása

Amíg még mindig a nyomtatási előnézeti képernyőn van, kattintson a Nyomtatás a nézet bal felső részén.

Kattintson rá, és ez az összes címkét kinyomtatja az Excelben, a Word segítsége nélkül.

Emlékezetes dolgok

👉 A VBA kód futtatása előtt győződjön meg róla, hogy az összes címke a cellánál kezdődik. A1 .

👉 Nyomtatás előtt válassza ki a megfelelő margót és méretezést, hogy az összes címke elférjen az oldalon. Ellenkező esetben előfordulhat, hogy néhányat levágnak.

👉 A VBA-kódok műveletei visszafordíthatatlanok. Ezért győződjön meg róla, hogy a szükséges adatokról biztonsági mentést készített, mielőtt futtatna egyet.

Következtetés

Ezeket a lépéseket kellett követnie ahhoz, hogy címkéket nyomtasson Excelben a Microsoft Word használata vagy összevonása nélkül. Remélhetőleg most már képes címkéket nyomtatni Excelben Word nélkül. Remélem, hasznosnak és informatívnak találta ezt az útmutatót. Ha bármilyen kérdése vagy javaslata van, ossza meg velünk az alábbi megjegyzésekben.

További ilyen útmutatókért látogasson el a Exceldemy.com .