Wie viel Zeit können Sie lernen, diese Art von Computer-Code zu widmen : " Selection.Sort Key1 : = Range (" A5 " ) , Order1 : = xlAscending ? " Sie fühlen sich vielleicht das Leben ist zu kurz, um so viel Zeit damit verbringen , um eine einfache Aufgabe zu tun. Glücklicherweise bietet Visual Basic eine einfachere Möglichkeit . Für viele Aufgaben , können Sie einfach ein Makro erstellen , das ein automatisiertes Verfahren von einer manuellen Prozedur erstellt ist . Makros sind nützlich, weil Sie einfach einen Knopf drücken und notieren Sie die notwendigen Schritte, um die Aufgabe auf dem Arbeitsblatt zu vervollständigen. Der Visual Basic-Interpreter generiert automatisch den Code. Der Computer übernimmt arkanen Syntax , so dass Sie nicht brauchen, sich darum zu kümmern . Wenn Sie den Vorgang ausführen möchten , müssen Sie nur das Makro ausführen . Anleitung
1

Erstellen Sie einige Daten für eine " Art " Makro. Geben Sie die folgenden Daten in die Zellen A1 bis A5: " Mancini ", " Talbot ", " Simons ", " Chen " und " Ito "
2

Beginn der Aufzeichnung des Makros , indem Sie " Tools" und . "Macro ". Dann wählen Sie " Neues Makro aufzeichnen " und drücken Sie "OK".
3

Bewegen Sie den Cursor auf die Zelle A1 durch Drücken von " Strg " + "Home ". Wählen Sie die Spalte von Namen , indem Sie die "Shift"- Taste und die Taste "Strg" mit dem Pfeil nach unten. Drücken Sie die " Aufsteigend "-Taste (die Taste in der oberen Menüleiste mit " AZ " mit einem Pfeil nach unten) . Stoppen Sie die Aufzeichnung des Makros durch Drücken der blauen Quadrat auf dem "Stop Rec "-Fenster.
4

Überprüfen Sie Ihre Computer - generierten Code , indem Sie "Alt" und drücken Sie "F8 ". Dann wählen Sie den Namen des Makros , das sollte " Macro1 " sein , wenn der Computer den Namen ausgewählt automatisch . Drücken Sie auf " Bearbeiten". Bestätigen Sie, dass der Computer den folgenden Code erzeugt :

Sub Macro1 () '' Macro1 Makro 'Makro aufgezeichnet 4/29/2010 von w'

' Range (" A1: A6 " ) . SelectSelection.Sort Key1 : = Range (" A1") , Order1 : = xlAscending , Rubrik: = xlGuess , _OrderCustom : = 1, MatchCase : = False , Orientation: = xlTopToBottomActiveWindow.SmallScroll Down: = 69End Sub