Смольный, я так понимаю, что цветом вы выделили для примера, а нужно скрывать числа.
вводим в A1,
в модуль листа
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Application.ScreenUpdating = False
u = Target.Value
For a = 2 To Sheets.Count
Sheets(a).Columns("ag:ai").EntireColumn.Hidden = False
If u = 1 Then Sheets(a).Columns("ai").EntireColumn.Hidden = True
If u = 2 Then Sheets(a).Columns("ah:ai").EntireColumn.Hidden = True
If u = 3 Then Sheets(a).Columns("ag:ai").EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True
End If
End Sub
[/vba]формулы:Код
=СУММ(E5:ИНДЕКС(E5:AI5;31-Лист1!$A$1))
Код
=СЧЁТ(E5:ИНДЕКС(E5:AI5;31-Лист1!$A$1))
вдруг правильно