Вопрос : Доработайте макрос клетки мостовья для того чтобы включить множественные ряды

Я имею следующий макрос и я хочу расширить его для того чтобы включить больше условий. Например, я хочу сказать то если G5 = нет, то мостовье гребет 14:16 или если G5=U, то мостовье гребет 18:19. Иначе говоря, я хочу добавить больше conditions.

How я пишу это Кодего ((я знаю мне тупоумным, я нужно купить книгу VBA). Здесь пример функционального макроса, котор я имею:
If

Option Explicit

Private Sub Worksheet_Change (цели ByVal как ряд) не пересечь (цель, ряд («G5»)) Ничего Then
если UCase (цель) = «y» Then
гребет, то («8: 11») .EntireRow.Hidden = True
Else
гребет («8: 11») .EntireRow.HidEnd If
End Sub
/>den = False
class=

Ответ : Доработайте макрос клетки мостовья для того чтобы включить множественные ряды

Специальное разрешение


Вариант точный

Приватное Sub Worksheet_Change (цель ByVal как ряд)
Если не пересечь, то (цель, ряд («G5»)) Ничего после этого
    Если UCase (цель) = «y» после этого
        Рядки («8: 11») .EntireRow.Hidden = True
    Еще
        Рядки («8: 11») .EntireRow.Hidden = ложно
    Закончитесь если
       Если UCase (цель) = «отсутствие» после этого
        Рядки («14: 15») .EntireRow.Hidden = True
    Еще
        Рядки («14: 15») .EntireRow.Hidden = ложно
    Закончитесь если
   Если UCase (цель) = «u» после этого
        Рядки («18: 19») .EntireRow.Hidden = True
    Еще
        Рядки («18: 19») .EntireRow.Hidden = ложно
    Закончитесь если

Закончитесь если
Закончите подводную лодку