добавление диапазона строк в определенное место - Мир MS Excel

Версия для слабовидящих

= Мир MS Excel/добавление диапазона строк в определенное место - Мир MS Excel

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_, DrMini

добавление диапазона строк в определенное место (Макросы/Sub)

добавление диапазона строк в определенное место

Дата: Воскресенье, 04.05.2014, 19:30 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

помогите доработать макрос
недоделанный (криворабочий) макрос в файле примере - с названием "добавление"
необходимо добавить строки из листа"добавить" в лист "список" в определенное место(определенный город) - значения в столбцах А:А на обеих листах имеют формат ИИххх и "*" (звездочка - ее мы не трогаем) - т.е. нужно сравнить по первым двум цифрам значения с листа "добавление" с листом "список" при совпадении добавить ниже строку в лист "список" и скопировать туда значения из листа "добавление" - 1 столбец в 1 столбец и из 3 во 2 - далее в лист "добавлении" в обрабатываемую строку поставить отметку о выполнении

К сообщению приложен файл: 9834916.xls (74.5 Kb)

Ответить

Дата: Понедельник, 05.05.2014, 18:33 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

up!

Ответить

Дата: Среда, 07.05.2014, 18:59 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

и идей ни у кого никаких нет?

Ответить

Дата: Среда, 07.05.2014, 19:24 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

Репутация: 622 ±

Замечаний: 0% ±

2003

Честно говоря, разбираться в Вашем потоке мыслей нет никакого желания (уж извините).
Если ВЫ внятно и с соблюдением правил русской грамматики и пунктуации изложите суть проблемы, то, наверное, можно будет и попытаться разобраться.
Объективно подходя к вопросу, Вы сами-то вот так с ходу, с первого прочтения и не морща долго извилины, можете понять, что написано в первом посте?
Я раза три прочёл... Шараду не разгадал и забросил это дело.
Рассмотрение файла и кодов процедур тоже ничего не прояснило кроме того, что процедуры, похоже, писали не Вы (а если я не прав, то объясните, пожалуйста, назначение модуля UserForm1 и почему у Вас использован принцип "одна процедура-один модуль"?).
Советы, не вникая в суть, могут быть только такие:
1. Используйте декларацию Option Explicit и объявляйте переменные в процеурах. Иначе замучаетесь вылавливать ошибки.
2. Символ * используется как синоним "любая последовательность символов". Поэтому когда Вы этот символ используете на листе как метку, а потом задаёте её в поиск в процедуре, находится ВСЁ, а не те строки, где есть "звёздочка"

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

СообщениеЧестно говоря, разбираться в Вашем потоке мыслей нет никакого желания (уж извините).
Если ВЫ внятно и с соблюдением правил русской грамматики и пунктуации изложите суть проблемы, то, наверное, можно будет и попытаться разобраться.
Объективно подходя к вопросу, Вы сами-то вот так с ходу, с первого прочтения и не морща долго извилины, можете понять, что написано в первом посте?
Я раза три прочёл... Шараду не разгадал и забросил это дело.
Рассмотрение файла и кодов процедур тоже ничего не прояснило кроме того, что процедуры, похоже, писали не Вы (а если я не прав, то объясните, пожалуйста, назначение модуля UserForm1 и почему у Вас использован принцип "одна процедура-один модуль"?).
Советы, не вникая в суть, могут быть только такие:
1. Используйте декларацию Option Explicit и объявляйте переменные в процеурах. Иначе замучаетесь вылавливать ошибки.
2. Символ * используется как синоним "любая последовательность символов". Поэтому когда Вы этот символ используете на листе как метку, а потом задаёте её в поиск в процедуре, находится ВСЁ, а не те строки, где есть "звёздочка"

Автор - Alex_ST
Дата добавления - 07.05.2014 в 19:24

Дата: Среда, 07.05.2014, 20:26 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Alex_ST, честно говоря - вы тоже не бог грамматики... мне это например не очень мешало понять ваши мысли...
если б извилины не надо было морщить то наверное и вопроса не было бы - правда ведь? - а если оч хочется помочь но что то непонятно, можно ведь и вопрос задать...

суть задачи : сравнить- добавить пустую строку - скопировать...

и если это допрос и эти вопросы помогут ускорить решение задачи то:
- UserForm1 - пустая.. я ее не трогал... или может трогал но не суть
- одна процедура-один модуль - мне так удобнее! - файл над которым производятся действия достаточно ответственный - и иногда процедуры надо выполнять в определенной последовательности
- один макрос сделать помогли - за чт спс шаленому порося - остальное мое (а это целая 1 строка в каждом макросе :-))
- если вы были внимательны то в макросе с назаванием "добавление" (это тот который мне необходимо доработать если вы вдруг запутались) у меня написано " ~* " а не просто звездочка - такое сочетание ловит именно звездочку...
с Ув. Я

Ответить

Дата: Среда, 07.05.2014, 20:44 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

Репутация: 622 ±

Замечаний: 0% ±

2003

Цитата luny, 07.05.2014 в 20:26, в сообщении № 5

суть задачи : сравнить- добавить пустую строку - скопировать...

ну, если Вы считаете, что такого объяснения вполне достаточно для кого-нибудь, кроме Вас, ждите ответов и дальше. Хотя, судя по отсутствию наплыва энтузиастов Вам помогать, ждать Вы будете долго.

А вот Up'ать топик не стоит. Можно от модераторов и замечание получить.
И продолжать пытаться разобраться в Вашей проблеме я больше не собираюсь. Ведь совет-то в конце-концов нужен Вам, а не мне.
Поэтому мне можете здесь не отвечать, т.к. от подписки на топик я отписываюсь
(Вы уж извините, пожалуйста за безграмотность - я не бог грамматики, хотя и знаю разницу между строчными и прописными буквами в отличие от Вас).

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Дата: Среда, 07.05.2014, 21:01 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Alex_ST,

Цитата Alex_ST, 07.05.2014 в 20:44, в сообщении № 6

ну, если Вы считаете, что такого объяснения вполне достаточно для кого-нибудь, кроме Вас, ждите ответов и дальше.

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

Цитата Alex_ST, 07.05.2014 в 20:44, в сообщении № 6

А вот Up'ать топик не стоит. Можно от модераторов и замечание получить.

см пункт 4 правил форума

пошел рыдать над букварем...

Ответить

Дата: Среда, 07.05.2014, 21:43 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата luny, 04.05.2014 в 19:30, в сообщении № 1

т.е. нужно сравнить по первым двум цифрам значения с листа "добавление" с листом "список" при совпадении добавить ниже строку в лист "список" и скопировать туда значения из листа "добавление" - 1 столбец в 1 столбец и из 3 во 2 - далее в лист "добавлении" в обрабатываемую строку поставить отметку о выполнении

Вот это попробуйте еще раз рассказать.
и это... если с запятыми напряг - то каждое действие на новой строчке.

сходу, вот это:
If .Cells(rw2, 1) <> "" And .Cells(rw2, 1) <> "~*" Then
заменить на
If .Cells(rw2, 1) <> "" And .Cells(rw2, 1) <> "*" Then
в данной интерпретации сравнивает именно со *
и не понятно, с какого листа на какой вставлять/добавлять.

Ответить

Дата: Среда, 07.05.2014, 22:06 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

необходимо добавить строки из листа"добавить" в лист "список" в определенное место(определенный город) -
значения в столбцах А:А на обеих листах имеют формат ИИххх и "*" (звездочка - ее мы не трогаем)

нужно
1) сравнить по первым двум цифрам значения с листа "добавление" с листом "список"
2) при совпадении добавить ниже строку в лист "список"
3) скопировать значения из листа "добавление"
1 столбец в 1 столбец
3 ...........во 2
4) в лист "добавлении" в обрабатываемую строку поставить отметку о выполнении

сочетание ~* работало...

Ответить

Дата: Среда, 07.05.2014, 22:18 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата luny, 07.05.2014 в 22:06, в сообщении № 9

1) сравнить по первым двум цифрам значения с листа "добавление" с листом "список"
2) при совпадении добавить ниже строку в лист "список"

идем по пунктам. Лист "Список", А2 (11111) - совпадает с:
Добавление (А1) (11117) - вставляем. заносим;
Добавление (А2) (11119)- вставляем. заносим;
далее
Лист "Список", А3 (11112) - совпадает с:
Добавление (А1) (11117) - вставляем. заносим;
Добавление (А2) (11119)- вставляем. заносим;

....и так далее?

Ответить

Michael_S Дата: Среда, 07.05.2014, 22:21 | Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата luny, 07.05.2014 в 22:06, в сообщении № 9

сочетание ~* работало...

не работало. Срабатывала следующая строчка:

If Left(.Cells(rw1, 1), 2) = Left(Cells(rw2, 1), 2) Then

upd
ради интереса в модуле листа "добавление" проверьте такой макрос:

Sub test() If [a6] = "*" Then MsgBox ("*") If [a6] = "~*" Then MsgBox ("~*") End Sub

Сообщение отредактировал Michael_S - Среда, 07.05.2014, 22:27

Ответить

Дата: Среда, 07.05.2014, 22:38 | Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Michael_S, в строках могут быть ошибки - виноват - каюсь - занимаюсь VBA 2 недели - раньше знать не знал что такое есть

по моей идее должно быть так

лист "добавление" (обзовем сокращенно Д) А1 совпадает с "список" (кратко С) А2 добавляем сроку, копируем в нее значения "д" А1 и А3
лист "д" А3 - совпадает "с" А2 (или скорее всего вновь созданная А3 ) добавляем, копируем
лист "д" А4 - "С" А9 добавляем, копируем
лист "д" а5 - "с" А9 (или А10) добавляем, копируем
лист "д" а6 - "с" А22 добавляем, копируем
а7 - игнор

Ответить

Дата: Среда, 07.05.2014, 22:47 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Michael_S,

Цитата Michael_S, 07.05.2014 в 22:21, в сообщении № 11

upd ради интереса в модуле листа "добавление" проверьте такой макрос:
Sub test()
If [a6] = "*" Then MsgBox ("*")
If [a6] = "~*" Then MsgBox ("~*")
End Sub

естественоо ответ бедет "*" - вопрос стоит или "любой символ" или "знак *" поменяйте строки местами и ответ будет "~*" - наберите Ctrl+F и переспросите "~*" и "*" - в 1 случаее найдет именно символ "*" во 2 любой символ

Ответить

Дата: Среда, 07.05.2014, 23:02 | Сообщение № 14

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата luny, 07.05.2014 в 22:47, в сообщении № 13

поменяйте строки местами и ответ будет "~*"

поменяйте и проверьте

в этом примере обе проверки независимы.

Цитата luny, 07.05.2014 в 22:47, в сообщении № 13

наберите Ctrl+F

Это верно для поиска (метод Find, и еще Like, но там не тильда а в квадратных скобках "(*)" ), в данном контексте так не работает, здесь сравнивается именно *.

А вот по "добавляем, копируем" я так и не понял. Создайте лист и покажите, что должно получиться. Благо, пример у вас небольшой.

Сообщение отредактировал Michael_S - Среда, 07.05.2014, 23:10

Ответить

Дата: Четверг, 08.05.2014, 08:27 | Сообщение № 15

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Michael_S, цветом выделил для наглядности
еще момент который не указал: в листе список то же есть " * " -

Цитата

If Left(.Cells(rw1, 1), 2) = Left(Cells(rw2, 1), 2) Then

будет ли "равно" равенство типа "*" = "12222" ?

К сообщению приложен файл: 9834916-2-.xls (53.0 Kb)

Сообщение отредактировал luny - Четверг, 08.05.2014, 10:46

Ответить

Дата: Четверг, 08.05.2014, 14:26 | Сообщение № 16

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата luny, 08.05.2014 в 08:27, в сообщении № 15

еще момент который не указал: в листе список то же есть " * "

Эту "*" тоже не учитываем?

Цитата luny, 08.05.2014 в 08:27, в сообщении № 15

будет ли "равно" равенство типа "*" = "12222" ?

Как на листе, так и в VBA это выражение вернет ЛОЖЬ (False).

Пример решения в файле

К сообщению приложен файл: luny.xls (68.5 Kb)

Ответить

Дата: Четверг, 08.05.2014, 17:13 | Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Michael_S,

Цитата Michael_S, 08.05.2014 в 14:26, в сообщении № 16

Эту "*" тоже не учитываем?

надо! - но не знаю стоит ли - в листе список * есть и макрос работает.... - поэтому и не уверен?

по решению - работает! только необходимо в листе "добавление" добавить отметку о выполнении т.е. после копирования строки в 4 столбце присвоить "ок" или что то такое - во первых для контроля выполнения во вторых для того чтоб потом можно было отсортировать
добавленное/пропущенное

Ответить

Дата: Четверг, 08.05.2014, 17:55 | Сообщение № 18

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата luny, 08.05.2014 в 17:13, в сообщении № 17

во первых для контроля выполнения

Ну тогда, наверно, нужно делать и проверку на эту метку.

Цитата luny, 08.05.2014 в 17:13, в сообщении № 17

надо! - но не знаю стоит ли

и куда или что под эту звездочку добавлять?

Ответить

Дата: Четверг, 08.05.2014, 19:00 | Сообщение № 19

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

Michael_S, как вам объяснить если вместо номера телефона в справочнике стоит * значит соединение с абонентом производится через секретаря-телефониста или телефон стоит у дежурного и он позовет "кого надо" - такие абоненты есть в каждом "городе" и так как их не отличишь мы их вообще исключаем из обработки макросом а для того чтоб это было наверняка и стоит проверка... - если тот код что вы написали не учитывает " * " не в одном ни во втором листе то хорошо - если нет то нужно исключить (в смысле добавить проверку и на второй лист)

отметка о выполнении нужна для того чтоб можно было увидеть какая строка была добавлена или не добавлена по какой либо причине - может какая то ячейка /номер например была отформатирована как текст и ее "пропустил" макрос или та же звездочка добавилась может в номере опечатка и такого "города" нет в списке - что бы можно потом отсортировать лист "добавить" по этой отметке и вручную добавить не добавленное и отследить добавленное - как то так

Ответить

Дата: Пятница, 09.05.2014, 13:34 | Сообщение № 20

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Пробуйте

К сообщению приложен файл: luny-1-.xls (69.0 Kb)

Ответить

добавление диапазона строк в определенное место (Макросы/Sub)

Страница 1 из 2
1
2
»

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!