Oтслеживание диапазона чисел и присвоение ранга при изменении.

[Oldy7]

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

Огромное спасибо, все работает отлично! В проверке диапазона правда я добавил проверять не до 100, а до 1000 строки. Был бы алгоритм на добавление значения в диапазон, было бы идеально!)

Вроде должно работать)
Пример (2) (2).xls

If prior(a, 1) = Empty Or Not IsNumeric(CInt(prior(a, 1))) Then prior(a, 1) = Empty Else prior(a, 1) = Application.Round(CInt(Trim(CStr(prior(a, 1)))), 0)

Вариант, если есть подозрение, что пользователь любит дроби или может поставить пробел при вводе числа.

[FINt09]

Я попробовал ввести слово "нет плат" и макрос перестал отвечать на изменения, вчем может быть дело?(
Слово ввел в произвольную ячейку диапазона приоритета, ячейка не была занята числом.

Голова забита, тормозит немного) Сейчас вот вспомнил ,что помимо чисел приоритета в ячейки диапазона мы вводим текст, можно текст игнорить и следить за изменениями чисел?

[Oldy7]

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

Я попробовал ввести слово "нет плат" и макрос перестал отвечать на изменения, вчем может быть дело?(
Слово ввел в произвольную ячейку диапазона приоритета, ячейка не была занята числом.

Голова забита, тормозит немного) Сейчас вот вспомнил ,что помимо чисел приоритета в ячейки диапазона мы вводим текст, можно текст игнорить и следить за изменениями чисел?

Вот
Пример (2) (2).xls

[FINt09]

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

Вот
Вложение 90754

Вы можете пересмотреть алгоритм прибавления числа в диапазоне? Вставляйте число 1 каждый раз в пустую ячейку диапазона (имея изначально приоритеты 1, 2, 3, 4, 5 к примеру), странное происходит изменение значений которые равны или больше добавляемого.

[Oldy7]

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

Вы можете пересмотреть алгоритм прибавления числа в диапазоне? Вставляйте число 1 каждый раз в пустую ячейку диапазона (имея изначально приоритеты 1, 2, 3, 4, 5 к примеру), странное происходит изменение значений которые равны или больше добавляемого.

Исправил. Считывание данных идет сверху вниз. Если в столбце есть одинаковые цифры, то дублем считается второе встреченное значение из двух найденных. Также логика макроса предполагает, что ввод нового приоритета в столбец "H" завершается нажатием Enter. Т.е. если будет выделена ячейка под вновь введенным "приоритетом", а аналог этого значения находится выше, то внутри массива меняются индексы и дублем уже считается более "старое" значение.
Пример (2) (2).xls

[FINt09]

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

Исправил. Считывание данных идет сверху вниз. Если в столбце есть одинаковые цифры, то дублем считается второе встреченное значение из двух найденных. Также логика макроса предполагает, что ввод нового приоритета в столбец "H" завершается нажатием Enter. Т.е. если будет выделена ячейка под вновь введенным "приоритетом", а аналог этого значения находится выше, то внутри массива меняются индексы и дублем уже считается более "старое" значение.
Вложение 90771

Класс!!! Все работает идеально!) Спасибо! Тему можно считать закрытой.