Давно я не задавал тут вопросов, но вот пришлось...
Рассказываю. Есть диапазон ячеек D4:G13 в которых по нажатию правой кнопки мышки прибавляется к значению единица и текст в ячейке которой были изменения красится в зеленый цвет. С первого взгляда все прекрасно работает, но, если выделить весь лист и так же нажать правой кнопкой по любому полю, то весь текст покрасится в зеленый цвет.
If Not Intersect(Target, [D4:G13]) Is Nothing Then
On Error Resume Next
Target = Target + 1
Target.Font.Color = RGB(107, 164, 44)
End If
Вот пример что прибавляет +1 к значению, я так же прикладываю к вопросу файл с примером.
Помогите пожалуйста, как это побороть? Как сделать так, чтобы красило только активной ячейке.