Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запуск макроса по событию в ячейке, ...только при появлении числа (даты)
 
#1
15.04.2013 11:32:48
Добрый день данные макрос запускаются по событиям в определенных ячейках:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [m1:ar10000]) Is Nothing Then Exit Sub
With Target
If .Cells.Count > 1 Then Exit Sub
Select Case .Column
Case 13: Call MyMail(.Row, 13)
Case 16: Call MyMail(.Row, 16)
Case 26: Call MyMail1(.Row, 26)
Case 29: Call MyMail1(.Row, 29)


End Select
End With

End Sub

А можно сделать так , чтою они запускались по вводу числа (даты) , например при очитке ячейки мне макрос не нужен.
Спасибо
 
 
 
#2
15.04.2013 11:46:08
Добавить проверку на наличие данных в ячейке?
With Target
If .Cells.Count > 1 Then Exit Sub
if .value > 0 then
Select Case .Column
Case 13: Call MyMail(.Row, 13)
Case 16: Call MyMail(.Row, 16)
Case 26: Call MyMail1(.Row, 26)
Case 29: Call MyMail1(.Row, 29)
End Select
end if
End With
 
 
 
#3
15.04.2013 11:51:33
проверка именно даты.
Код
If IsDate(Target) = False Then Exit Sub
 
 
 
#4
15.04.2013 11:56:32
Спасибо.

Я так понимаю это надо после  With Target воткнуть ?
А если число или дата можно?
 
 
 
#5
15.04.2013 12:27:49
мои знания поверхностные, ну раз спецы молчат предложу вариант
Код
.....
If IsNumeric(Target) = True Or IsDate(Target) = True Then
With Target
....
End With
Else: Exit Sub
End If
End Sub
 
 
 
#6
15.04.2013 12:33:28
Нагляднее так:
Код
If Not IsDate(Target) Then ...

Миша, уточни задачу - всё перепуталось ))
 
 
 
#7
15.04.2013 12:49:41
Уточняю если ввели число ИЛИ дату посылаем ...если текст ,очистили ячейку ввели пробел ИЛИ "0" то не посылаем ничего .
 
 
 
#8
15.04.2013 12:57:37
Если текст ,очистили ячейку ввели пробел ИЛИ "0" - это нормальная ситуация . Так?
 
 
 
#9
15.04.2013 13:06:55
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Value > 0 Then
        MsgBox IsDate(CDate(Target.Value)) & vbLf & Target.Value
    End If
End Sub
 
 
 
#10
15.04.2013 13:08:07
Да ситуация нормальная особо очистка ...но макрос не запускаем Юр, запускаем только в случае введения числа отличного от 0 или Даты
 
 
 
#11
15.04.2013 13:11:58
См. для ячеек А1:А10
 
 
 
#12
15.04.2013 13:34:13
Спасибо Юра и Ran.... мне бы еще понять как всю эту бодягу встроить в работающий макрос с

Select Case .Column
Case 13: Call MyMail(.Row, 13)
Case 16: Call MyMail(.Row, 16)
Case 26: Call MyMail1(.Row, 26)
Case 29: Call MyMail1(.Row, 29)
End Select

см. пост1 в этой теме.
 
 
 
#13
15.04.2013 13:44:43
А в чём проблема? В моём коде меняй диапазон, вместо MsgBox пишем Exit Sub. А затем уже твои Select Case .Column
 
 
 
#14
15.04.2013 13:51:30
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If .Value > 0 Then
            On Error Resume Next
            If CDate(.Value) Then
                Select Case .Column
                Case 13, 16, 26, 29
                    Call MyMail(.Row, .Column)
                End Select
            End If
        End If
    End With
End Sub
 
 
 
#15
15.04.2013 14:02:26
Цитата
Юрий М пишет:
А в чём проблема? В моём коде меняй диапазон, вместо MsgBox пишем Exit Sub. А затем уже твои Select Case .Column
Юра ты прекрасно знаешь что для меня и это проблема там еще какие-то With Target...Вот диапазон поменять смогу))))
 
 
 
#16
15.04.2013 14:35:19
Спасибо Ran попробую так
 
 
 
#17
15.04.2013 15:46:34
Цитата
RAN пишет:
If Intersect(Target, [m1:ar10000]) Is Nothing Then Exit Sub
With Target

Цитата
RAN пишет:
Код
 Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If .Value > 0 Then
            On Error Resume Next
            If CDate(.Value) Then
                Select Case .Column
                Case 13, 16, 26, 29
                    Call MyMail(.Row, .Column)
                End Select
            End If
        End If
    End With
End Sub

А у меня еще конструкция была...

If Intersect(Target, [m1:ar10000]) Is Nothing Then Exit Sub
With Target

ее то куда Ran
Спасибо
 
 
 
#18
15.04.2013 15:55:48
Микки там же и оставьте где и была (перед With Target)
 
 
 
#19
15.04.2013 16:04:32
Цитата
Микки пишет:
А у меня еще конструкция была...
....
ее то куда Ran

A зачем она вам? Дорога как память?  :)
 
 
 
#20
15.04.2013 16:18:32
Я настолько слаб в макросах ..что боюсь отпилить что-либо  нужное ..хотя насколько я понял Ваш ..оно там лишнее?
 
 
 
#21
15.04.2013 16:20:31
Прозевал, однако.
Так надо
Код
    Select Case .Column
    Case 13, 16
        Call MyMail(.Row, .Column)
    Case 26, 29
        Call MyMail1(.Row, .Column)
    End Select
 
 
 
#22
15.04.2013 16:29:06
Ну до этого я бы и сам додумался..все равно огромное спасибо
 
 
 
#23
15.04.2013 16:35:37
на сколько я понимаю данная строчка отвечает за то чтоб макрос срабатывал только в диапазоне m1:ar10000, а у вас RAN по моему макрос будет срабатывать в любой ячейке листа (даты и числа не касаюсь) или я не правильно понимаю? Если я прав то вопрос к Микки нужно ли это ограничение?
хотя пока не знаю за что отвечает процедура Case, может из за неё и ни нужна данная строка.  :(
Изменено: V - 15.04.2013 16:39:06
 
 
 
#24
15.04.2013 16:44:44
Не совсем так.
Макрос в любом случае срабатывает в любой ячейке листа.
Если есть конструкция
Код
If Intersect(Target, [m1:ar10000]) Is Nothing Then Exit Sub

то в зависимости от выполнения условия макрос либо продолжает, либо завершает работу.

Если этой конструкции нет, то при условии ввода числа/даты в столбцы 13, 16, 26 или 29 запускается процедура отправки письма.

В остальных случаях никаких действий не выполняется, точнее, выполняются 2 лишних проверки.
 
 
 
#25
15.04.2013 16:59:07
RAN спс. понял.
 
 
 
#26
16.04.2013 13:23:59
Спасибо всем огромное тема закрыта работает как надо .
 
 
 
Страницы: 1
Читают тему
Наверх