Codice VBA per nascondere o togliere le righe in base al valore di una cella

Question

2013-10-22 01:45:14 +0000 2013-10-22 01:45:14 +0000

2

Codice VBA per nascondere o togliere le righe in base al valore di una cella

Heres il mio codice, ma in realtà non sta facendo nulla, non vedo nulla di sbagliato in esso:

Private Sub PG1(ByVal Target As Range)
    If .Range("E50").Value = "Passed" Then
        Rows("51").EntireRow.Hidden = True
    End If
    ElseIf Range("E50").Value = "Failed" Then
        Rows("51").EntireRow.Hidden = True
    End If
End Sub

La mia intenzione è che quando quella specifica cella nella riga precedente è impostata su “Passato” dal menu a tendina, allora apparirà la riga sottostante, se è un “Fallito” allora sarà nascosta.

Fonte

I AM L http://superuser.stackexchange.com/users/200088

Risposte (3)

1

2015-08-06 21:24:01 +0000

non c'era nessun errore di battitura. “rows(51)” è valido. ma non hai bisogno del modificatore “enterow”

rows(n).hidden=true ; where n is an valid row number

per nascondere più righe

range(rows(n1),rows(n2)).hidden=true ; will hide rows n1 though n2

Fonte

Mudcat http://superuser.stackexchange.com/users/200088

-1

2015-03-27 15:33:16 +0000

Private Sub PG1()
    Range("$E$51").EntireRow.Hidden = (Range("$E$50").Value = "Passed")
End Sub

Fonte

Raul Gonzalez http://superuser.stackexchange.com/users/200088

Domande correlate

6

Come posso ottenere i valori distinti/unici in una colonna in Excel? 286

13

Il modo più semplice per aprire CSV con virgole in Excel 203

9

Come posso "raggruppare per" e sommare una colonna in excel? 153

10

Come riordinare facilmente le righe in Excel con il drag and drop o spostare verso l'alto o verso il basso? 148

10

PuTTY come selezionare il testo e copiare il testo con la tastiera SOLO 78

jonsca http://superuser.stackexchange.com/users/200088 · Accepted Answer · 2013-10-22 02:24:58 +0000

Sembra che il tuo codice abbia qualche errore di battitura. Tu vuoi qualcosa che sia come questo:

Sub PG1()

    If Range("E50").Value = "Passed" Then
        Rows("51:51").EntireRow.Hidden = True
    ElseIf Range("E50").Value = "Failed" Then
        Rows("51:51").EntireRow.Hidden = False
    End If

End Sub

Per avere l'aggiornamento della riga che si nasconde/sottrae quando cambi il foglio, mettilo in un evento Worksheet_Change:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("E50").Value = "Passed" Then
        Rows("51:51").EntireRow.Hidden = True
    ElseIf Range("E50").Value = "Failed" Then
        Rows("51:51").EntireRow.Hidden = False

    End If
End Sub