Звичайний процес друку етикеток з Microsoft Excel передбачає використання таблиць злиття пошти з Microsoft Word. Але деякі люди вважають за краще виконувати всю роботу в Excel. На щастя, є спосіб друкувати етикетки в Excel, не використовуючи Word. У цьому посібнику мова піде про те, як цього досягти.

Завантажити Практичний посібник

Ви можете завантажити робочу книгу з набором даних та макросом, використаним для демонстрації, за посиланням нижче та використовувати її як шаблон.

Друк етикеток без Word.xlsm

Це файл, що містить етикетки для друку.

Друк етикеток без Word.pdf

Покрокова інструкція друку етикеток в Excel без Word

До друк етикеток безпосередньо з Excel, не використовуючи Microsoft Word, нам просто потрібно роздрукувати таблицю Excel з відповідним розміром етикетки. Ми можемо трансформувати розмір комірки, який відповідає розміру етикетки. Ми будемо використовувати код VBA, щоб виконати завдання за нас.

Спочатку припустимо, що ми маємо наступний набір даних.

Ми спочатку перетворимо всі дані в мітки, а потім роздрукуємо їх в Excel без допомоги Word.

Для використання Microsoft Visual Basic for Applications (VBA) в Excel спочатку потрібно Розробник Натисніть тут, щоб дізнатися, як ви можете показати вкладку "Розробник" на стрічці Після цього продовжуйте виконувати кроки, які ми продемонстрували, щоб надрукувати ці етикетки в Excel без Word.

Крок 1: Скопіюйте дані на новий аркуш

Вибір коду VBA тут може працювати належним чином, тільки якщо записи в комірках починаються з комірки A1 Отже, спочатку ми повинні впорядкувати наш набір даних, що містить всі мітки, таким чином. У випадку, якщо ваш набір даних починається з будь-якого місця, відмінного від комірки A1 на кшталт нашого, який розпочався в осередку B5 Спочатку скопіюйте їх у нову таблицю і помістіть на самий початок. Це має виглядати приблизно так.

Тепер він має бути готовий до роботи з кодом VBA.

Крок 2: Вставка коду VBA

Далі нам потрібно вставити код VBA, щоб підігнати етикетки під потрібний нам розмір і форму. Щоб вставити код VBA-

• По-перше, зайдіть на сайт Розробники вкладку на вашій стрічці.
• Потім виберіть Visual Basic від Код група.

• В результаті відкриється вікно VBA. Тепер виберіть пункт Вставка відкрийте в ньому вкладку і виберіть Модуль з випадаючого меню.

• Після цього переходимо до модуля і записуємо наступний код.

 'Цей код створить написи в Excel 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, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox ("Введіть кількістьColumns 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 

🔎 Пояснення коду

У цьому коді VBA є дві частини або підрозділи - це CreateLabel підводного човна та AskForColumn Спочатку ми пояснимо, що відбувається в підкладі AskForColumn, а потім перейдемо до підкладу CreateLabel, щоб пояснити, як працює код.

Частина 1:

Для кращого розуміння, ми розділили порцію на різні розділи. Подивіться на малюнок в кінці обговорення.

👉 Розділ 1: У цьому розділі декларується назва суб'єкта AskForColumn .

👉 Розділ 2: Ми використали цей розділ для оголошення трьох змінних - refrg, vrb та data.

👉 Розділ 3: У цьому розділі ми встановили значення для refrg та data.

👉 Розділ 4: На цьому етапі код показує поле введення в електронній таблиці.

👉 Розділ 5: У цьому розділі розглядаються За виконується цикл для числа, введеного в поле вводу.

👉 Розділ 6: Ця частина коду тепер змінює розмір комірок.

👉 Розділ 7: Нарешті, в цьому розділі видаляється зайвий вміст.

Частина 2:

Як і в попередній частині, ми також розділили цей підрозділ на різні розділи. Візуальну частину розділу наведено на рисунку в кінці дискусії.

👉 Розділ 1: У цій частині коду декларується підназва Етикетки .

👉 Розділ 2: Ця команда запускає попередній підпрограму в цій точці коду.

👉 Розділ 3: Ця частина форматує кожну комірку за допомогою VBA Клітини власність.

Крок 3: Запуск коду VBA

Після введення коду закрийте вікно VBA. Для запуску коду виконайте наступні дії.

• По-перше, зайдіть на сайт Розробник вкладку на вашій стрічці.
• По-друге, виберіть Макроси від Код група.

• Наразі в Макрос у вікні, виберіть Матеріали, що піддаються створенню в рамках Назва макросу .

• Потім натисніть на Біжи .
• Далі обираємо бажану кількість стовпчиків, для демонстрації ми обираємо 3. Далі натискаємо на ГАРАЗД. .

Тепер таблиця буде виглядати так автоматично.

Етикетки тепер готові до друку в Excel без використання Word.

Читати далі: Як надрукувати етикетки з Excel у Word (покроково)

Крок 4: Встановіть власні поля

Для друку етикеток необхідно встановити правильні поля для друкованої сторінки. Для цього слід вибрати правильний розмір таким чином, щоб він не впливав на положення етикетки і не заважав іншим етикеткам на аркуші. Щоб встановити користувацькі поля, виконайте наступні кроки.

• Перш за все, зверніться до Макет сторінки вкладку на вашій стрічці.
• Потім виберіть пункт Налаштування сторінки як показано на малюнку, яка знаходиться у правому нижньому куті кожної групи.

• Як наслідок, на сьогоднішній день в Україні діє Налаштування сторінки Тепер перейдіть на сторінку Маржа вкладка в ньому.
• Потім виберіть бажану довжину полів для вашої друкованої сторінки. Ми вибрали наступне.

• Закінчивши, натисніть на ГАРАЗД. .

Крок 5: Виберіть параметри масштабування для друку

Правильне масштабування також важливе для друку етикеток. Наприклад, те, що ми робили до цього часу, надрукує сторінку ось так.

Що, звичайно, не є нашою метою. Отже, нам потрібно вмістити аркуш на одній сторінці. Для цього...

• Спочатку перейдіть до розділу попереднього перегляду друку, натиснувши Ctrl+P на клавіатурі.
• У нижній лівій частині подання ви можете знайти Налаштування Під ним ви знайдете Масштабування опції в кінці.

• Тепер натисніть на опцію масштабування і виберіть Умістити аркуш на одній сторінці з випадаючого меню.

На цьому масштабування етикеток буде завершено.

Читати далі: Як надрукувати адресні етикетки в Excel (2 швидких способи)

Крок 6: Друк електронної таблиці

Перебуваючи на екрані попереднього перегляду друку, натисніть на Друк у верхньому лівому куті перегляду.

Натисніть на нього, і це надрукує всі етикетки в Excel без будь-якої допомоги з боку Word.

Важливі моменти для запам'ятовування

👉 Перед запуском коду VBA переконайтеся, що всі ваші мітки починаються з комірки A1 .

👉 Перед друком виберіть правильне поле і масштаб, щоб всі етикетки помістилися на сторінці. В іншому випадку деякі з них можуть бути обрізані.

👉 Дії коду VBA незворотні, тому перед запуском переконайтеся, що у вас є резервна копія необхідних даних.

Висновок

Це були кроки, які потрібно виконати, щоб надрукувати етикетки в Excel без використання або злиття Microsoft Word. Сподіваємося, що тепер ви зможете надрукувати етикетки в Excel без Word. Сподіваюся, що цей посібник виявився корисним та інформативним. Якщо у вас виникли запитання або пропозиції, повідомте нам про це в коментарях нижче.

Більше подібних путівників можна знайти на сайті Exceldemy.com .