Parasti etiķešu drukāšanas process no Microsoft Excel ietver e-pasta izklājlapu apvienošanu ar Microsoft Word. Taču daži cilvēki dod priekšroku visu darbu veikšanai programmā Excel. Par laimi, ir veids, kā izdrukāt etiķetes programmā Excel, neiesaistoties programmā Word. Šajā pamācībā tiks aplūkots, kā to izdarīt.

Lejupielādēt Practice Workbook

Darbgrāmatu ar datu kopu un demonstrējumā izmantoto makroattēlu varat lejupielādēt no tālāk norādītās saites un izmantot to kā veidni.

Etiķešu drukāšana bez Word.xlsm

Šis ir fails ar izdrukājamām uzlīmēm.

Etiķešu drukāšana bez Word.pdf

Soli pa solim, lai izdrukātu etiķetes programmā Excel bez Word

Uz drukāt etiķetes tieši no Excel, neizmantojot Microsoft Word, mums tikai jāizdrukā Excel izklājlapa ar atbilstošu etiķetes izmēru. Mēs varam pārveidot šūnas izmēru, kas atbilst etiķetes izmēram. Mēs izmantosim VBA kodu, lai veiktu šo uzdevumu mūsu vietā.

Vispirms pieņemsim, ka mums ir šāda datu kopa.

Visus datus vispirms pārveidosim etiķetēs un pēc tam tos izdrukāsim programmā Excel, neizmantojot Word palīdzību.

Lai programmā Excel izmantotu lietojumprogrammu Microsoft Visual Basic for Applications (VBA), vispirms ir nepieciešama programma Izstrādātājs lentes cilni. Spiediet šeit, lai uzzinātu, kā varat parādīt cilni Izstrādātājs lentē . Kad tas ir izdarīts, turpiniet rīkoties, kā mēs parādījām, lai izdrukātu šīs etiķetes programmā Excel bez lietojumprogrammas Word.

1. solis: Datu kopēšana jaunā lapā

VBA koda atlase šeit var darboties pareizi tikai tad, ja šūnu ieraksti sākas no šūnas A1 . Tātad vispirms mums ir jāsakārto datu kopa, kurā ir visas etiķetes. Ja jūsu datu kopa sākas citur, nevis šūnā. A1 , tāpat kā mūsu, kas sākās ar šūnu B5 , vispirms nokopējiet tos jaunā izklājlapā un ievietojiet pašā sākumā. Tam vajadzētu izskatīties apmēram šādi.

Tagad tam jābūt gatavam darbam ar VBA kodu.

2. solis: Ievietojiet VBA kodu

Tālāk ir jāievada VBA kods, lai pielāgotu etiķetes vēlamajam izmēram un formai. Lai ievietotu VBA kodu -

• Vispirms dodieties uz Izstrādātāji lentes cilni.
• Pēc tam atlasiet Visual Basic no Kods grupa.

• Rezultātā tiks atvērts VBA logs. Tagad izvēlieties Ievietot cilni un izvēlieties Modulis no nolaižamajā izvēlnē.

• Pēc tam dodieties uz moduli un ierakstiet šādu kodu.

 'Šis kods radīs etiķetes programmā Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Atlase.RowHeight = 75,75 Atlase.ColumnWidth = 34,14 Ar Atlase .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Ar Atlase.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = True .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("Ievadiet skaituColumns 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 

🔎 Koda skaidrojums

Šajā VBA kodā ir divas daļas jeb apakšdaļas - CreateLabel sub un AskForColumn Vispirms mēs izskaidrosim, kas notiek apakšsadaļā AskForColumn, un pēc tam pāriesim uz apakšsadaļu CreateLabel, lai izskaidrotu, kā darbojas kods.

1. daļa:

Labākai izpratnei mēs esam sadalījuši šo daļu dažādās sadaļās. Aplūkojiet attēlu diskusijas beigās.

👉 1. iedaļa: Šajā sadaļā deklarē apakšsadaļas nosaukumu AskForColumn .

👉 2. iedaļa: Šajā sadaļā mēs deklarējām trīs mainīgos - refrg, vrb un data.

👉 3. iedaļa: Šajā sadaļā ir iestatītas refrg un datu vērtības.

👉 4. iedaļa: Šajā brīdī kods parāda ievades lodziņu izklājlapā.

👉 5. iedaļa: Šajā sadaļā ir Vietnei cikls tiek palaists ievades lodziņā ievadītajam skaitlim.

👉 6. iedaļa: Šajā koda sadaļā tagad tiek mainīta šūnu izmērs.

👉 7. iedaļa: Visbeidzot, šajā sadaļā tiek dzēsts papildu saturs.

2. daļa:

Līdzīgi kā iepriekšējā daļā, arī šo apakšiedaļu esam sadalījuši dažādās sadaļās. Sekojiet līdzi attēlam diskusijas beigās, lai iepazītos ar vizuālo daļu.

👉 1. iedaļa: Šī koda daļa deklarē apakšnosaukumu Izveidot etiķetes .

👉 2. iedaļa: Šī komanda šajā koda punktā izpilda iepriekšējo apakškomandu.

👉 3. iedaļa: Šī daļa formatē katru šūnu, izmantojot VBA Šūnas īpašums.

3. solis: Palaist VBA kodu

Kad kods ir ievadīts, aizveriet VBA logu. Lai palaistu kodu, izpildiet šādas darbības.

• Vispirms dodieties uz Izstrādātājs lentes cilni.
• Otrkārt, atlasiet Makroprocesori no Kods grupa.

• Tagad Makro lodziņā atlasiet Createlables saskaņā ar Makro nosaukums .

• Pēc tam noklikšķiniet uz Palaist .
• Tālāk atlasiet vēlamo kolonnu skaitu. Mēs demonstrācijai izvēlamies 3. Pēc tam noklikšķiniet uz LABI .

Tagad izklājlapa automātiski izskatīsies šādi.

Tagad uzlīmes ir gatavas drukāšanai programmā Excel, neizmantojot Word.

Lasīt vairāk: Kā izdrukāt etiķetes no Excel programmā Word (ar vienkāršiem soļiem)

4. solis: Iestatiet pielāgotās robežas

Lai izdrukātu etiķetes, mums ir jāiestata pareizas izdrukātās lapas apmales. Šim nolūkam mums ir jāizvēlas pareizais izmērs tā, lai tas neietekmētu etiķetes pozīciju un neapdraudētu nevienu etiķeti uz lapas. Lai iestatītu pielāgotās apmales, izpildiet šādas darbības.

• Vispirms dodieties uz Lapas izkārtojums lentes cilni.
• Pēc tam atlasiet Lapas iestatīšana pogu, kā parādīts attēlā. To var atrast katras grupas apakšējā labajā pusē.

• Tā rezultātā Lapas iestatīšana parādīsies logs. Tagad dodieties uz Maržas cilni tajā.
• Pēc tam izvēlieties vajadzīgo malas garumu savai drukātajai lapai. Mēs esam izvēlējušies šādus garumus.

• Kad esat pabeidzis, noklikšķiniet uz LABI .

5. solis: izvēlieties mērogošanas opcijas drukāšanai

Pareiza mērogošana ir svarīga arī etiķešu drukāšanai. Piemēram, līdz šim veiktā darbība nodrošinās šādas lapas drukāšanu.

Tas noteikti nav mūsu mērķis. Tāpēc mums ir jāiekļauj lapa vienā lappusē. Lai to izdarītu.

• Vispirms dodieties uz drukāšanas priekšskatījuma sadaļu, nospiežot Ctrl+P uz tastatūras.
• Skata apakšējā kreisajā pusē varat atrast. Iestatījumi . zem tā atradīsiet Mērogošana iespējas beigās.

• Tagad noklikšķiniet uz opcijas mērogošana un atlasiet Fit lapa uz vienas lapas no nolaižamajā izvēlnē.

Šajā brīdī etiķešu mērogošana būs pabeigta.

Lasīt vairāk: Kā izdrukāt adrešu uzlīmes programmā Excel (2 ātri veidi)

6. solis: Izdrukāt izklājlapu

Kamēr joprojām atrodaties drukāšanas priekšskatījuma ekrānā, noklikšķiniet uz Drukāt skata augšējā kreisajā pusē.

Noklikšķiniet uz tā, un visas uzlīmes tiks izdrukātas programmā Excel bez Word palīdzības.

Lietas, kas jāatceras

👉 Pirms VBA koda palaišanas pārliecinieties, ka visas etiķetes sākas šūnā A1 .

👉 Pirms drukāšanas izvēlieties pareizu malu un mērogošanu, lai visas etiķetes ietilptu uz lapas. Pretējā gadījumā dažas var tikt nogrieztas.

👉 VBA koda darbības ir neatgriezeniskas, tāpēc pirms to veikšanas pārliecinieties, ka ir izveidotas nepieciešamo datu rezerves kopijas.

Secinājums

Šie bija soļi, kas jāveic, lai izdrukātu etiķetes programmā Excel, neizmantojot vai nesavienojot pastu ar Microsoft Word. Cerams, ka tagad varat izdrukāt etiķetes programmā Excel bez Word. Es ceru, ka šī rokasgrāmata jums ir noderīga un informatīva. Ja jums ir kādi jautājumi vai ieteikumi, dariet mums zināmus komentāros zemāk.

Lai uzzinātu vairāk šādu ceļvežu, apmeklējiet Exceldemy.com .