Профессиональные приемы работы в Microsoft Excel

Добрый день!

Прошу помощи с файлом:
Необходимо, чтобы при выборе из списка в ячейке E7 значения "1" или "2" запускался макрос:
Private Sub Worksheet_Change(ByVal Target As Range)
        If Application.Sum([N11:N47]) = 30 Then
            ActiveSheet.Tab.ColorIndex = 4
       
        ElseIf Application.Sum([N11:N47]) < 30 Then
            ActiveSheet.Tab.ColorIndex = 3
           
        ElseIf Application.Sum([N11:N47]) > 30 Then
            ActiveSheet.Tab.ColorIndex = 4
        Else
            ActiveSheet.Tab.ColorIndex = xlNone
        End If
  End Sub
А при выборе значения "3":
Private Sub Worksheet_Change(ByVal Target As Range)
        If Application.Sum([N11:N47]) = 34 Then
            ActiveSheet.Tab.ColorIndex = 4
       
        ElseIf Application.Sum([N11:N47]) < 34 Then
            ActiveSheet.Tab.ColorIndex = 3
           
        ElseIf Application.Sum([N11:N47]) > 34 Then
            ActiveSheet.Tab.ColorIndex = 4
        Else
            ActiveSheet.Tab.ColorIndex = xlNone
        End If
  End Sub
Ссылка на файл: https://1drv.ms/x/s!AseehskCWFwQg9Bs_wl_QUqMsu4ApQ.

Заранее благодарю за помощь.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$E$7" Then Exit Sub
    If Target < 3 Then Exam12 Application.sum([N11:N47]), [E7] Else _
    Exam12 Application.sum([N11:N47]), [E7]
End Sub

Private Sub Exam12(sum, num)
    If sum >= 30 Then Me.Tab.ColorIndex = 4 Else Me.Tab.ColorIndex = 3
End Sub
Private Sub Exam3(sum, num)
    If sum >= 34 Then Me.Tab.ColorIndex = 4 Else Me.Tab.ColorIndex = 3
End Sub

Вставил в лист, не работает.(((
Меняет цвет ярлычка только при смене значения в ячейке E7...

А Вы что просили?

Цитата: Андрей Олейник от 15.09.2017, 16:30Необходимо, чтобы при выборе из списка в ячейке E7 значения "1" или "2" запускался макрос