Vraag : Wijzig de Macro van de Cel van de Huid om veelvoudige waaiers te omvatten

Ik heb de volgende macro en ik wil het uitbreiden om meer voorwaarden te omvatten. Bijvoorbeeld, wil ik zeggen dat als G5 = Nr, dan rijen14:16 of als G5=U verbergt, dan rijen18:19 verbergt. Met andere woorden, wil ik toevoegen meer conditions.

How ik deze code schrijf ((ik weet ik stom ben, moet ik een Vba- boek) kopen. Hier is een voorbeeld van de functionele macro die ik heb gehad:

Option Explicit

Private SubWorksheet_Change (Doel ByVal als Waaier)
If om te snijden niet (Doel, Waaier („G5“)) Is niets Then
als UCase (Doel) = de Rijen van „Y“ Then
(„8: 11“) .EntireRow.Hidden = de Rijen van True
Else
(„8: 11“) .EntireRow.Hidden = False
Eind If
End If
End Sub

Antwoord : Wijzig de Macro van de Cel van de Huid om veelvoudige waaiers te omvatten

De ad hoc oplossing


Expliciete optie

Privé SubWorksheet_Change (Doel ByVal als Waaier)
Als om te snijden niet (Doel, Waaier („G5“)) Is dan niets
    Als UCase (Doel) = „Y“ toen
        Rijen („8: 11“) .EntireRow.Hidden = Waar
    Anders
        Rijen („8: 11“) .EntireRow.Hidden = Vals
    Eind als
       Als UCase (Doel) = „Geen“ toen
        Rijen („14: 15“) .EntireRow.Hidden = Waar
    Anders
        Rijen („14: 15“) .EntireRow.Hidden = Vals
    Eind als
   Als UCase (Doel) = „U“ toen
        Rijen („18: 19“) .EntireRow.Hidden = Waar
    Anders
        Rijen („18: 19“) .EntireRow.Hidden = Vals
    Eind als

Eind als
Sub van het eind