Есть выпадающий список, при выборе в котором определенных значений должен скрываться ряд (причем строки не всегда следуют друг за другом). Я кое как смог сделать то, что мне нужно и привязал макрос к ячейкам, рассчитывающим значения по формуле, но в таком случае макрос не запускается.
Буду благодарен за любую помощь, т.к. для меня VBA - темный лес и я делаю только самые первые шаги. Файл с примером прикрепляю.
господа, подскажите, и помогите мне.
Есть выпадающий список, при выборе в котором определенных значений должен скрываться ряд (причем строки не всегда следуют друг за другом). Я кое как смог сделать то, что мне нужно и привязал макрос к ячейкам, рассчитывающим значения по формуле, но в таком случае макрос не запускается.
Буду благодарен за любую помощь, т.к. для меня VBA - темный лес и я делаю только самые первые шаги. Файл с примером прикрепляю.Jmurik
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range If Target.Address = "$B$26" Then Application.ScreenUpdating = False For Each r In [AE1:AE48] r.EntireRow.Hidden = r.Value > [I3].Value Next r For Each r In [G21:G25] r.EntireRow.Hidden = r.Value > [K3].Value Next r Application.ScreenUpdating = True End If End Sub
[/vba]
Может, Вам так нужно? Попробуйте [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range If Target.Address = "$B$26" Then Application.ScreenUpdating = False For Each r In [AE1:AE48] r.EntireRow.Hidden = r.Value > [I3].Value Next r For Each r In [G21:G25] r.EntireRow.Hidden = r.Value > [K3].Value Next r Application.ScreenUpdating = True End If End Sub