Inhalt
Ich benutze VBA / VB.Net, um bessere Wege zu finden, um alltägliche Aufgaben zu erledigen
Menü erstellen
Der erste Teil der Erstellung eines Menüs ist der einfachste Teil. Erstellen Sie ein Blatt mit dem Namen "Hauptmenü" und stecken Sie es in den ersten Steckplatz der Blattregisterleiste am unteren Bildschirmrand (also Index 1). Erstellen Sie auf diesem Blatt Ihr Menü. Im Moment behalten wir es einfach bei und haben 3 Schaltflächen, die wie unten beschrieben mit verschiedenen Blättern in der Arbeitsmappe verknüpft sind
Sobald Sie Ihr Hauptmenü erstellt haben, können Sie mit dem Schreiben von VBA-Code beginnen, damit die Schaltflächen das tun, was wir wollen.
- Öffnen Sie den VBA-Editor (ALT + F11).
- In dem Projektfenster (Fenster oben links), klicken Sie mit der rechten Maustaste und wählen Sie "Einfügen" und dann Modul (nicht Klassenmodul!)
Für jede Schaltfläche ist ein eigener Code erforderlich. Sie können diese Codes in der gruppieren Modul Sie haben gerade jedes einzeln erstellt und aufgerufen. Beginnen wir also mit der Schaltfläche, mit der Blatt 2 geöffnet wird.
Doppelklicken Sie zunächst auf Modul 1 in dem Projektfensterim unteren linken Fenster (Eigenschaftenfenster), benenne das Modul in "Menu_Buttons" um
Der folgende Code öffnet Blatt 2:
Öffentliches Sub Open_Sheet_2 () Sheets ("Sheet2"). Aktivieren Sie End Sub
Schauen wir uns also kurz an, woraus dieser Code besteht. Zunächst einmal ist es wirklich gut, sich daran zu gewöhnen, Ihre Routinen entsprechend zu benennen. "Open_Sheet_2" ist nett und leicht zu merken und gibt Details darüber, was die Routine tut.
Zeile 3 ist die Zeile, die die gesamte Arbeit erledigt. Der Abschnitt "Blätter (") des Codes teilt VBA mit, dass Sie ein Blatt benennen möchten. Zwischen den Anführungszeichen steht dann der Name des Blattes, wie er in Excel angezeigt wird Nachdem Sie die Anführungszeichen und Klammern geschlossen haben, teilt das ".Activate" VBA mit, dass Sie das benannte Blatt in den Hauptfokus der Arbeitsmappe stellen möchten.
Bei allen anderen Schaltflächen sollte Ihr Code ungefähr so aussehen:
Public Sub Open_Sheet_2 () Sheets ("Sheet2"). End Sub Public Sub Open_Sheet_3 () Sheets ("Sheet3") aktivieren. End Sub Public Sub Open_Sheet_4 () Sheets ("Sheet4") aktivieren. End Sub aktivieren
Jetzt müssen wir den Code mit den Schaltflächen verknüpfen, das ist sehr einfach! Klicken Sie mit der rechten Maustaste auf eine Schaltfläche und wählen Sie "Makro zuweisen". Wählen Sie im angezeigten Menü die entsprechende Routine aus der Liste aus. Wählen Sie für Blatt 2"Open_Sheet_2" von der Liste.
Klicken Sie jetzt auf Ihre Schaltfläche, um es zu testen!
Ausblenden von Blättern aus der Registerkartenleiste
Sagen Sie einfach, Sie haben 40 Blätter in einer Arbeitsmappe, obwohl Sie ein Hauptmenü haben, ist es immer noch unordentlich, all diese Blätter unten anzusehen. Wir können etwas mehr Code zu dem hinzufügen, was wir bereits haben, und eine weitere Schaltfläche, und wir können alle Blätter mit einem Klick ausblenden! Wenn das Blatt im Hauptmenü ausgewählt wird, wird die Registerkarte Blatt unten wieder angezeigt.
Erstellen Sie eine neue Schaltfläche im Hauptmenü mit dem Text "Alle Registerkarten schließen":
Im gleichen Modul Fügen Sie den folgenden Code hinzu, den Sie zuvor erstellt haben:
Public Sub Close_All_Sheets () 'Der folgende Code besagt, dass jedes Arbeitsblatt, das in der' aktiven Arbeitsmappe 'angezeigt wird, überprüft werden sollte, um festzustellen, ob sein Name gleich "Hauptmenü" ist. Wenn dies nicht der Fall ist, setzen Sie die Sichtbarkeit für jedes Arbeitsblatt in ActiveWorkbook.Worksheets auf false. Wenn Worksheet.Name> "Hauptmenü", dann Worksheet.Visible = False Next End Sub
Wie die Kommentare im Codestatus angeben, überprüft dieser Code alle Blätter und schließt sie, wenn sie nicht als "Hauptmenü" bezeichnet werden. Jetzt müssen Sie dieses Makro der Schaltfläche zuweisen. Klicken Sie erneut mit der rechten Maustaste auf die Schaltfläche "Alle Registerkarten schließen" und weisen Sie das Makro "Close_All_Sheets" zu.
Klicken Sie auf die Schaltfläche und sehen Sie zu, wie alle Blätter geschlossen werden!
Jetzt müssen Sie nur noch den Code hinzufügen, um die Blattschaltflächen anzuweisen, das zu öffnende Blatt einzublenden:
Public Sub Open_Sheet_2 () Sheets ("Sheet2"). Visible = True 'Die obige Zeile macht das Sheet' wieder sichtbar Sheets ("Sheet2"). Aktivieren Sie End Sub Public Sub Open_Sheet_3 () Sheets ("Sheet3"). Visible = True 'Die obige Zeile macht das Blatt' wieder sichtbar. Blätter ("Sheet3"). End Sub Public Sub aktivieren Open_Sheet_4 () Sheets ("Sheet4"). Visible = True 'Die obige Zeile macht das Blatt' wieder sichtbar. Sheets ("Sheet4") ) .Activate End Sub Public Sub Close_All_Sheets () 'Der folgende Code besagt, dass jedes Arbeitsblatt, das in der' aktiven Arbeitsmappe 'angezeigt wird, überprüft werden sollte, um festzustellen, ob sein Name gleich "Hauptmenü" ist. Wenn dies nicht der Fall ist, setzen Sie die Sichtbarkeit für jedes Arbeitsblatt in ActiveWorkbook.Worksheets auf false. Wenn Worksheet.Name> "Hauptmenü", dann Worksheet.Visible = False Next End Sub
Mit dem oben ausgefüllten Code haben Sie jetzt ein voll funktionsfähiges Menüsystem, das jedes Blatt automatisch einblendet, sowie die Möglichkeit, alle geöffneten Blätter schnell auszublenden.
