Обработка события Change на листе - что я делаю не так?

@BMF · Регистрация: 22.11.2011

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане, помогите, пожалуйста!
Заклинило на вроде бы простой вещи (неважные детали опускаю). В таблицу на листе вводятся числа. Хочу сделать так: если число совсем уж неподходящее (по смыслу данных в таблице), например, больше 50, то издается звук, число стирается и курсор ставится в ту же ячейку. Если число подозрительное, но возможное, (например, >25 и <50)то издается другой звук, число помечается цветом, курсор также возвращается в ту же ячейку. И если число правильное (<=25) то ничего не происходит.
Для вывода звука через системный динамик вставляю строку:

Visual Basic

1	Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Далее - Обработка события Change на листе:

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim rw As Integer, col As Integer, tmp As Variant
 
' координаты ячейки, в которой сделаны изменения:
    rw = Target.Row
    col = Target.Column
 
    Cells(rw, col).Value = Trim(Cells(rw, col).Value)
    tmp = Cells(rw, col).Value
 
    ' проверяем значение в измененной ячейке
                If tmp <> "" Then
                    If IsNumeric(tmp) = True Then
                        If tmp <= 0 Or tmp > 50 Then ' недопустимое значение в ячейке
                            Application.EnableEvents = False
                            Beep 100, 300
                            Cells(rw, col).Value = ""   ' стираем содержимое ячейки
                            Cells(rw, col).Activate    ' возвращаемся в эту ячейку
                            Application.EnableEvents = True
                        ElseIf tmp > 25 Then ' подозрительное значение в ячейке
                            Application.EnableEvents = False
                            Beep 1000, 300
                            Cells(rw, col).Font.ColorIndex = 3 ' красный цвет числа в ячейке 
                            Cells(rw, col).Activate
                            Application.EnableEvents = True
                        else ' правильное значение чмсла в ячейке
                            Application.EnableEvents = False
                            Cells(rw, col).Font.ColorIndex = 0 ' сброс цвета шрифта на по умолчанию 
                            Application.EnableEvents = True
                        End If
                    Else ' в ячейке не число
                        Beep 100, 300
                        Application.EnableEvents = False
                        Cells(rw, col).Value = ""
                        Cells(rw, col).Activate
                        Application.EnableEvents = True
                    End If
                End If ' конец tmp <> ""
 
end sub

Eсли введено недопустимое значение (не число, или <=0, или >50), то все ОК - программа "гукает" и возвращает курсор в очищенную ячейку. А вот при вводе подозрительного значения проблема - программа пищит непрерывно, и зависает. Что я делаю не так? И как сделать правильно?

@Казанский · 23.03.2014, 18:52

Поставьте Application.EnableEvents = False один раз в начале и Application.EnableEvents = True один раз в конце, а в других местах уберите.

Добавлено через 4 минуты
Ваш Cells(rw, col) это и есть Target, если была изменена одна ячейка. Получается следующее:

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim tmp
Application.EnableEvents = False
Set Target = Target(1)  'первая ячейка Target
tmp = Target.Value
Target.Value = Trim(tmp)
 
' проверяем значение в измененной ячейке
If tmp <> "" Then
  If IsNumeric(tmp) Then
    If tmp <= 0 Or tmp > 50 Then  ' недопустимое значение в ячейке
      Beep 100, 300
      Target.Value = ""  ' стираем содержимое ячейки
      Target.Activate  ' возвращаемся в эту ячейку
    ElseIf tmp > 25 Then  ' подозрительное значение в ячейке
      Beep 1000, 300
      Target.Font.ColorIndex = 3  ' красный цвет числа в ячейке
      Target.Activate
    Else  ' правильное значение чмсла в ячейке
      Target.Font.ColorIndex = 0  ' сброс цвета шрифта на по умолчанию
    End If
  Else  ' в ячейке не число
    Beep 100, 300
    Target.Value = ""
    Target.Activate
  End If
End If  ' конец tmp <> ""
Application.EnableEvents = True
End Sub

@BMF · 23.03.2014, 19:18 **[ТС]**

Спасибо большое, Казанский, который раз Вы мне помогаете, все заработало

@аналитика · 23.03.2014, 20:30

Сообщение от BMF

Eсли введено недопустимое значение (не число, или <=0, или >50), то все ОК

этот код ни при каких обстоятельствах не OK

Visual Basic

1	Cells(rw, col).Value = Trim(Cells(rw, col).Value)

= бесконечный цикл

попробуй выделить диапазон, ввести число >50 и нажать Ctrl+Enter

@BMF 0 / 0 / 0 Регистрация: 22.11.2011 Сообщений: 18
	23.03.2014, 19:18 [ТС]	3
	Спасибо большое, Казанский, который раз Вы мне помогаете, все заработало 0

	23.03.2014, 20:30