[Gerdewski]

Важно. Значения в массиве должны быть расположены в порядке возрастания: ..., -2, -1, 0, 1, 2, ..., A-Z, ЛОЖЬ, ИСТИНА; в противном случае функция ПРОСМОТР может вернуть неверный результат.

Выдержка из описания функции ПРОСМОТР или LOOKUP в Microsoft OFFICE Excell 2003.
Я считаю: дальнейшее обсуждение этой функции бессмысленно.

[Greyman]

maxo

Вы обратите внимание: если в В19 записать =LOOKUP(A20;$E$1:$E$5952), то формула работает, а если =LOOKUP(A20;$E$1:$E$5953), тогда нет. В то же время эта "критическая" ячейка 5953 ничем не примечательна, то что там другие (ненулевые) цифры начинаются, это я сам ставил для пробы. Кроме того, в предыдущей ячейке формула работает, каково бы не было это число. Вот над этим бются теперь около 5 человек , вчера даже в skype разбирали.

Gerdewski правильно про описание работы формулы заметил...
А теперь вопрос: Если тебя сразу предупридили, что при невыполнении определенных условий правильность работы функции не гарантирована, то нахрена ломать голову над тем, почему она таки в некоторых случаях работает правильно, вместо того, чтобы выполнить требуемые условия? При правильной сортировке функция работает совершенно правильно согласно описанию... Если же сортировать не хочешь, то используй предложенный мной вариант, он работает совершенно правильно, а обработчик ошибок можно довесить пи необходимости...

[Pliomera]

maxo

Долго процесс проистекает из-за того, что тело вложенного цикла выполняется множество раз. В эксцелле максимальное число строк в столбце - 65536, значит при полностью заполненных столбцах (исходный плюс выборка) процесс будет выполнен 65536^2 = 4294967296 раз. Даже если одна операция занимает одну миллисекунду на весь алгоритм уйдет около 50 суток. Пробуем оптимизировать. Действительно, циклы лучше поменять местами, так как выборка в общем случае короче основного списка. При нахождении нужного значения добавим выход из внутреннего цикла по оператору Exit for. Это всё.

Итог таков:

Sub ChoiceFromColumne()
Dim iCount As Integer, jCount As Integer
With Sheets(1)
For jCount = 1 To .Cells(1, 3).End(xlDown).Row
For iCount = 1 To .Cells(1, 1).End(xlDown).Row
If .Cells(jCount, 3).Value = .Cells(iCount, 1) Then
.Cells(jCount, 4).Value = .Cells(iCount, 2).Value
Exit For
End If
Next iCount
Next jCount
End With
End Sub

Будет немного быстрей.

[maxo]

Pliomera

Да, это другое дело, и быстрее. Я уже несколько полезных макросов сделал "на его базе". Спасибо.
Насчет длительности процесса понятно, конечно, я имел в виду, что, например при написании кода мне было известно длительность выполнении каждой команды, и старался, чтоб медленные из них в циклы попались как можно меньше. Тут наверно нет такой практики. Или даже возможности/необходимости?


Greyman
Gerdewski
Насколько я понимаю свои вопросы, я не спрашивал Вас как делать выборку и вообще как решать эту проблему. Мне интересно, почему одинаковые формулы в одинаковых условиях ведут себя по разному? Если Это Вам неинтересно, милости просим отсюда без размышлений о том, насколько целесообразны далнейшие рассуждения.

[dascon]

В Excel вводим в ячейку число (например, 100000). Далее для нее "формат ячеек", "числовой", включаю "Разделитель групп разрядов (,)", ОК. А вместо "100,000,00" вижу "100000,0,00". В чем проблема и как решить? Пробовал на Office XP - такой проблемы нет.

MS Office Excel 2003 (11.8033.8036) SP2

[detrin]

Возможно проблема в региональных настройках компьютера.
Панель Управления -> Язык и региональные настройки -> Вкладка Региональные параметры -> Настройка -> во вкладках Числа и Денежные единицы поменять Разделитель групп разрядов на нужный.

Или в самом экселе не задан разделитель разрядов, поищи в настройках.

[dascon]

в региональных настройках компьютера

смотрел там, все по-обычному

Или в самом экселе не задан разделитель разрядов

задан, пробовал не задавать, менять - ничего

[xbreaker]

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

[mleck]

может попробовать шабло удалить, а Excel его заново создаст уже с настройками по умолчанию. он лежит тут
C:\Documents and Settings\user\Application Data\Microsoft\Excel с расширением .xlb

[dascon]

mleck
не помогло