Questione : Modificare la macro delle cellule del pellame per comprendere le gamme multiple

Ho la seguente macro e voglio ampliarlo per comprendere più circostanze. Per esempio, voglio dire quello se G5 = no, quindi il pellame rema il 14:16 o se G5=U, quindi il pellame rema il 18:19. Cioè voglio aggiungere più conditions.

How io scrivo questo codice ((so che sono uno stupido, io devo comprare un libro di VBA). Qui è un esempio della macro che funzionale ho: Il
del

Option Explicit

Private Worksheet_Change (obiettivo di ByVal come gamma) se non interseca (obiettivo, gamma (“G5„)) È niente Then
se UCase (obiettivo) = “Y„ Then
rema (“8: 11„) .EntireRow.Hidden = True
Else
rema (“8: 11„) .EntireRow.HidEnd If
End Sub
di False
den/> class= del

Risposta : Modificare la macro delle cellule del pellame per comprendere le gamme multiple

La soluzione ad-hoc


Opzione esplicita

Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
Se non intersecare (obiettivo, gamma (“G5„)) Allora è niente
    Se UCase (obiettivo) = “Y„ allora
        File (“8: 11„) .EntireRow.Hidden = allineano
    Altrimenti
        File (“8: 11„) .EntireRow.Hidden = falso
    Concluder se
       Se UCase (obiettivo) = “no„ allora
        File (“14: 15„) .EntireRow.Hidden = allineano
    Altrimenti
        File (“14: 15„) .EntireRow.Hidden = falso
    Concluder se
   Se UCase (obiettivo) = “U„ allora
        File (“18: 19„) .EntireRow.Hidden = allineano
    Altrimenti
        File (“18: 19„) .EntireRow.Hidden = falso
    Concluder se

Concluder se
Concludere il sommergibile