Etiķetes mums ir noderīgas daudzos veidos. Jūs varat izveidot etiķetes programmā Excel, izmantojot programmu Microsoft Word. Taču dažos gadījumos tas var būt ļoti apgrūtinoši un laikietilpīgi. Tāpēc jūs, iespējams, vēlaties izveidot etiķetes programmā Excel bez Word. Šajā rakstā ir parādīts soli pa solim, kā izveidot etiķetes programmā Excel bez Word.

Lejupielādēt Practice Workbook

No zemāk redzamās saites varat lejupielādēt prakses darba burtnīcu.

Kas ir etiķetes?

Vispārīgi runājot, etiķete ir uzlīme vai papīra lapiņa, kas apraksta objektu vai produktu, kuram tā ir piestiprināta. Etiķetes tiek izmantotas plašā lietojumu klāstā. Piemēram, cilvēkiem ir jāizveido etiķetes adresēm, lai tās varētu piestiprināt aploksnei. Tāpat mēs varam redzēt etiķetes, kas piestiprinātas datortehnikai, lai mēs varētu to identificēt un uzzināt tās specifikācijas.

4 soļi, kā izveidot etiķetes bez Word programmā Excel, izmantojot VBA

Tas ir ļoti ērti izveidot etiķetes programmā Excel, neizmantojot Microsoft Word Turklāt tas ietaupa daudz laika un sagādā daudz problēmu.

Pieņemsim, ka jums ir datu kopa ar sarakstu, kurā ir Adreses vēlaties nosūtīt Ziemassvētku kartītes. Šajā brīdī vēlaties izveidot etiķetes šīm kartītēm. Adreses Šādā gadījumā varat rīkoties, izmantojot Word. Lai to izdarītu, varat izpildīt turpmāk norādītos soļus.

Solis 01 : Datu kopēšana uz jaunu Excel lapu

• Vispirms nokopējiet kolonnā norādītās adreses un ielīmējiet tās. Jauna lapa sākot no šūnas A1 .

Solis 02 : Atveriet VBA logu un izveidojiet moduli programmā Excel

• Pēc tam nospiediet ALT + F11 lai atvērtu VBA logs.
• Tagad atlasiet lapu, ar kuru pašlaik strādājat, un Ar peles labo poguļa klikšķi šajā gadījumā tas ir 2. lapa .
• Pēc tam secīgi atlasiet Ievietot > Modulis .

Galu galā šie soļu komplekti atvērs VBA logu un ievietojiet jaunu Modulis savā lapā.

posms 03 : Ievietojiet kodu programmā Excel

• Šajā brīdī nokopējiet un ielīmējiet tukšajā lodziņā šā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 = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Ar Atlase.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("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ā posmā es paskaidrošu iepriekš izmantoto kodu. Kā redzat, šim kodam ir divas daļas. Vienā daļā ir apakšdaļa AskForColumn () ko apzīmē kā 01. daļa , bet otrā ir apakšsadaļa Izveidot etiķetes() ko apzīmē kā 02. daļa Tagad es izskaidrošu abas šīs daļas pa kārtai.

01. daļa :

Šajā brīdī esmu sadalījis kodu dažādās sadaļās un katru no tām numurējis nākamajā ekrānšāviņā. Līdz ar to šeit es izskaidrošu katru sadaļu atbilstoši tās numuram.

• 1. iedaļa: Šajā sadaļā tiek izveidota apakšsadaļa ar nosaukumu AskForColumn .
• 2. iedaļa: Šeit mēs deklarējam dažādus mainīgos.
• 3. iedaļa: Šajā sadaļā mēs saskaitām kolonnas rindu skaitu.
• 4. iedaļa: Tagad šeit mēs izveidojam InputBox lai pieprasītu kolonnu skaitu.
• 5. iedaļa: Šajā sadaļā mēs palaidīsim Vietnei cilpa. Mēs arī izmantojam Solis atslēgvārdu, lai palaistu cilpu tik reižu, cik mēs ievietots InputBox .
• 6. iedaļa : Šajā posmā mēs izmantojam šo sadaļu, lai sadalītu kolonnas šūnas dažādās rindās un kolonnās, izmantojot lietojumprogrammu. Transponēt un īpašums Mainīt izmēru .
• 7. iedaļa: Visbeidzot, mēs dzēsīsim papildu saturu šajā sadaļā.

02. daļa :

Arī šajā gadījumā es kodu esmu sadalījis dažādās sadaļās un katru no tām numurējis nākamajā ekrānšāviņattēlā. Līdz ar to šeit es paskaidrošu katru sadaļu atbilstoši tās numuram.

• 1. iedaļa: Šajā sadaļā tiek izveidota apakšsadaļa ar nosaukumu Izveidot etiķetes() .
• 2. iedaļa: Šajā sadaļā mēs saucam sauli par AskForColumn() palaist.
• 3. iedaļa: Šajā punktā šajā iedaļā ir definēts Šūnu formāts visām šūnām, izmantojot Šūnas īpašums.

Solis 04 : Palaist kodu, lai izveidotu etiķetes bez Word programmā Excel

• Tagad nospiediet F5 lai palaistu apakšprogrammu Izveidot etiķetes () .
• Pēc tam ekrānā parādīsies lodziņš, kā parādīts zemāk redzamajā ekrānšāviņas attēlā.
• Šajā brīdī ievietojiet vajadzīgo kolonnu skaitu, kurās vēlaties izvietot etiķetes.
• Pēc tam noklikšķiniet uz LABI .

• Visbeidzot, tiks izveidotas etiķetes, kā parādīts zemāk redzamajā ekrāna attēlā.

💡 Piezīmes :

• Šī metode darbosies tikai tad, ja dati ir vienā kolonnā.
• Pēc etiķešu izveides varat pievienot apmales, izmantojot Visas robežas opcijas Sākums cilne.
• Turklāt pārliecinieties, ka esat palaidis sub Izveidot etiķetes() . Šajā gadījumā, ja palaižat sub, AskForColumn () nesasniegsiet vēlamo rezultātu.
• Turklāt neievietot neko citu, izņemot adreses, kas norādītas slejā A .

Lasīt vairāk: Kā izveidot etiķetes programmā Word no Excel saraksta (soli pa solim)

Kā izdrukāt etiķetes programmā Excel bez Word

Pēc etiķešu izveides, izmantojot iepriekš minētos soļus, tagad, iespējams, vēlēsieties izdrukāt etiķetes . Tagad, ja vēlaties to izdarīt, varat izpildīt tālāk norādītās darbības.

Soļi :

• Vispirms dodieties uz Lapas izkārtojums cilni lapas augšpusē.
• Pēc tam noklikšķiniet uz Lapas iestatīšana pogu.

• Pēc tam dodieties uz Maržas .
• Tagad rediģējiet Top un Apakšējā daļa maržas līdz 0.5 un pēc tam rediģējiet Kreisā un Tiesības maržas līdz 0.215 .
• Pēc tam noklikšķiniet uz LABI .

• Tagad nospiediet CTRL + P lai atvērtu Drukāt ēdienkarte.
• Šajā brīdī noklikšķiniet uz Nav mēroga maiņas un tiks parādītas 4 opcijas.
• Tālāk no šīm opcijām izvēlieties Visu sleju ievietošana vienā lapā .

• Beidzot varat sākt drukāšanu.
• Šādā gadījumā drukas priekšskatījums būs tāds, kā parādīts tālāk redzamajā ekrānšāviņas attēlā.

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

Secinājums

Pēdējais, bet ne mazāk svarīgi, Es ceru, ka jūs atradāt to, ko jūs meklējāt no šī raksta. Ja jums ir kādi jautājumi, lūdzu, nometiet komentāru zemāk. Arī, ja jūs vēlaties lasīt vairāk rakstus, piemēram, šo, jūs varat apmeklēt mūsu mājas lapā ExcelWIKI .