Добрый день Помогите пожалуйста с макросом добавляющим строчки по количеству указанному в таблице и копирующие текст есть таблица, там два параметра, название и количество например: воздушные барабаны 2 лохматые еноты 3
Надо что бы это превратилось в: воздушные барабаны воздушные барабаны лохматые еноты лохматые еноты лохматые еноты
Че-то голову сломал, вроде всё просто, а сделать не могу( ниразу не скриптер =\ [moder]Почитайте, для начала, Правила форума. особое внимание на п.3
Добрый день Помогите пожалуйста с макросом добавляющим строчки по количеству указанному в таблице и копирующие текст есть таблица, там два параметра, название и количество например: воздушные барабаны 2 лохматые еноты 3
Надо что бы это превратилось в: воздушные барабаны воздушные барабаны лохматые еноты лохматые еноты лохматые еноты
Че-то голову сломал, вроде всё просто, а сделать не могу( ниразу не скриптер =\ [moder]Почитайте, для начала, Правила форума. особое внимание на п.3Oll123
Oll123, В макросе делал так(кусок из макроса): [vba]
Код
For m = 5 To LastR k = Cells(m, 3).Value For y = 1 To k VesEd.Add (Cells(m, 4).Value) Next y Next m
[/vba] Первый For переключает строку, второй для повтора добавления исходя из количества. Думаю тут понятно все. В столбце 3 у меня количества проставлены, в столбце 4 значения для "размножения". VesEd - это у меня коллекция, можно просто добавлять в массив одномерный и выгрузить его потом.
Oll123, В макросе делал так(кусок из макроса): [vba]
Код
For m = 5 To LastR k = Cells(m, 3).Value For y = 1 To k VesEd.Add (Cells(m, 4).Value) Next y Next m
[/vba] Первый For переключает строку, второй для повтора добавления исходя из количества. Думаю тут понятно все. В столбце 3 у меня количества проставлены, в столбце 4 значения для "размножения". VesEd - это у меня коллекция, можно просто добавлять в массив одномерный и выгрузить его потом.EvgenyD
Сообщение отредактировал EvgenyD - Четверг, 09.10.2014, 15:03
Хм, первоначально показалось что пример тот который нужен, но нет Формулы которые там есть, работают для конкретного примера, для 10 строчек и всё А мне нужен все-таки скорее скрипт, т.к. число строк может быть любым Попробовал модифицировать и поиграть с диапазонами - не осилил.
З.Ы. Модератору - Задача описана корректно и файла на мой взгляд не требует, проста как два рубля. Я могу продублировать файлом, но он подходит и отюда http://www.excelworld.ru/forum/7-3571-1 только предложенные формулы все заканчиваются на 10-й строчке, а мне нужен безлимит по тсрочкам ) И вывод куда угодно, хоть в новый файл, хоть в новый лист, хоть в соседнии ячейки, хоть преобразовывать текущие. Приделать файл ?
Хм, первоначально показалось что пример тот который нужен, но нет Формулы которые там есть, работают для конкретного примера, для 10 строчек и всё А мне нужен все-таки скорее скрипт, т.к. число строк может быть любым Попробовал модифицировать и поиграть с диапазонами - не осилил.
З.Ы. Модератору - Задача описана корректно и файла на мой взгляд не требует, проста как два рубля. Я могу продублировать файлом, но он подходит и отюда http://www.excelworld.ru/forum/7-3571-1 только предложенные формулы все заканчиваются на 10-й строчке, а мне нужен безлимит по тсрочкам ) И вывод куда угодно, хоть в новый файл, хоть в новый лист, хоть в соседнии ячейки, хоть преобразовывать текущие. Приделать файл ?Oll123
Oll123, думаю если Вы хотите получить готовый работающий файл, то надо выложить все же, и разместить там данные как Вам нужно в итоге. Если Вам просто нужна подсказка, а дальше сами будете пробовать, то я привел пример. Попробуйте, если не получится, то выкладывайте файл с Вашим кодом. Задача понятна и без файла, но правила есть правила.
Oll123, думаю если Вы хотите получить готовый работающий файл, то надо выложить все же, и разместить там данные как Вам нужно в итоге. Если Вам просто нужна подсказка, а дальше сами будете пробовать, то я привел пример. Попробуйте, если не получится, то выкладывайте файл с Вашим кодом. Задача понятна и без файла, но правила есть правила. EvgenyD
EvgenyD, Спасибо за ответ, жаль что я недостаточно знаю, что бы его понять и использовать =\ Вернее я ничего не знаю про макросы, VB, массивы, и коллекции) Предел моих усилий при поиске в инете и переделке под нужные задачи на данный момент: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim r As Long If Target.Column <> 2 Then Exit Sub Cancel = True: r = Target.Row + 1: Rows®.Insert Shift:=xlDown Target.EntireRow.Copy: Cells(r, 1).PasteSpecial Paste:=xlPasteValues Cells(r, 1).ClearContents: Cells(r, 1).Select End Sub ручное тыкание в каждую ячейку с цифрой, плюс не знаю как копировать текст собственно говоря
EvgenyD, Спасибо за ответ, жаль что я недостаточно знаю, что бы его понять и использовать =\ Вернее я ничего не знаю про макросы, VB, массивы, и коллекции) Предел моих усилий при поиске в инете и переделке под нужные задачи на данный момент: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim r As Long If Target.Column <> 2 Then Exit Sub Cancel = True: r = Target.Row + 1: Rows®.Insert Shift:=xlDown Target.EntireRow.Copy: Cells(r, 1).PasteSpecial Paste:=xlPasteValues Cells(r, 1).ClearContents: Cells(r, 1).Select End Sub ручное тыкание в каждую ячейку с цифрой, плюс не знаю как копировать текст собственно говоряOll123