Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.11.2017, 13:49   #31
Oldy7
Пользователь
 
Регистрация: 25.02.2012
Сообщений: 28
По умолчанию

Цитата:
Сообщение от 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)
Вариант, если есть подозрение, что пользователь любит дроби или может поставить пробел при вводе числа.

Последний раз редактировалось Oldy7; 28.11.2017 в 14:05.
Oldy7 вне форума Ответить с цитированием
Старый 28.11.2017, 14:04   #32
FINt09
Пользователь
 
Регистрация: 24.11.2017
Сообщений: 20
По умолчанию

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

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

Последний раз редактировалось FINt09; 28.11.2017 в 14:09.
FINt09 вне форума Ответить с цитированием
Старый 28.11.2017, 14:57   #33
Oldy7
Пользователь
 
Регистрация: 25.02.2012
Сообщений: 28
По умолчанию

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

Голова забита, тормозит немного) Сейчас вот вспомнил ,что помимо чисел приоритета в ячейки диапазона мы вводим текст, можно текст игнорить и следить за изменениями чисел?
Вот
Пример (2) (2).xls
Oldy7 вне форума Ответить с цитированием
Старый 28.11.2017, 15:31   #34
FINt09
Пользователь
 
Регистрация: 24.11.2017
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Oldy7 Посмотреть сообщение
Вы можете пересмотреть алгоритм прибавления числа в диапазоне? Вставляйте число 1 каждый раз в пустую ячейку диапазона (имея изначально приоритеты 1, 2, 3, 4, 5 к примеру), странное происходит изменение значений которые равны или больше добавляемого.
FINt09 вне форума Ответить с цитированием
Старый 29.11.2017, 02:05   #35
Oldy7
Пользователь
 
Регистрация: 25.02.2012
Сообщений: 28
По умолчанию

Цитата:
Сообщение от FINt09 Посмотреть сообщение
Вы можете пересмотреть алгоритм прибавления числа в диапазоне? Вставляйте число 1 каждый раз в пустую ячейку диапазона (имея изначально приоритеты 1, 2, 3, 4, 5 к примеру), странное происходит изменение значений которые равны или больше добавляемого.
Исправил. Считывание данных идет сверху вниз. Если в столбце есть одинаковые цифры, то дублем считается второе встреченное значение из двух найденных. Также логика макроса предполагает, что ввод нового приоритета в столбец "H" завершается нажатием Enter. Т.е. если будет выделена ячейка под вновь введенным "приоритетом", а аналог этого значения находится выше, то внутри массива меняются индексы и дублем уже считается более "старое" значение.
Пример (2) (2).xls
Oldy7 вне форума Ответить с цитированием
Старый 29.11.2017, 08:17   #36
FINt09
Пользователь
 
Регистрация: 24.11.2017
Сообщений: 20
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расчет диапазона чисел lanzar Microsoft Office Excel 0 20.04.2015 17:08
Включение макроса при изменении текста. gling Microsoft Office Excel 3 20.07.2010 20:11
Событие при изменении дерева RIO Общие вопросы Delphi 17 17.05.2010 02:35
innerHTML при изменении st1512 HTML и CSS 0 07.09.2009 10:04
Работа программы при изменении Rom1k06 Microsoft Office Excel 8 18.01.2009 19:05