|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.09.2020, 11:28 | #11 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
не получилось прикладываю файлы в экселе показано как должно все выглядеть после копирования с Лист1 на Лист2 в ворде сам код, который использую если запустить его еще раз, то не вставляются значения ниже на первую пустую строчку после какого-либо текста |
10.09.2020, 18:08 | #12 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 163
|
lilpop,
Если пoнял правильнo, из стoлбца "наименoвание", пoпадают: в 1 урoвень: - Магазин - Ларек вo 2 урoвень: - Первый магаыин - Мини - Бтoрoй ларек - Мини 2 всё oстальнoе - тoвар Исхoдные данные дoстатoчнo грязные чтoбы делать какoй-тo универсальный кoд. На данные, кoтoрые в примере сделать кoд мoжнo: услoвия для пoпадания в 1 урoвень: - в стoлбце № п/п значения сoдержат не бoлее двух тoчек и не бoлее двух цифр, - в стoлбце "наименoвание" шрифт тoлстый услoвия для пoпадания вo 2 урoвень: - в стoлбце № п/п значения сoдержат не бoлее трёх тoчек, не бoлее четырёх цифр, - в стoлбце "наименoвание" шрифт тoлстый Нo есть пoдoзрение, чтo этo тoлькo пример, чтo данных намнoгo бoльше и на них этo рабoтаь уже не будет. Вoзмoжнo, существует списoк названий пo кoтoрoму былo бы мoжнo oпределить принадлежнoсть к первoму или втoрoму урoвню? |
10.09.2020, 18:50 | #13 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
основная задача переноса по количеству точек после того, как уберется последний знак Код:
а затем уже, исходя из того, сколько точек есть - переносятся данные из столбца "В" листа 1 в лист 2 Код:
и вот проблема, если повторно запустить код, то на листе 2 не вставляются эти же значения начиная с пустой строки |
10.09.2020, 21:02 | #14 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 163
|
так будет правильно?
попробуйте запустить макрос Sub ИТОГ() в Module2 |
10.09.2020, 21:17 | #15 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
в модуле 2 нет итога (все прокрутила) там есть Sub ____() Call ___________ 'Call _______1 Call _______________ Call ____________ End Sub и все подсвечено красным |
10.09.2020, 21:36 | #16 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 163
|
???????
там должно быть это: Код:
|
10.09.2020, 21:46 | #17 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
очень странно, но такого нет (я делаю на маке, видимо из-за несовместимости макросов на винде и маке) сейчас попробую сделать |
10.09.2020, 21:50 | #18 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
lilpop,
второй раз не вставляется снизу после в пустую строчку, но спасибо большое, что после удаления одного символа стоит точка! |
10.09.2020, 22:10 | #19 | |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 163
|
Цитата:
если запустите макрос второй раз, данные перепишутся, там ведь в процедуре Sub остальныеУровни(), привязка к тем же строкам что в исхиднике (переменная i),только вставляются на шесть строк выше: Sheets(2).Cells(i - 6, 2) = Sheets(1).Cells(i, 2).Value |
|
10.09.2020, 22:24 | #20 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
чтобы не перезаписывались в те же строчки, а вставлялись снизу (после первой процедуры) в новую пустую строчку (в файле это 69 строчка) планируется в лист2 копировать несколько листов, и чтобы скопированные данные шли дальше, а не вставлялись в те же строчки извините, если неправильно сформулировала вопрос |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Посчитать суммы из одних ячеек, если в соответствующих ячейках определенное значение | Нарилия | Microsoft Office Excel | 3 | 28.02.2018 18:03 |
Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих во второй четверти и вывести на экран их координаты. | Viktoria_ | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 20.02.2018 00:07 |
Как посчитать сумму в ячейках определенного цвета | vitek090283 | Microsoft Office Excel | 4 | 10.10.2017 02:14 |
Задаnm n точек. Найти m=3,4... точек и построить на них m-угольник: количество точек , лежащих внутри и вне его мин. различается | L.Rain | Помощь студентам | 0 | 11.12.2011 22:19 |
Определить количество точек | Артур22 | Общие вопросы Delphi | 17 | 21.02.2011 11:09 |