actsuriname.org

Das Programm Microsoft Office Excel kann viel mehr als nur Tabellenkalkulationen erstellen. Darin können Sie erweiterte mathematische Berechnungen und Transformationen basierend auf Informationen in verschiedenen Datenzellen durchführen. Darüber hinaus können Sie innerhalb von Excel mit Visual Basic-Makros grundlegende Datenstrukturen wie Warteschlangen erstellen. Die Verwendung einer Warteschlange für das Produktmanagement oder die Aufzeichnung von Aufzeichnungen, wenn Sie ein "First In, First Out"-Modell benötigen, kann das Leben des Inhabers kleiner Unternehmen erheblich erleichtern. Mit etwas einfachem Code können Sie eine Warteschlange in Excel verwenden, ohne fortgeschrittene Programmierung oder Software für Informatiker zu erlernen.

1

Zeigen Sie die Registerkarte Entwickler in der Excel-Multifunktionsleiste an. Klicken Sie auf die Office-Schaltfläche | "Excel-Optionen" | "Beliebt" | "Registerkarte" Entwickler "in der Multifunktionsleiste anzeigen."

2

Klicken Sie auf die Zelle "A1" und geben Sie das Wort "Titel" ein.

3

Klicken Sie auf die Zelle B1 und dann auf "Gewicht".

4

Fügen Sie Ihrem Excel-Arbeitsblatt eine Schaltfläche hinzu, um Elemente zur Warteschlange hinzuzufügen. Wählen Sie "Entwickler" | "Einfügen" | "Formularsteuerelemente." Wählen Sie das Symbol "Schaltfläche". Nennen Sie es im Feld Makroname "Einfügen". Das VB-Code-Fenster wird angezeigt.

5

Geben Sie den folgenden VB-Code in das Codierfenster ein. Dies nimmt einen in Zelle C1 eingegebenen Namen und ein in C2 eingegebenes Gewicht und stellt sie in die Warteschlange:

Zeilen ("2: 2"). Shift einfügen: = xlDown-Bereich ("C1"). Kopierbereich ("A2"). PasteSpecial-Bereich ("C2"). Kopierbereich ("B2"). PasteSpecial ActiveCell.Offset ( 0, 1) = Jetzt Bereich ("A: B"). Sortierschlüssel1: = Bereich ("B1"), Reihenfolge1: = xlAscending, Header: = xlYes

6

Fügen Sie eine weitere Schaltfläche hinzu und nennen Sie sie "Entfernen". Fügen Sie dem VB-Codefenster den folgenden Code hinzu. Jetzt können Sie das letzte Element in der Warteschlange mit einem Klick auf die Schaltfläche entfernen:

Range("A1").End(xldown).Löschen Range("B1").End(xldown).Löschen