ScorpionS
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Yuk
Цитата:| код будет выполняться при изменении ячейки C89 |
У меня тут один нюанс, значение в ячейке С89 (на листе "Формулы") я не меняю, эта ячейка привязана под Флажок (Элемент управления Формы).
У меня когда я устанавливаю (снимаю) флажок, автоматически не скрываются (не отображаются) строки. Нужно зайти в любую ячейку (F2), нажать Enter только после этого выполняется функция скрытия (отображения) строк. Как можно решить эту проблему, чтобы это происходило сразу после установки (снятия) флажка. Причем срабатывает только с таким кодом
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'If Target.Address = Sheets("Формулы").Cells(89, 3) Then
'Select Case Target.Address
'Case Sheets("Формулы").Cells(89, 3).Value
If Sheets("Формулы").Cells(89, 3).Value = 0 Then
Rows("4:7").Select
Selection.EntireRow.Hidden = True
Range("F3").Select
End If
If Sheets("Формулы").Cells(89, 3).Value = 2 Then
Rows("4:4").Select
Selection.EntireRow.Hidden = False
Rows("5:7").Select
Selection.EntireRow.Hidden = True
Range("F3").Select
End If
If Sheets("Формулы").Cells(89, 3).Value = 3 Then
Rows("4:5").Select
Selection.EntireRow.Hidden = False
Rows("6:7").Select
Selection.EntireRow.Hidden = True
Range("F3").Select
End If
If Sheets("Формулы").Cells(89, 3).Value = 4 Then
Rows("4:6").Select
Selection.EntireRow.Hidden = False
Rows("7:7").Select
Selection.EntireRow.Hidden = True
Range("F3").Select
End If
If Sheets("Формулы").Cells(89, 3).Value = 5 Then
Rows("4:7").Select
Selection.EntireRow.Hidden = False
Range("F3").Select
End If
'End Select
'End If
Application.EnableEvents = True
End Sub
|
Если я использую Case или Target (выделено курсивом), то не срабатывает.
P.S. Кстати, когда я сменил SelectionChange на Change, то у меня и без Application.EnableEvents в цикл не попадает. |
Всего записей: 141 | Зарегистр. 24-02-2003 | Отправлено: 20:42 25-04-2006 | Исправлено: ScorpionS, 20:59 25-04-2006 |
|
