|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.06.2014, 12:44 | #1 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
поиск по значению в TextBox
Здравствуйте! сделал поиск по значению текстбокс, приведу ниже код, вопрос - можно ли сделать поиск по неполному значению? например - в ячейке записано "петров в. п." а хотелось бы находить по значению в текстбоксе "петров"
код Dim nomer As Long nomer = Worksheets("данные").Range("p1") 'переменная получает количество строк для обработки For y = 2 To nomer + 1 If Worksheets("данные").Range("g" & y) = TextBoxpf.Value Then 'если значение в ячейке совпадает с текстбоксом Worksheets("данные").Range("a" & y & ":n" & y).Copy Worksheets("формы").Cells(Rows.Coun t, 1).End(xlUp).Offset(1) End If Next y |
04.06.2014, 15:45 | #2 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
Может быть так:
Код:
Нет нерешаемых задач - есть недостаток времени и данных!
|
05.06.2014, 16:39 | #3 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
нет не получается, вылазит ошибка - invalid procedure call or argument
|
05.06.2014, 17:02 | #4 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
В какой строке?
Нет нерешаемых задач - есть недостаток времени и данных!
|
05.06.2014, 17:50 | #5 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
|
06.06.2014, 15:37 | #6 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
Проверьте связи в Tools/References. Должны быть следующие компоненты:
Нет нерешаемых задач - есть недостаток времени и данных!
|
06.06.2014, 15:50 | #7 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
вот как у меня
|
06.06.2014, 16:02 | #8 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
Попробуйте последние две строчки поменять местами.
Пардон, туплю. Вроде, всё соответствует. Иногда (у меня это часто было в офисе 2003) почему-то Бейсик на понимал команд работы со строкой - Mid, Left, Right
Нет нерешаемых задач - есть недостаток времени и данных!
Последний раз редактировалось Skif-F; 06.06.2014 в 16:05. |
06.06.2014, 16:09 | #9 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
все равно ошибка
|
06.06.2014, 16:25 | #10 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
Пройдись по ссылке. Может, решишь вопрос.
http://forum.codenet.ru/q22541/
Нет нерешаемых задач - есть недостаток времени и данных!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заполнение textBox из таблицы по значению ComboBox | and150382 | Microsoft Office Excel | 0 | 29.03.2013 01:23 |
Поиск и выбор в DBGrid по значению | biohazardo | БД в Delphi | 2 | 28.04.2011 15:03 |
Формула в Экселе, поиск по значению... | Илья Николаевич | Microsoft Office Excel | 14 | 15.07.2010 20:10 |
Поиск по значению | OgE®_M@G | Microsoft Office Excel | 3 | 23.02.2010 06:33 |
Поиск в базе по значению в Edit | Arteom | БД в Delphi | 2 | 19.10.2007 22:23 |