Народ, помогите, плиз.
Написал такой простой код
в ячейке с9 у меня выпадающий список (дата/список). Почему-то код работает только со второго раза (т.е. первый раз я выбираю нужное значение, выбираю другую ячейку, потом снова выбираю с9 - код работает.
Подскажите, чего добавить?
Написал такой простой код
| Код |
|---|
Private Sub worksheet_selectionchange(ByVal target As Range)
If Not Application.Intersect(ActiveCell, [c9]) Is Nothing Then
If [c9] = "all" Then
Range("10:100").EntireRow.Hidden = False
Else
Range("10:100").EntireRow.Hidden = True
For RowCnt = 10 To 100
If Cells(RowCnt, 9).Value = [c9] Then
Cells(RowCnt, 9).EntireRow.Hidden = False
End If
Next RowCnt
End If
End If
End Sub
|
Подскажите, чего добавить?
