Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Код ячейку с формулой не принимает как значение
 
#1
10.08.2018 09:01:06
Добрый день.
Посмотрите плиз, где ошибка.
Идея: если в D13 в листе "Request" значение меньше или равно 3, то должно выходить сообщение.
написала:
Код
    If Range("$D$13").Value <= 3 Then
            MsgBox "Are you sure that is enough time to execute your request?!", vbExclamation
    End If
не работает  :(
 
 
 
#2
10.08.2018 09:11:58
antwta, ну так и не ноль же у Вас там. "" не меньше и тем более не равно 3.
По вопросам из тем форума, личку не читаю.
 
 
 
#3
10.08.2018 09:14:17
antwta, наверно
Код
If val(Range("$D$13").Value) <= 3 Then
 
 
 
#4
10.08.2018 09:24:44
Казанский, не получается так (

БМВ, там будет ставится дата. и вот если deadline минус сегодняшняя дата   равно 3 или меньше,
то вызывать сообщение
Изменено: antwta - 10.08.2018 09:27:14
 
 
 
#5
10.08.2018 09:26:28
показывайте
 
 
 
#6
10.08.2018 09:34:01
Цитата
antwta написал: не получается так (
Все получается
Код
? Range("$D$13").Value <= 3
False
? val(Range("$D$13").Value) <= 3
True
По вопросам из тем форума, личку не читаю.
 
 
 
#7
10.08.2018 10:17:19
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address    
                 .........                     
        Case "$D$12":        
            Call WISHED_DEADLINE_1            
        Case "$D$13":        
            Call WISHED_DEADLINE_2                       
    End Select
End Sub

Private Sub WISHED_DEADLINE_1()
    If Range("$D$12").Value > 0 Then
       
 MsgBox "It will be better if you discuss with us the WISHED DEADLINE 
before send the request. Thank you! ", vbExclamation
    End If
End Sub

Private Sub WISHED_DEADLINE_2()
    If Val(Range("$D$13").Value) <= 3 Then
        MsgBox "5555555 ", vbExclamation
    End If
End Sub
как-то так..
если через play именно его запускать - выдает сообщение
никакую ошибку не выдает... он просто никак не реагирует на заданное условие

а если как задумано, вводить дату в ячейку D12,
то первый  MsgBox "It will be better if you discuss with us the WISHED DEADLINE before send the request. Thank you! " - работает
а второй MsgBox "5555555 ", vbExclamation - нет

Что-то не так делаю :-(
Изменено: antwta - 10.08.2018 12:01:30
 
 
 
#8
10.08.2018 10:33:36
в глазах рябит,

antwta,  вы уверены, что это нужно делать через VBA , а не через проверку данных? Проще и эффективнее.
По вопросам из тем форума, личку не читаю.
 
 
 
#9
10.08.2018 10:48:11
никогда Target.address у вас не будет "$D$13"  и не пойдет по пути Case "$D$13":  .У вас там формула и меняется её значение. Зависит она от d12 и d11,  вот изменение и надо контролировать этих ячеек, а сравнивать уже d13, но еще раз все это проверкой данных делается в лучшем виде, хотя судя по всему у вас предупреждение, но не жесткий контроль., тогда ок.

К стати заливка цветом, тоже через условное форматирование. По каждому чиху Worksheet_Change прогонять смысла нет.
Изменено: БМВ - 10.08.2018 10:58:03
По вопросам из тем форума, личку не читаю.
 
 
 
#10
10.08.2018 11:01:08
vikttur,Sorry,
не поняла.
объясните пжста "на пальцах"
чтоб на будущее знала я
что значит Кнопка <...>  ?
 
 
 
#11
10.08.2018 11:03:16
Цитата
antwta написал:
а если как задумано, вводить дату в ячейку D12
а вы попробуйте вводить в Д13. может вы удивитесь, но у вас там:
Код
       Case "$D$13":        
            Call WISHED_DEADLINE_2
 
 
 
#12
10.08.2018 11:03:58
БМВ,Возможны Вы правы.
никогда не пользовалась Проверкой данных через формулу
в моем случае будет так?
окно "параметры" - Другой - =ЕСЛИ(($D$12-$D$11)<=3;ИСТИНА;ЛОЖЬ)
окно "сообщение об ошибки" - нужный текст

так?
 
 
 
#13
10.08.2018 11:10:19
VideoAlex,
G13=D12-D11
если G13<=3 - нужно сообщение

Ошиблась адресом. Исправила в своем коде. Безуспешно
Изменено: antwta - 10.08.2018 11:16:51
 
 
 
#14
10.08.2018 11:15:38
вот когда меняете D12 или D11 тогда и проверяйте G13 и если оно <=3 то
Код
MsgBox "Are you sure that is enough time to execute your request?!", vbExclamation
событие Worksheet_Change не обрабатывает ячейки измененные с помощью формул.
Просто попробуйте написать цифру меньше 4 в D13 и ваше событие сработает

про это вам уже писали в сообщении №9. внимательно читайте
Изменено: VideoAlex - 10.08.2018 11:19:45
 
 
 
#15
10.08.2018 11:19:23
VideoAlex,
Проверила, работает, Вы правы.
а как подкорректировать, чтобы код работал с формулой, подскажите плиз
 
 
 
#16
10.08.2018 11:20:07
Цитата
antwta написал:
окно "параметры" - Другой - =ЕСЛИ(($D$12-$D$11)<=3;ИСТИНА;ЛОЖЬ)
нет и достаточно =$D$12-$D$11>3
По вопросам из тем форума, личку не читаю.
 
 
 
#17
10.08.2018 11:24:07
Код
Private Sub WISHED_DEADLINE_1()
    If Range("$D$12").Value > 0 Then
        If Range("G13").Value <= 3 Then MsgBox "It will be better if you discuss with us the WISHED DEADLINE before send the request. Thank you! " & Chr(13) & Chr(13) & "Are you sure that is enough time to execute your request?!", vbExclamation
        MsgBox "It will be better if you discuss with us the WISHED DEADLINE before send the request. Thank you! ", vbExclamation
    End If
End Sub
Изменено: VideoAlex - 10.08.2018 11:29:01
 
 
 
#18
10.08.2018 11:31:47
БМВ,
Вот я козаааа....  знаки больше-меньше вечно путаю...
Спасибо!
Работает.
можно использовать и такой вариант
 
 
 
#19
10.08.2018 12:00:49
VideoAlex,СпасиБо!!!
 
 
 
Страницы: 1
Наверх