Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2,C2")) Is Nothing Then Exit Sub If Target.Offset(-1, 0) < Target.Value Then MsgBox "Смотри че пишешь" End Sub
[/vba]
еще вариант [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2,C2")) Is Nothing Then Exit Sub If Target.Offset(-1, 0) < Target.Value Then MsgBox "Смотри че пишешь" End Sub
Sub Проверка() If cells(1,1) < cells(1,1) Then MsgBox "Смотри че пишешь" End If End Sub
[/vba]
Ребята и девчата, что-то я не въеду: тут разве не лишний End If ? (а проверять лень, т.к. ежу понятно, что условие cells(1,1) < cells(1,1) не выполнится никогда)
Может быть всё-таки не в логике, а в синтаксисе проблема? Ведь Вадим не пояснил, что значит
Цитата (light26)
не работают
Цитата (light26)
[vba]
Код
Sub Проверка() If cells(1,1) < cells(1,1) Then MsgBox "Смотри че пишешь" End If End Sub
[/vba]
Ребята и девчата, что-то я не въеду: тут разве не лишний End If ? (а проверять лень, т.к. ежу понятно, что условие cells(1,1) < cells(1,1) не выполнится никогда)
Может быть всё-таки не в логике, а в синтаксисе проблема? Ведь Вадим не пояснил, что значит
Повторно не въеду... На мой взгляд там в нескольких постах Вадима упорно повторяется одна и та же ошибка в синтаксисе, но никто её почему-то не замечает и обсуждают логику или предлагают другие пути решения.
Цитата (AlexM)
См Первое сообщение
Повторно не въеду... На мой взгляд там в нескольких постах Вадима упорно повторяется одна и та же ошибка в синтаксисе, но никто её почему-то не замечает и обсуждают логику или предлагают другие пути решения.Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Вторник, 05.03.2013, 22:04
Задача: запретить ввод значений в ячейку А2 и С2 больших, чем в ячейках А1 и С1 соответственно.
и показал код с кучей ошибок [vba]
Код
Sub Проверка() If cell("A1") < cell("A2") Then MsgBox "Смотри че пишешь" End If End Sub
[/vba] Если честно, то я про запрет забыл и сделал только сообщение. Сейчас добавлю в код запрет [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2,C2")) Is Nothing Then Exit Sub If Target.Offset(-1, 0) < Target.Value Then Target.Value = "": MsgBox "Смотри че пишешь" End Sub
[/vba]
Цитата (light26)
Задача: запретить ввод значений в ячейку А2 и С2 больших, чем в ячейках А1 и С1 соответственно.
и показал код с кучей ошибок [vba]
Код
Sub Проверка() If cell("A1") < cell("A2") Then MsgBox "Смотри че пишешь" End If End Sub
[/vba] Если честно, то я про запрет забыл и сделал только сообщение. Сейчас добавлю в код запрет [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A2,C2")) Is Nothing Then Exit Sub If Target.Offset(-1, 0) < Target.Value Then Target.Value = "": MsgBox "Смотри че пишешь" End Sub
И чо? Вадим из того топика мужественно слинял . Наверное, всё понял, раз вопросов больше не задавал. Но, честно говоря, учить новичка ещё можно, а такого старожила, как он, - уже надоело. Одни и те же ошибки повторяются из поста в пост несмотря на поправки тех, кто их видит... Может он не читатель, а писатель?
И чо? Вадим из того топика мужественно слинял . Наверное, всё понял, раз вопросов больше не задавал. Но, честно говоря, учить новичка ещё можно, а такого старожила, как он, - уже надоело. Одни и те же ошибки повторяются из поста в пост несмотря на поправки тех, кто их видит... Может он не читатель, а писатель? Alex_ST
Да дурень потому что Не посмотрел на возможность решение проблемы с этой стороны. Вот уперся, что должны быть две проверки на одну ячейку и все тут :). Но Елена мне уже открыла глаза на эту возможность.
Цитата (Hugo)
Вадим, а почему не проверкой?
Да дурень потому что Не посмотрел на возможность решение проблемы с этой стороны. Вот уперся, что должны быть две проверки на одну ячейку и все тут :). Но Елена мне уже открыла глаза на эту возможность.light26
Ведь Вадим не пояснил, что значит Цитата (light26 писал(а)): не работают
Цитата (light26)
Задача: запретить ввод значений в ячейку А2 и С2 больших, чем в ячейках А1 и С1 соответственно. Мое воспаленное воображение придумало это: Sub Проверка() If cell("A1") < cell("A2") Then MsgBox "Смотри че пишешь" End If End Sub
Разумеется ЭТО не работает
Цитата (Alex_ST)
Ведь Вадим не пояснил, что значит Цитата (light26 писал(а)): не работают
Цитата (light26)
Задача: запретить ввод значений в ячейку А2 и С2 больших, чем в ячейках А1 и С1 соответственно. Мое воспаленное воображение придумало это: Sub Проверка() If cell("A1") < cell("A2") Then MsgBox "Смотри че пишешь" End If End Sub
Хватит подкалывать Мне тоже понятно что не работает, но не понятно как заставить работать. Кстати, те варианты, которые любезно предложили форумчане для решения данной задачи идут вразрез с моим мышлением. Поэтому пока я не прогнал код через метод "научного тыка", я не разобрался в его работе. Хотя, если честно, то до конца я и сейчас не разобрался.
Цитата (RAN)
Ежу - да.
Хватит подкалывать Мне тоже понятно что не работает, но не понятно как заставить работать. Кстати, те варианты, которые любезно предложили форумчане для решения данной задачи идут вразрез с моим мышлением. Поэтому пока я не прогнал код через метод "научного тыка", я не разобрался в его работе. Хотя, если честно, то до конца я и сейчас не разобрался.light26
Я не волшебник. Я только учусь
Сообщение отредактировал light26 - Среда, 06.03.2013, 00:29
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Не посмотрел на возможность решение проблемы с этой стороны. Вот уперся, что должны быть две проверки на одну ячейку и все тут :). 
