Я изо всех сил пытался заставить что-нибудь работать и надеялся, что у кого-то может быть идея.

Если C5 имеет значение, мне нужны строки 6, 106 и 107, чтобы стать видимыми. Затем мне нужно проверить, имеет ли C6 значение, и если да, сделать следующую строку видимой и так далее, пока она не достигнет строки 106.

Все это будет выполняться в рамках Private Sub Worksheet_Change(ByVal Target as Range).

Я надеюсь, что это имеет смысл, любая помощь будет принята с благодарностью.

Спасибо

Нарисовалась

1 ответ1

0

Это покажет три строки при изменении C5, а затем покажет следующую строку при изменении C:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C5"), Target) Is Nothing Then
    Rows(6).Hidden = Target.Value = ""
    Rows("106:107").Hidden = Target.Value = ""

End If
If Not Intersect(Range("C6:C105"), Target) Is Nothing Then
    Rows(Target.Row + 1).Hidden = Target.Value = ""
End If


End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .