День добрый. Нестандартный вопрос... Можно ли проивести такую проверку данных: в ячейках проставлены проценты, и если кто-то, по ошибке, или по глупости, решит внести в данные ячейки меньшее число которое на данный момент стоит в ячейке (т.е в ячейке стот 90% и если вносят в ячейку 89% , то выскакивает страшное и опасное сообщение типа "Неверные данные, % не может быть меньше сегоднешнего дня"). Я алгоритм вроде понимаю: назначиь переменные, в выбранной ячейке с помощю оператора if сравнить введённое значение и которое было введено, и then и т.д. и msgbox, но вот со значениями чё-то как-то не могу осилить и на форумах вопрос не могу нормально сформулировать для исчерпывающего ответа.
День добрый. Нестандартный вопрос... Можно ли проивести такую проверку данных: в ячейках проставлены проценты, и если кто-то, по ошибке, или по глупости, решит внести в данные ячейки меньшее число которое на данный момент стоит в ячейке (т.е в ячейке стот 90% и если вносят в ячейку 89% , то выскакивает страшное и опасное сообщение типа "Неверные данные, % не может быть меньше сегоднешнего дня"). Я алгоритм вроде понимаю: назначиь переменные, в выбранной ячейке с помощю оператора if сравнить введённое значение и которое было введено, и then и т.д. и msgbox, но вот со значениями чё-то как-то не могу осилить и на форумах вопрос не могу нормально сформулировать для исчерпывающего ответа.QwertyBoss
Ну чё вы так, парни. Ну не терпится после молока с огурцами. QwertyBoss, Не надо думать, что здесь кто то, кому то, чем то настолько обязан, что сразу набросится решать вам задачу. А с таким отношением может никто вообще не набросится!
Ну чё вы так, парни. Ну не терпится после молока с огурцами. QwertyBoss, Не надо думать, что здесь кто то, кому то, чем то настолько обязан, что сразу набросится решать вам задачу. А с таким отношением может никто вообще не набросится! Wasilich
Да нет. Никаких претензий... И если я кого то обидел и/или нагрубил 1000 извинений. Ну не терпится после молока с огурцами. =). Просто самого бесит когда не получается, когда и так пробушь и так и на форумах "прописался", а ответ с решением интересен - "а вот как так можно?", "а получится ли так?". Не судите строго , институтов по программированию не заканчивал... самоучка
Да нет. Никаких претензий... И если я кого то обидел и/или нагрубил 1000 извинений. Ну не терпится после молока с огурцами. =). Просто самого бесит когда не получается, когда и так пробушь и так и на форумах "прописался", а ответ с решением интересен - "а вот как так можно?", "а получится ли так?". Не судите строго , институтов по программированию не заканчивал... самоучкаQwertyBoss
Wasilic спс. прикольно получилось "ТЫ ЧЁ ТВОРИШЬ, КТО РАЗРЕШИЛ МЕНЯТЬ?" улыбнуло...=) А если в болшую сторону - можно менять, а в меньшую - нельзя... Пробывал поменять <> в разных вариациях, понял - что не так всё посто как хотелось бы... Ищё раз простите моё нахальство и хамство, и.... не спешите с ответом :) ЗЫ а разве Application.EnableEvents не должен быть False или True ? или я что то путаю?
Wasilic спс. прикольно получилось "ТЫ ЧЁ ТВОРИШЬ, КТО РАЗРЕШИЛ МЕНЯТЬ?" улыбнуло...=) А если в болшую сторону - можно менять, а в меньшую - нельзя... Пробывал поменять <> в разных вариациях, понял - что не так всё посто как хотелось бы... Ищё раз простите моё нахальство и хамство, и.... не спешите с ответом :) ЗЫ а разве Application.EnableEvents не должен быть False или True ? или я что то путаю?QwertyBoss
Сообщение отредактировал QwertyBoss - Четверг, 17.12.2015, 23:31
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("H2:H8"), Target) Is Nothing Then Else Exit Sub Dim a Application.EnableEvents = 0 a = Target.Value Application.Undo If Target > a Then MsgBox "ТЫ ЧЁ ТВОРИШЬ, КТО РАЗРЕШИЛ МЕНЯТЬ?" Else Target = a End If Application.EnableEvents = -1 End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("H2:H8"), Target) Is Nothing Then Else Exit Sub Dim a Application.EnableEvents = 0 a = Target.Value Application.Undo If Target > a Then MsgBox "ТЫ ЧЁ ТВОРИШЬ, КТО РАЗРЕШИЛ МЕНЯТЬ?" Else Target = a End If Application.EnableEvents = -1 End Sub
Да блинн, как у Вас так легко всё получается? Посмотрел, подставил, удивился, и .... расстроился =( из - за того что сам не догодался. Спс. Wasilic за решение. ЗЫ [А где было написано?]
[внести в данные ячейки меньшее число которое на данный момент стоит в ячейке] [moder]Для цитат есть специальная кнопочка
Да блинн, как у Вас так легко всё получается? Посмотрел, подставил, удивился, и .... расстроился =( из - за того что сам не догодался. Спс. Wasilic за решение. ЗЫ [А где было написано?]
[внести в данные ячейки меньшее число которое на данный момент стоит в ячейке] [moder]Для цитат есть специальная кнопочкаQwertyBoss
Сообщение отредактировал _Boroda_ - Пятница, 18.12.2015, 09:08