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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод с формы с проверкой на совпадение. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод с формы с проверкой на совпадение. (Макросы/Sub)
Ввод с формы с проверкой на совпадение.
Amator Дата: Среда, 08.10.2014, 18:00 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте, уважаемые форумчане. Нужна Ваша помощь. Есть форма ввода данных. Необходимо доработать макрос чтоб проверял данные на совпадение. Тоесть , проверить , если значение ComboBox3=значению из диапазона (G4:G433) , тогда вызвать UserForm1. В Label2 вставить значение из ComboBox3 и по нажатию кнопки сделать следуущее: заменить, добавить , выход. Буду благодарен за помощь.


Сообщение отредактировал Amator - Среда, 08.10.2014, 18:42
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане. Нужна Ваша помощь. Есть форма ввода данных. Необходимо доработать макрос чтоб проверял данные на совпадение. Тоесть , проверить , если значение ComboBox3=значению из диапазона (G4:G433) , тогда вызвать UserForm1. В Label2 вставить значение из ComboBox3 и по нажатию кнопки сделать следуущее: заменить, добавить , выход. Буду благодарен за помощь.
Автор - Amator
Дата добавления - 08.10.2014 в 18:00
EvgenyD Дата: Среда, 08.10.2014, 18:31 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Думаю файл примера повысит вероятность получить решение.
 
Ответить
СообщениеДумаю файл примера повысит вероятность получить решение.
Автор - EvgenyD
Дата добавления - 08.10.2014 в 18:31
0beorn Дата: Среда, 08.10.2014, 18:37 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: -5 ±
Замечаний: 0% ±

Excel 2010
Благодарность можно по-разному выражать ;-)
Вообще задача довольно простая, но без выложенного файла невыполнимая.)
 
Ответить
СообщениеБлагодарность можно по-разному выражать ;-)
Вообще задача довольно простая, но без выложенного файла невыполнимая.)
Автор - 0beorn
Дата добавления - 08.10.2014 в 18:37
Amator Дата: Среда, 08.10.2014, 18:56 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
0beorn, не могу загрузить пример- 164 КБ. Не могу уменшить.


Сообщение отредактировал Amator - Четверг, 09.10.2014, 13:26
 
Ответить
Сообщение0beorn, не могу загрузить пример- 164 КБ. Не могу уменшить.
Автор - Amator
Дата добавления - 08.10.2014 в 18:56
0beorn Дата: Среда, 08.10.2014, 19:19 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: -5 ±
Замечаний: 0% ±

Excel 2010
Господи, какая лютая штука! :'(

Назовите следующие параметры:
1) Name формы ввода данных
2) Name кнопки
3) Что чем заменить, что куда добавить и откуда выйти. Ничего ж не ясно..
 
Ответить
СообщениеГосподи, какая лютая штука! :'(

Назовите следующие параметры:
1) Name формы ввода данных
2) Name кнопки
3) Что чем заменить, что куда добавить и откуда выйти. Ничего ж не ясно..
Автор - 0beorn
Дата добавления - 08.10.2014 в 19:19
Amator Дата: Четверг, 09.10.2014, 13:00 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте. Удалось уменшить файл. Пожалуйста, посмотрите.
К сообщению приложен файл: 8484571.xls (75.0 Kb)
 
Ответить
СообщениеЗдравствуйте. Удалось уменшить файл. Пожалуйста, посмотрите.
Автор - Amator
Дата добавления - 09.10.2014 в 13:00
Amator Дата: Четверг, 09.10.2014, 13:44 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
0beorn, здравствуйте.Форма ввода-UserForm5.Если макрос найдет совпадение (если значение ComboBox3=значению из диапазона (G4:G433) ) - появляется UserForm1.На ней три кнопки :CommandButton1(заменить)- заменить значения в таблице на значения из UserForm5. CommandButton2(добавить)- добавить значения из UserForm5 в конец таблицы. CommandButton2(отменить)- ничего не изменять ,выход из UserForm1 и обнуление TextBox -ов на UserForm5.
 
Ответить
Сообщение0beorn, здравствуйте.Форма ввода-UserForm5.Если макрос найдет совпадение (если значение ComboBox3=значению из диапазона (G4:G433) ) - появляется UserForm1.На ней три кнопки :CommandButton1(заменить)- заменить значения в таблице на значения из UserForm5. CommandButton2(добавить)- добавить значения из UserForm5 в конец таблицы. CommandButton2(отменить)- ничего не изменять ,выход из UserForm1 и обнуление TextBox -ов на UserForm5.
Автор - Amator
Дата добавления - 09.10.2014 в 13:44
EvgenyD Дата: Четверг, 09.10.2014, 20:16 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Amator, Сделал проверку на совпадение -> вывод UserForm1. На UserForm1 сделал кнопку отмены (CommandButton2(отменить)- ничего не изменять ,выход из UserForm1 и обнуление TextBox -ов на UserForm5.)
Про "заменить". При совпадении ComboBox3=значению из диапазона номер строки диапазона с совпадающим значением передается в переменную Public NumDouble, дальше ее можно использовать в "заменить". Т.е. запускаете выполнение своего кода вставки, но отталкиваясь от NumDouble.Это будет работать только при условии что у Вас в таблице может быть только одно совпадение. Или заменять мы будем первое совпадение сверху. Если нужно выбрать какое из нескольких совпадений заменять, то нужно по другому делать, посложнее.
При нажатии "Добавить" тоже что и заменить, но вместо NumDouble ставите последнюю строку таблицы.
С Вашим кодом вставки не разбирался. Куда он должен по задумке вставить значения из UserForm5? В строки по порядку сверху вниз или еще как-то?
К сообщению приложен файл: Amator.xls (74.0 Kb)
 
Ответить
СообщениеAmator, Сделал проверку на совпадение -> вывод UserForm1. На UserForm1 сделал кнопку отмены (CommandButton2(отменить)- ничего не изменять ,выход из UserForm1 и обнуление TextBox -ов на UserForm5.)
Про "заменить". При совпадении ComboBox3=значению из диапазона номер строки диапазона с совпадающим значением передается в переменную Public NumDouble, дальше ее можно использовать в "заменить". Т.е. запускаете выполнение своего кода вставки, но отталкиваясь от NumDouble.Это будет работать только при условии что у Вас в таблице может быть только одно совпадение. Или заменять мы будем первое совпадение сверху. Если нужно выбрать какое из нескольких совпадений заменять, то нужно по другому делать, посложнее.
При нажатии "Добавить" тоже что и заменить, но вместо NumDouble ставите последнюю строку таблицы.
С Вашим кодом вставки не разбирался. Куда он должен по задумке вставить значения из UserForm5? В строки по порядку сверху вниз или еще как-то?
Автор - EvgenyD
Дата добавления - 09.10.2014 в 20:16
Amator Дата: Четверг, 09.10.2014, 21:03 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
EvgenyD, макрос движется по столбцу АС , находит там дату и ниже ее вводит из UserForm5 данныв строки по порядку сверху вниз.
 
Ответить
СообщениеEvgenyD, макрос движется по столбцу АС , находит там дату и ниже ее вводит из UserForm5 данныв строки по порядку сверху вниз.
Автор - Amator
Дата добавления - 09.10.2014 в 21:03
EvgenyD Дата: Четверг, 09.10.2014, 22:22 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Amator, уточните
Цитата
CommandButton2(добавить)- добавить значения из UserForm5 в конец таблицы
Имеется ввиду в нижнюю строку например №10 (с 49 по 53 строки) или в строку с этой же ТТН но в следующий столбец?
 
Ответить
СообщениеAmator, уточните
Цитата
CommandButton2(добавить)- добавить значения из UserForm5 в конец таблицы
Имеется ввиду в нижнюю строку например №10 (с 49 по 53 строки) или в строку с этой же ТТН но в следующий столбец?
Автор - EvgenyD
Дата добавления - 09.10.2014 в 22:22
EvgenyD Дата: Четверг, 09.10.2014, 22:55 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Amator, Вот вариант со вставкой в нижнюю строку. Вдруг он и нужен.
Ваш код можно и нужно подчистить, много лишних строк. (это еще на мой взгляд новичка, думаю профи смогли бы сократить код на 70-80%)
В первом высланном файле я переменную NumDouble не там объявил, еще нужно первой строкой в код модуля поставить. В этом исправил.
Кнопки работают как Вы просили.
К сообщению приложен файл: 6908607.xls (93.0 Kb)
 
Ответить
СообщениеAmator, Вот вариант со вставкой в нижнюю строку. Вдруг он и нужен.
Ваш код можно и нужно подчистить, много лишних строк. (это еще на мой взгляд новичка, думаю профи смогли бы сократить код на 70-80%)
В первом высланном файле я переменную NumDouble не там объявил, еще нужно первой строкой в код модуля поставить. В этом исправил.
Кнопки работают как Вы просили.
Автор - EvgenyD
Дата добавления - 09.10.2014 в 22:55
Amator Дата: Четверг, 09.10.2014, 23:37 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
EvgenyD, с заменой все верно. По поводу "добавить" - данные в данном случае добавить в строку №4(следующую свободную).
 
Ответить
СообщениеEvgenyD, с заменой все верно. По поводу "добавить" - данные в данном случае добавить в строку №4(следующую свободную).
Автор - Amator
Дата добавления - 09.10.2014 в 23:37
EvgenyD Дата: Четверг, 09.10.2014, 23:59 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Amator,
Цитата
CommandButton2(добавить)- добавить значения из UserForm5 в конец таблицы

и
Цитата
По поводу "добавить" - данные в данном случае добавить в строку №4(следующую свободную).

Вот даже не предположил из Вашей первой формулировки. :)
 
Ответить
СообщениеAmator,
Цитата
CommandButton2(добавить)- добавить значения из UserForm5 в конец таблицы

и
Цитата
По поводу "добавить" - данные в данном случае добавить в строку №4(следующую свободную).

Вот даже не предположил из Вашей первой формулировки. :)
Автор - EvgenyD
Дата добавления - 09.10.2014 в 23:59
EvgenyD Дата: Пятница, 10.10.2014, 00:07 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Вот, держите.
К сообщению приложен файл: 9575354.xls (92.0 Kb)
 
Ответить
СообщениеВот, держите.
Автор - EvgenyD
Дата добавления - 10.10.2014 в 00:07
Amator Дата: Пятница, 10.10.2014, 00:28 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
EvgenyD, большое спасибо . Хорошая работа. В макрос внес некие доработки. Может кому пригодится.
К сообщению приложен файл: ____.xlsm (40.8 Kb)
 
Ответить
СообщениеEvgenyD, большое спасибо . Хорошая работа. В макрос внес некие доработки. Может кому пригодится.
Автор - Amator
Дата добавления - 10.10.2014 в 00:28
EvgenyD Дата: Пятница, 10.10.2014, 07:57 | Сообщение № 16
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
[offtop] Amator, для спасибо есть кнопочка на форуме )[/offtop]
 
Ответить
Сообщение[offtop] Amator, для спасибо есть кнопочка на форуме )[/offtop]
Автор - EvgenyD
Дата добавления - 10.10.2014 в 07:57
Pelena Дата: Пятница, 10.10.2014, 08:48 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
EvgenyD, читаем Правила форума п. 5Р

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеEvgenyD, читаем Правила форума п. 5Р
Автор - Pelena
Дата добавления - 10.10.2014 в 08:48
EvgenyD Дата: Пятница, 10.10.2014, 11:12 | Сообщение № 18
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Pelena, Упустил что-то. Просто на многих форумах это стандартная фраза и считается нормой, если имеет аргументацию.
Больше не буду.
 
Ответить
СообщениеPelena, Упустил что-то. Просто на многих форумах это стандартная фраза и считается нормой, если имеет аргументацию.
Больше не буду.
Автор - EvgenyD
Дата добавления - 10.10.2014 в 11:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод с формы с проверкой на совпадение. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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