Ausblenden und Einblenden von Zeilen per Knopf -

Ich habe mir durch ein paar der Fragen, die zuvor gepostet worden im Zusammenhang mit diesem Thema und glauben, dass jemand auf diese Gemeinschaft wird in der Lage sein zu helfen, mit meiner Anfrage. Ich bin ziemlich Anfänger in VBA, so dass ich entschuldige mich im Voraus, falls meine Frage ist elementar.

Mein Ziel ist es, mit einem einzigen makro an eine Schaltfläche zum Ausblenden und dann Un-ausblenden einer ausgewählten Anzahl von Zeilen (diese Zeilen werden immer die gleichen) nach anklicken der-Taste erneut. Ich möchte alle diese Aktionen werden ergänzt durch separate, einsame Klicks ohne Verwendung von Message-Boxen oder zeitlich verzögert. Die ich aufgenommen habe ein makro mit den Aktionen & Ihre Kriterien und klebte es unten. Die einzige fehlende Stück ist der code, der benötigt wird, um separate diese Aktionen, bevor Sie klicken auf die Taste erneut, und die nächste Aktion. Vielen Dank im Voraus für die Hilfe.

Sub Macro1()    
    Rows("7:21").Select  
    Selection.EntireRow.Hidden = True    
    Rows("7:21").Select   
    Selection.EntireRow.Hidden = False
End Sub
InformationsquelleAutor HolyCow7 | 2014-05-14
  1. 1

    Versuchen, etwas ähnlich wie diese:

    Sub Macro1()

' Macro1 Macro ' '
Rows("7:21").Select

If Rows("7:21").Hidden = True Then
    Selection.EntireRow.Hidden = False
Else
    Selection.EntireRow.Hidden = True
End If

End Sub

    Alles, was übrig ist zu tun ist, bringen Sie es auf eine Schaltfläche.

    InformationsquelleAutor Jacob Lambert
  2. 4

    Schalten können Sie es mit diesem:

    Sub ToggleRows()

    With Rows("7:21")
      .Hidden = Not .Hidden
    End With

End Sub
    • +1 für den Knebel. Würde ich entfernen Sie die with aber 🙂
    • Schönheit liegt im Auge des Betrachters. 🙂
    InformationsquelleAutor Rory
Schreibe einen Kommentar