Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Написание макроса для поиска в таблице excel и переноса. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Написание макроса для поиска в таблице excel и переноса. (Макросы/Sub)
Написание макроса для поиска в таблице excel и переноса.
Hiryrg Дата: Среда, 24.09.2014, 11:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет! 
В изучении VBA я новичок. Одна надежда в постижении вершин мастерства на вас.
У меня есть следующая задача:
имеется таблица (excel 1) из 16 столбцов и 150 строк. В ней нужно найти определенное значение (Значение из столбика B) и перенести значение ячейки, которая находится через 11 справа в этой же строке в другой файл (excel 2) в определенное место. И таких определенных разных значений будет около 100 и каждое значение которому соответствует значение ячейки в той же строке через одну справа нужно переносить в определенное место файла.

должно получится примерно так:
ул. Галиуллина, д.6, кв.1 3441789 404,32
ул. Галиуллина, д.6, кв.2 3441793 496,11

***-значение которое есть в файлах excel 1 и excel 2
***-значение находится только в файле excel 1

Помогите пожалуйста работа очень монотонная и занимает очень много времени.
К сообщению приложен файл: excel_1.xls (80.5 Kb) · excel_2.xls (42.0 Kb)
 
Ответить
СообщениеВсем привет! 
В изучении VBA я новичок. Одна надежда в постижении вершин мастерства на вас.
У меня есть следующая задача:
имеется таблица (excel 1) из 16 столбцов и 150 строк. В ней нужно найти определенное значение (Значение из столбика B) и перенести значение ячейки, которая находится через 11 справа в этой же строке в другой файл (excel 2) в определенное место. И таких определенных разных значений будет около 100 и каждое значение которому соответствует значение ячейки в той же строке через одну справа нужно переносить в определенное место файла.

должно получится примерно так:
ул. Галиуллина, д.6, кв.1 3441789 404,32
ул. Галиуллина, д.6, кв.2 3441793 496,11

***-значение которое есть в файлах excel 1 и excel 2
***-значение находится только в файле excel 1

Помогите пожалуйста работа очень монотонная и занимает очень много времени.

Автор - Hiryrg
Дата добавления - 24.09.2014 в 11:44
Hiryrg Дата: Среда, 24.09.2014, 11:47 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Конечный вариант файла.
Должно получится примерно так:
К сообщению приложен файл: 9913376.xls (44.0 Kb)


Сообщение отредактировал Hiryrg - Среда, 24.09.2014, 11:50
 
Ответить
СообщениеКонечный вариант файла.
Должно получится примерно так:

Автор - Hiryrg
Дата добавления - 24.09.2014 в 11:47
Rioran Дата: Среда, 24.09.2014, 11:53 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Hiryrg, здравствуйте.

У Вас названия квартир в базовом и конечном файле сильно отличаются:

а). "ул. Галиуллина, д.6, кв.1"
б). "Магнитогорск, Лесопарк, Галиуллина, 6, 001"

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

*11:54* Или было бы лучше использовать одинаковый формат в обоих файлах.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279


Сообщение отредактировал Rioran - Среда, 24.09.2014, 11:54
 
Ответить
СообщениеHiryrg, здравствуйте.

У Вас названия квартир в базовом и конечном файле сильно отличаются:

а). "ул. Галиуллина, д.6, кв.1"
б). "Магнитогорск, Лесопарк, Галиуллина, 6, 001"

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

*11:54* Или было бы лучше использовать одинаковый формат в обоих файлах.

Автор - Rioran
Дата добавления - 24.09.2014 в 11:53
_Boroda_ Дата: Среда, 24.09.2014, 11:55 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вам обязательно для этого макрос нужен?
Формулой можно так
Код
=СУММПРОИЗВ(([excel_1.xls]Лист1!$B$8:$B$143=C1)*[excel_1.xls]Лист1!$M$8:$M$143)
К сообщению приложен файл: excel_2_1.xls (58.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВам обязательно для этого макрос нужен?
Формулой можно так
Код
=СУММПРОИЗВ(([excel_1.xls]Лист1!$B$8:$B$143=C1)*[excel_1.xls]Лист1!$M$8:$M$143)

Автор - _Boroda_
Дата добавления - 24.09.2014 в 11:55
Hiryrg Дата: Среда, 24.09.2014, 12:15 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Rioran,

а можно икать по номерам они одинаковые в обоих файлах только идут в разброс
 
Ответить
СообщениеRioran,

а можно икать по номерам они одинаковые в обоих файлах только идут в разброс

Автор - Hiryrg
Дата добавления - 24.09.2014 в 12:15
Hiryrg Дата: Среда, 24.09.2014, 12:27 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,

а можно как нибудь сделать так чтоб:
Если не находит значение пропускал его или перекрашивал в любой цвет.

примерно так:
К сообщению приложен файл: 5500626.xls (26.5 Kb)


Сообщение отредактировал Hiryrg - Среда, 24.09.2014, 12:33
 
Ответить
Сообщение_Boroda_,

а можно как нибудь сделать так чтоб:
Если не находит значение пропускал его или перекрашивал в любой цвет.

примерно так:

Автор - Hiryrg
Дата добавления - 24.09.2014 в 12:27
_Boroda_ Дата: Среда, 24.09.2014, 12:34 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Где не нашел, там нули.
Сделал еще закраску красным
К сообщению приложен файл: excel_2_2.xls (58.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеГде не нашел, там нули.
Сделал еще закраску красным

Автор - _Boroda_
Дата добавления - 24.09.2014 в 12:34
Hiryrg Дата: Среда, 24.09.2014, 12:50 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,

понимаю что наглею но можно сделать еще вот так

к примеру в файле (excel 1) есть некоторый строчки которые выделены красным вроде бы № сч-ков находит но нет значений можно сделать чтоб их выделял в жёлтый цвет.

Примерно так:
К сообщению приложен файл: 6195938.xls (26.5 Kb)


Сообщение отредактировал Hiryrg - Среда, 24.09.2014, 12:51
 
Ответить
Сообщение_Boroda_,

понимаю что наглею но можно сделать еще вот так

к примеру в файле (excel 1) есть некоторый строчки которые выделены красным вроде бы № сч-ков находит но нет значений можно сделать чтоб их выделял в жёлтый цвет.

Примерно так:

Автор - Hiryrg
Дата добавления - 24.09.2014 в 12:50
_Boroda_ Дата: Среда, 24.09.2014, 12:57 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Держите
[offtop]Бабуль, это красная смородина?
Нет, черная.
А почему такая белая?
А потому, что зеленая.
К сообщению приложен файл: excel_2_3.xls (69.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДержите
[offtop]Бабуль, это красная смородина?
Нет, черная.
А почему такая белая?
А потому, что зеленая.

Автор - _Boroda_
Дата добавления - 24.09.2014 в 12:57
Hiryrg Дата: Среда, 24.09.2014, 13:19 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,
Спасибо большое

А что отвечает за цвет ячейки?


Сообщение отредактировал Hiryrg - Среда, 24.09.2014, 13:28
 
Ответить
Сообщение_Boroda_,
Спасибо большое

А что отвечает за цвет ячейки?

Автор - Hiryrg
Дата добавления - 24.09.2014 в 13:19
Hiryrg Дата: Пятница, 26.09.2014, 13:25 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Народ помогите пожалуйста.

Есть формула:
Цитата
=ЕСЛИ(ЕОШИБКА(ПОИСКПОЗ(C5;Лист2!$B$8:$B$1000;));"Не нашел";СУММПРОИЗВ((Лист2!$B$8:$B$1000=C5)*Лист2!$M$8:$M$1000))


как к ней приписать так чтоб:
Если на "лист 2" в колонке "B" цвет ячейки красный, то цвет (лист 1 колонка D) заливался желтым.
К сообщению приложен файл: 8634007.xls (86.0 Kb)


Сообщение отредактировал Hiryrg - Пятница, 26.09.2014, 13:26
 
Ответить
СообщениеНарод помогите пожалуйста.

Есть формула:
Цитата
=ЕСЛИ(ЕОШИБКА(ПОИСКПОЗ(C5;Лист2!$B$8:$B$1000;));"Не нашел";СУММПРОИЗВ((Лист2!$B$8:$B$1000=C5)*Лист2!$M$8:$M$1000))


как к ней приписать так чтоб:
Если на "лист 2" в колонке "B" цвет ячейки красный, то цвет (лист 1 колонка D) заливался желтым.

Автор - Hiryrg
Дата добавления - 26.09.2014 в 13:25
AndreTM Дата: Пятница, 26.09.2014, 14:38 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Ну, можно, конечно, взять UDF, работающие с цветом ячейки, и использовать их...
Но здесь-то всё проще - можно "определиться" с неким доп.условием, которое и определяет, почему строка на втором листе "красная", и в ячейку дописывать кроме "не нашел" ещё и что-то другое, типа "пустой".

Но, конечно, приведенный пример не совсем оптимален: если из этих "красных" строк надо ещё выбирать и значения, или такой код есть и "пустой" и "непустой", то не пойдёт...
К сообщению приложен файл: 10-13150-1-1.xls (90.5 Kb)


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеНу, можно, конечно, взять UDF, работающие с цветом ячейки, и использовать их...
Но здесь-то всё проще - можно "определиться" с неким доп.условием, которое и определяет, почему строка на втором листе "красная", и в ячейку дописывать кроме "не нашел" ещё и что-то другое, типа "пустой".

Но, конечно, приведенный пример не совсем оптимален: если из этих "красных" строк надо ещё выбирать и значения, или такой код есть и "пустой" и "непустой", то не пойдёт...

Автор - AndreTM
Дата добавления - 26.09.2014 в 14:38
Hiryrg Дата: Понедельник, 29.09.2014, 07:03 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
AndreTM,
Спасибо
 
Ответить
СообщениеAndreTM,
Спасибо

Автор - Hiryrg
Дата добавления - 29.09.2014 в 07:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Написание макроса для поиска в таблице excel и переноса. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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