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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2009, 23:07   #11
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Да там формула . Просто если значение переваливает за ноль, в данной формуле, то выходит сообщение, ну как в проверке данных.
segail вне форума Ответить с цитированием
Старый 30.08.2009, 23:09   #12
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Может, что-то типа такого (если понял правильно):
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Address = "$R$38" And Range("R38").Value < 0) Then MsgBox "Ввод запрещен"
End Sub
либо

Код:
Private Sub Worksheet_Calculate()

If (Range("R38").Value < 0) Then MsgBox "В ячейке R38 значение меньше нуля"
End Sub
motorway вне форума Ответить с цитированием
Старый 30.08.2009, 23:25   #13
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Поняли правильно. Сообщение выходит, но и данные меньше ноля вводятся.
Я думал может как то без кода обойтись можно, вроде формулы ЕСЛИ
segail вне форума Ответить с цитированием
Старый 30.08.2009, 23:39   #14
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

тогда будет циклическая ссылка. В принципе можно попробовать сделать макрос, который при вводе просто возвращает старое значение
motorway вне форума Ответить с цитированием
Старый 30.08.2009, 23:49   #15
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

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

Последний раз редактировалось segail; 30.08.2009 в 23:51.
segail вне форума Ответить с цитированием
Старый 30.08.2009, 23:51   #16
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

вам главное просто сохранить это отрицательное значение, чтобы оно осталось, единожды ставши отрицательным? ввод запрещается только для этой ячейки?
motorway вне форума Ответить с цитированием
Старый 30.08.2009, 23:54   #17
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Не подойдет такой вариант - при выделении этой ячейки, если там <0, курсор просто переходит на другую ячейку:
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Address = "$A$1" And Range("A1").Value < 0) Then Range("A2").Select


End Sub
Угадать обычно можно, ведь есть событие Selection_Change

Последний раз редактировалось motorway; 31.08.2009 в 00:01.
motorway вне форума Ответить с цитированием
Старый 30.08.2009, 23:57   #18
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Ввод запрещается для ячейки которую на данный момент предугадать нельзя, значение просто будет удаляться в водимую ячейку, естественно отрицательное значение в R38 единожды тоже не будет.
segail вне форума Ответить с цитированием
Старый 30.08.2009, 23:59   #19
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Мой пост выше подходит?
motorway вне форума Ответить с цитированием
Старый 31.08.2009, 00:10   #20
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Ваш пост уже другая тема.
В ячейки, которые как бы нельзя предугадать вводятся данные, через различные формулы данные попадают в ячейку R38 в ней отображается конечное значение оно может быть положительным и может быть отрицательным. Отрицательное значение не допустимо, оно нарушает систему дальнейшего расчета. Для этого и необходимо запрет или удаление вводимых значений в ячейки или ячейку которые нельзя предугадать.
segail вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Условие для TextBox segail Microsoft Office Excel 7 02.08.2009 23:15
Особое условие для цикла Vikelf Помощь студентам 2 29.05.2009 08:01
Условие для макроса sergiksergik Microsoft Office Excel 8 23.05.2009 20:54
Условие для файлов Nemesisking Общие вопросы Delphi 11 30.01.2009 09:20