Frage : Fell-Zellen-Makro ändern, um mehrfache Strecken einzuschließen

Ich habe das folgende Makro und ich möchte es erweitern, um mehr Bedingungen einzuschließen. Z.B. möchte ich den sagen wenn G5 = Nr., dann rudert Fell 14:16 oder wenn G5=U, dann rudert Fell 18:19. Das heißt, möchte ich mehr conditions.

How addieren ich schreibe diesen Code ((ich weiß, dass ich, ich muss ein VBA Buch kaufen ein dummes bin). Ist hier ein Beispiel des Funktionsmakro, das ich habe:

Option Explicit

Private VorWorksheet_Change (ByVal Ziel als Strecke)
If nicht schneiden (Ziel, Strecke („G5“)) Ist nichts Then
, wenn UCase (Ziel) = „Y“ Then
rudert („8: 11“) .EntireRow.Hidden = True
Else
rudert („8: 11“) .EntireRow.Hidden = False
Ende If
End If
End Sub

Antwort : Fell-Zellen-Makro ändern, um mehrfache Strecken einzuschließen

Die ad hoc Lösung


Wahl ausdrücklich

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
Wenn nicht schneiden (Ziel, Strecke („G5“)) Ist nichts dann
    Wenn UCase (Ziel) = „Y“ dann
        Reihen („8: 11“) .EntireRow.Hidden = richten aus
    Sonst
        Reihen („8: 11“) .EntireRow.Hidden = falsch
    Beenden wenn
       Wenn UCase (Ziel) = „nicht“ dann
        Reihen („14: 15“) .EntireRow.Hidden = richten aus
    Sonst
        Reihen („14: 15“) .EntireRow.Hidden = falsch
    Beenden wenn
   Wenn UCase (Ziel) = „U“ dann
        Reihen („18: 19“) .EntireRow.Hidden = richten aus
    Sonst
        Reihen („18: 19“) .EntireRow.Hidden = falsch
    Beenden wenn

Beenden wenn
Unterseeboot beenden