|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.12.2018, 14:10 | #1 |
Пользователь
Регистрация: 11.12.2018
Сообщений: 20
|
Заполнение данных в макете этикетки из таблицы
Добрый день всем, прошу прощения если данная тема уже есть, поиск мне не дал результата
Есть Excel 2007, помогите нужен макросом. Нужно чтобы заполнялся шаблон этикетки из таблицы с данными (пример во вложении) . Данные в этикетки должны быть согласно артикулу, далее копируется макет этикетки и в нее вставляются данные по следующему артикулу и так далее пока есть заполненные столбцы с артикулами. Все этикетки должны быть на одном листе, что бы в дальнейшем их можно было сохранить в PDF и отправить на печать. Заранее благодарен. |
12.12.2018, 17:37 | #2 |
Пользователь
Регистрация: 11.12.2018
Сообщений: 20
|
Добрый день, пока смог разобраться только с заполнением и копированием, подскажите как сделать цикл до последней заполненной Ячейки и как что бы в каждом новом цикле данные брались из следующей ячейки?
Что то я затормозился на этом( код ниже Sub Ìàêðîñ3() ' Ìàêðîñ3 Ìàêðîñ ' Ýòèêåòêà Do While (x < 5) x = x + 1 Range("B1") = Worksheets("äàííûå").Cells(2, 1) Range("B2") = Worksheets("äàííûå").Cells(2, 2) Range("B3") = Worksheets("äàííûå").Cells(2, 3) Range("B4") = Worksheets("äàííûå").Cells(2, 4) Range("B5") = Worksheets("äàííûå").Cells(2, 5) Range("B6") = Worksheets("äàííûå").Cells(2, 6) Range("B7") = Worksheets("äàííûå").Cells(2, 7) Range("B8") = Worksheets("äàííûå").Cells(2, 8) Range("B9") = Worksheets("äàííûå").Cells(2, 9) Range("B10") = Worksheets("äàííûå").Cells(2, 10) Range("B11") = Worksheets("äàííûå").Cells(2, 11) Range("B12") = Worksheets("äàííûå").Cells(2, 12) Range("B13") = Worksheets("äàííûå").Cells(2, 13) Range("B14") = Worksheets("äàííûå").Cells(2, 14) Rows("1:20").Select Range("A20").Activate Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A21:B39").Select Selection.Copy ActiveWindow.SmallScroll Down:=-24 Range("A1").Select ActiveSheet.Paste Range("B1:B14").Select Application.CutCopyMode = False Selection.ClearContents Range("B1").Select Loop End Sub |
12.12.2018, 19:37 | #3 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Оформите код "читабельнее"
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
12.12.2018, 20:01 | #4 |
Пользователь
Регистрация: 11.12.2018
Сообщений: 20
|
Сори, ерунда какая-то и в правду отразилась.
Вот читабельная версия: Код:
_____ Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ) Модератор Последний раз редактировалось Serge_Bliznykov; 12.12.2018 в 22:23. |
12.12.2018, 23:30 | #5 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
13.12.2018, 12:08 | #6 | ||
Пользователь
Регистрация: 11.12.2018
Сообщений: 20
|
Цитата:
Цитата:
Я немного поправил и доработал Ваш код, вот что у меня получилось Код:
Последний раз редактировалось Kapany3uk; 13.12.2018 в 12:11. |
||
13.12.2018, 12:42 | #7 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Зачем?
Вставку рисунка обработали?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
13.12.2018, 13:07 | #8 | |
Пользователь
Регистрация: 11.12.2018
Сообщений: 20
|
Согласен, бесполезная команда. Брал из другого массива данных и не проверил.
Это моя первая встреча с макроваси и VBA. Еще очень мало что понимаю в этом. До этого максимум пользовался ВПР )) Цитата:
Последний раз редактировалось Kapany3uk; 13.12.2018 в 13:11. |
|
24.12.2018, 12:52 | #9 |
Пользователь
Регистрация: 11.12.2018
Сообщений: 20
|
Всем доброго дня, немного поправил макрос под себя. Теперь появилась следующая задача Нужно что бы создавалось 3 этикетки по горизонтали, далее через одну строчку нижу продолжалось создание этикетки. Снова делалось 3 шт и так далее.
То есть нужно что бы макрос повторялся 3 раза, потом опускался через одну пустую строчку и продолжался опять 3 раза и так далее. Кто сможет помочь. Заранее благодарен. Код:
|
24.12.2018, 13:30 | #10 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
В общих словах как-то так
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как верстать по сетке бутстрап если на макете с обох сторон сайт выходит за сетку? | nikytt | HTML и CSS | 1 | 05.09.2018 09:03 |
Заполнение таблицы | King_Of_Arthur | БД в Delphi | 0 | 10.07.2013 07:33 |
Макрос: заполнение таблицы данными из другой таблицы с автоматическим добавлением строк | yevgeniy.demidov | Microsoft Office Excel | 6 | 06.09.2012 15:27 |
поиск данных и заполнение таблицы | impact | Microsoft Office Excel | 5 | 26.07.2011 16:29 |
сводная таблица и печпть этикетки | yaroslavlevc | Microsoft Office Excel | 0 | 03.06.2011 13:22 |