Как создавать этикетки без Word в Excel (пошаговое руководство)

Hugh West

16-10-2023 Продвинутый Excel
  • Поделись Этим
Hugh West

Этикетки полезны для нас во многих отношениях. Вы можете создавать этикетки в excel с помощью Microsoft Word. Но в некоторых случаях это может быть очень хлопотно и отнимать много времени. Поэтому вы можете захотеть создать этикетки в Excel без Word. В этой статье показано пошаговое руководство по созданию этикеток в Excel без Word.

Скачать Практическое пособие

Рабочую тетрадь для практических занятий можно скачать по ссылке ниже.

Создание этикеток без Word.xlsm

Что такое этикетки?

Вообще говоря, этикетка - это наклейка или лист бумаги с описанием объекта или продукта, к которому она прикреплена. Этикетки используются в самых разных областях. Например, людям нужно создавать этикетки для адресов, чтобы они могли прикрепить их к конверту. Также мы можем видеть этикетки, прикрепленные к аппаратному обеспечению наших компьютеров, чтобы мы могли идентифицировать их и узнать об их характеристиках.

4 шага по созданию этикеток без Word в Excel с помощью VBA

Очень удобно создавать этикетки в Excel без помощи Microsoft Word Более того, это экономит много времени и хлопот.

Теперь предположим, что у вас есть набор данных со списком Адреса вы хотите отправить свои рождественские открытки. На данном этапе вы хотите создать этикетки для этих Адреса в Excel без использования Word. В этом случае вы можете выполнить следующие шаги.

Шаг 01 : Копирование данных на новый лист в Excel

  • Сначала скопируйте адреса в столбце и вставьте их в файл Новый лист начиная с клетки A1 .

Шаг 02 : Открыть окно VBA и создать модуль в Excel

  • Затем нажмите ALT + F11 чтобы открыть VBA окно.
  • Теперь выберите лист, над которым вы сейчас работаете, и Щелкните правой кнопкой мыши на нем. В данном случае это Лист 2 .
  • Затем последовательно выберите Вставка > Модуль .

В конечном счете, эти наборы шагов откроют VBA окно и вставьте новый Модуль в вашем листе.

Шаг 03 : Вставить код в Excel

  • На этом этапе скопируйте следующий код и вставьте его в пустое поле. 
 'Этот код создаст метки в Excel 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 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 NumberColumns 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

💡 Код Объяснение:

На этом этапе я объясню код, использованный выше. Как вы можете видеть, в этом коде есть две части. Одна часть содержит вложенную часть AskForColumn () который будет называться Часть 01 , а другая содержит под Createlabels() который будет называться Часть 02 Теперь я объясню обе эти части по очереди.

Часть 01 :

На данном этапе я разделил код на различные секции и пронумеровал каждую из них на следующем скриншоте. Соответственно, здесь я буду объяснять каждую секцию в соответствии с ее номером.

  • Раздел 1: В этом разделе создается подраздел с именем AskForColumn .
  • Раздел 2: Здесь мы объявляем различные переменные.
  • Раздел 3: В этом разделе мы подсчитываем количество строк в столбце.
  • Раздел 4: Итак, здесь мы создаем InputBox для запроса количества столбцов.
  • Раздел 5: В этом разделе мы проводим Для цикл. Также мы используем Шаг ключевое слово, чтобы запустить цикл столько раз, сколько мы поставили в InputBox .
  • Раздел 6 : На данном этапе мы используем этот раздел для распределения ячеек столбца по различным строкам и столбцам с помощью приложения Транспонировать и имущество Изменить размер .
  • Раздел 7: Наконец, мы удаляем лишнее содержимое этого раздела.

Часть 02 :

В данном случае я также разделил код на различные секции и пронумеровал каждую из них на следующем скриншоте. Соответственно, здесь я буду объяснять каждую секцию в соответствии с ее номером.

  • Раздел 1: В этом разделе создается подраздел с именем Createlabels() .
  • Раздел 2: В этом разделе мы называем солнце AskForColumn() бежать.
  • Раздел 3: На данном этапе этот раздел определяет Формат ячеек для всех ячеек, используя Клетки собственность.

Шаг 04 : Выполните код для создания ярлыков без Word в Excel

  • Теперь нажмите F5 для запуска под Создайте этикетки () .
  • После этого на экране появится окно, как показано на скриншоте ниже.
  • На этом этапе вставьте количество столбцов, в которых вы хотите разместить свои метки.
  • Затем нажмите на OK .

  • Наконец, у вас будут созданы ярлыки, как показано на скриншоте ниже.

💡 Примечания :

  • Этот метод будет работать только в том случае, если ваши данные находятся в одном столбце.
  • После создания этикеток можно добавить границы с помощью функции Все границы опции в Главная вкладка.
  • Кроме того, убедитесь, что вы запустили под Createlabels() В этом случае, если вы запустите под, AskForColumn () вы не получите желаемого результата.
  • Кроме того, не вводите ничего, кроме адресов в столбце A .

Читать далее: Как создать ярлыки в Word из списка Excel (пошаговое руководство)

Как печатать этикетки в Excel без Word

После создания меток с помощью вышеупомянутых шагов, теперь вы можете захотеть печать этикеток Теперь, если вы хотите это сделать, вы можете выполнить следующие действия.

Шаги :

  • Сначала зайдите в Разметка страницы вкладку в верхней части страницы.
  • Далее нажмите на Настройка страницы кнопка.

  • После этого перейдите в раздел Маржи .
  • Теперь отредактируйте Топ и Дно поля для 0.5 а затем отредактируйте Слева и Справа поля для 0.215 .
  • Соответственно, нажмите на OK .

  • Теперь нажмите CTRL + P чтобы открыть Печать меню.
  • В этот момент нажмите на Без масштабирования и появятся 4 варианта.
  • Далее из этих вариантов выберите Уместить все колонки на одной странице .

  • Наконец, вы готовы к печати.
  • В этом случае предварительный просмотр печати будет выглядеть так, как показано на скриншоте ниже.

Читать далее: Как объединить этикетки из Excel в Word (с помощью простых шагов)

Заключение

И последнее, но не менее важное: я надеюсь, что вы нашли то, что искали в этой статье. Если у вас есть какие-либо вопросы, пожалуйста, оставьте комментарий ниже. Также, если вы хотите прочитать больше статей, подобных этой, вы можете посетить наш сайт ExcelWIKI .

Предыдущий пост Как сдвинуть ячейки вниз в Excel (5 простых способов)
Следующий пост Как ограничить количество строк в Excel (3 эффективных метода)

Хью Уэст — опытный тренер и аналитик Excel с более чем 10-летним опытом работы в отрасли. Он имеет степень бакалавра в области бухгалтерского учета и финансов и степень магистра делового администрирования. Хью страстно любит преподавать и разработал уникальный подход к обучению, которому легко следовать и который легко понять. Его экспертные знания Excel помогли тысячам студентов и специалистов по всему миру улучшить свои навыки и преуспеть в своей карьере. В своем блоге Хью делится своими знаниями со всем миром, предлагая бесплатные учебные пособия по Excel и онлайн-обучение, чтобы помочь отдельным лицам и компаниям полностью раскрыть свой потенциал.