Поиск в массиве

[maksim_serg]

Всем доброго времени!
помогите написать код - есть переменная "d", если в диапазоне "A10:A34700" есть такое значение, то присваиваем его переменной v, иначе v="" и программа идет дальше. Мой вариант:

On Error Resume Next
d = "текст"
v= Range("A10:A34700").Find(What:=d).Value

отдельно работает и если d существует тоже, но в цикле при ошибке (значение d не найдено) почему то ищет не точное совпадение, а частичное. тоесть если d="ара", то возвращает v="гараж", а надо что б было v = "".

и еще такой вопрос: возможно ли одновременное выполнение двух макросов? смысл такой:
макрос №1 ищет в диапазоне "A10:A17000", а
макрос №2 ищет в диапазоне "A17001:A34700",
если это уменьшит время поиска конечно

[ELE-COM]

Можно записать через макросридер с условиями поиска подробнее, а чтобы не искались приближенные результаты - включите "ячейка целиком"

[SAS888]

почему то ищет не точное совпадение

У метода Find есть "куча" опций. Почитайте справку. В Вашем случае нужно так:

d = "ара": On Error Resume Next
v = [A10:A3700].Find(what:=d, LookAt:=xlWhole)

возможно ли одновременное выполнение двух макросов?
макрос №1 ищет в диапазоне "A10:A17000", а
макрос №2 ищет в диапазоне "A17001:A34700",
если это уменьшит время поиска конечно

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

[maksim_serg]

и зачем я стер LookAt:=xlWhole после записи...

по поводу сразу двух макросов: я хотел чтоб два макроса искали одну и туже переменную сразу в двух частях диапазона и, кто первы найдет ее тот и прсваивает ее значение другой переменной

[SAS888]

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

Оригинально!!! Устроить гонки?
Что значит "кто первый найдет"? По времени? Или по адресу? Опишите подробнее, что Вам требуется, а мы подскажем, как это лучше реализовать.

[maksim_serg]

По времени.
есть диапазон : A1:A34700 (во всех ячейках текст). нужно узнать, есть ли в нем ячейка, значение которой равно d и, пусть вывести ее адрес.
Поиск в ручную: мы смотрим ячейку А1 и сравниваем с о значением переменной d, потом А2, А3... и на конец А34700. А можно искать ее двум человекам. Первый начинает с ячейки А1, второй либо с А17350, либо с конца. Таким образом время поиска может сократиться почти в два раза.
Но вопрос не в том как запустить сразу два (думаю можно где нибудь найти), а сократит ли это время поиска, или при работе сразу двух макросов скорость каждого из них уменьшиться в двое и в результате получим еще медленнее?

[EducatedFool]

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

В данном случае Excel выполняет поиск почти моментально.
Использовать 2 макроса нецелесообразно.

[ELE-COM]

Сообщение от maksim_serg

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

Это увеличит время обработки. Код VBA работает в несколько раз медленнее встроенных функций Excel. Если обычный поиск (не в VBA) найдет ячейку в вашем диапазоне за 0,01 сек., то VBA потратит на это 0,5-1 сек. Если сразу два макроса, то еще медленнее. А вообще, при таких значениях времени стоит-ли париться? Не минуты же.

[maksim_serg]

Сообщение от ELE-COM

Не минуты же.

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

[Skif-F]

Сообщение от ELE-COM

Это увеличит время обработки. Код VBA работает в несколько раз медленнее встроенных функций Excel. Если обычный поиск (не в VBA) найдет ячейку в вашем диапазоне за 0,01 сек., то VBA потратит на это 0,5-1 сек. Если сразу два макроса, то еще медленнее. А вообще, при таких значениях времени стоит-ли париться? Не минуты же.

По-моему, maksim_serg хотел пустить два потока сразу