VBA-Code zum Ein- und Ausblenden von Zeilen basierend auf einem Zellwert

Question

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

2

VBA-Code zum Ein- und Ausblenden von Zeilen basierend auf einem Zellwert

Heres mein Code, aber seine nicht wirklich etwas tun, ich sehe nicht, etwas falsch mit ihm:

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

Meine Absicht ist, dass, wenn diese spezifische Zelle in der vorherigen Zeile auf “Bestanden” aus dem Dropdown-Menü gesetzt wird, dann die untere Zeile erscheinen würde, wenn es ein “Fehlgeschlagen” ist, dann wird es stattdessen ausgeblendet werden.

Quelle

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

Antworten (3)

1

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

Es war kein Tippfehler. “rows(51)” ist gültig. aber Sie brauchen den Modifikator “entirerow” nicht

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

um mehrere Zeilen auszublenden

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

Quelle

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

Quelle

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

Verwandte Fragen

6

Wie erhalte ich die eindeutigen/einzigartigen Werte in einer Spalte in Excel? 286

13

Einfachste Möglichkeit zum Öffnen von CSV-Dateien mit Kommas in Excel 203

9

Wie kann ich eine Spalte in Excel "gruppieren nach" und summieren? 153

10

Wie kann man Zeilen in Excel einfach per Drag & Drop oder durch Verschieben nach oben oder unten neu anordnen? 148

6

Erlauben des lokalen Netzwerkzugriffs bei gleichzeitiger Sperrung des Internetzugriffs 20

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

Es sieht so aus, als ob Ihr Code einige Tippfehler enthält. Sie wollen etwas, das wie folgt aussieht:

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

Um das Ausblenden der Zeile zu aktualisieren, wenn Sie das Blatt ändern, legen Sie es in ein Worksheet_Change-Ereignis:

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