Sie haben eine Textspalte. Für jeden Text in der Spalte möchten Sie ein neues Arbeitsblatt einfügen und dieses Arbeitsblatt für den Wert in der Zelle benennen.
Schau Video
- Pam möchte für jede Kontonummer ein Arbeitsblatt erstellen
- Derzeit verwendet sie die Filterfilterseiten anzeigen
- Auf der Suche nach einem schnelleren Weg
- Speichern Sie die Arbeitsmappe als XLSM
- Überprüfen Sie die Makrosicherheit mit alt = "" + TMS und stellen Sie die zweite Ebene ein
- Alt + F11
- Modul einfügen
- Geben Sie den Code wie gezeigt ein
- Alt + Q, um zu Excel zurückzukehren
- Alt + F8
- Wählen Sie das Makro aus und klicken Sie auf Optionen
- Zuweisung zu Strg + Umschalt + W.
Video-Transkript
Lernen Sie Excel aus Podcast, Episode 2082: Arbeitsblatt-Makro erstellen
Hey, willkommen zurück im Netcast, ich bin Bill Jelen. Nun, letzte Woche war ich in Bloomington und Indianapolis, Indiana, und habe dort zwei Seminare durchgeführt. Pam vom Indy-Seminar sagte, dass sie dieses Arbeitsblatt hat. Für jede Zelle in Spalte A möchte sie ein neues Arbeitsblatt erstellen, und dann habe ich diesen Teil zusammengestellt Setzen Sie die entsprechende Zelle aus Spalte B in Zelle B1.
Ich meine, derzeit hat Pam bemerkt, dass sie dies auf sehr clevere Weise tut, wie man all diese Arbeitsblätter erstellt, aber es ist immer noch ein Ärger. Sie geht zu Einfügen, Pivot-Tabelle, OK und legt dann von dieser neuen Pivot-Tabelle aus das Konto in den Bereich Filter und dann Daten in den Wertebereich. Und dann geht sie zu Optionen, Berichtsfilterseiten anzeigen, Alle Kontoseiten anzeigen und BAM! Sie bekommt die Blätter Ziele, wie sie will. Jetzt, wo die Daten an der falschen Stelle sind, sagt sie tatsächlich, dass sie an diesem Punkt einfach alles durch Gruppen geht und dann diese Pivot-Tabellen so löscht, okay? Das ist also die Methode, die sie gerade verwendet, und ich möchte sehen, ob ich mit diesem Arbeitsblatt etwas schneller machen kann.
Die Art und Weise, wie wir dies tun, ist, dass Sie die Blätter vorab auswählen müssen, die Blätter vorab auswählen müssen. Hey, wenn Sie noch nie Makros gemacht haben, machen Sie Alt + T für Tom, M für Mary, S für Sam und wechseln Sie von der ersten zur zweiten Wahl. Auch wirklich, wirklich wichtig, Ihre Datei, die ich garantiere, wird als .xlsx gespeichert. Es funktioniert nicht, wenn Sie es so belassen. Sie müssen Datei, Speichern unter ausführen und diese Excel-Arbeitsmappe mit Makro aktivieren. Das oberste ist die Standardeinstellung und das oberste ist das schreckliche Dateiformat, das keine Makros verwenden darf.
Okay, also werden wir diese Daten auswählen. Alt + F11 öffnet den VBA-Editor. Wenn Sie noch nie VBA gemacht haben, erhalten Sie diesen hässlichen Bildschirm hier. Wird Einfügen, Modul und es gibt unser neues Modul und Sie werden diesen Code eingeben: das Wort Sub CreateSheets (). Sobald Sie eingeben, dass sie ein End Sub setzen, aber zwischen diesen beiden werden wir für jede Zelle in Auswahl sagen. Wir werden das Arbeitsblatt festlegen und sollten dieses Dim WS wahrscheinlich als Arbeitsblatt verwenden. Möchten Sie Arbeitsblatt = Arbeitsblätter setzen. Hinzufügen. Jetzt muss Worksheets.Add wissen, wo wir es hinzufügen möchten, und ich möchte dieses Arbeitsblatt nur nach der letzten Arbeit hinzufügen, die sie in der Arbeitsmappe hat. Also werde ich sagen, wie viele Arbeitsblätter wir jetzt haben. Und hier versuchen wir es einfach, sagen wir: Debug.Print Arbeitsblätter.Count.Okay, es heißt, wir haben 4, gehen wir zurück zu Excel und überprüfen das. 1 2 3 4 also werden wir es nach dem 4. Blatt hinzufügen. Nach dem Abschluss sollten wir also ein neues Arbeitsblatt sehen, und in diesem Arbeitsblatt werden wir die Daten für Konto 100 ablegen.
Okay, jetzt WS.Name = cell.Value und dann haben wir beschlossen, dass wir alles nehmen, was rechts vom Konto steht: die Daten. Und wir werden diese Daten nehmen und in Zelle B1 des brandneuen Arbeitsblatts einfügen, das wir gerade erstellt haben. Von der Zelle aus, richtig, werden wir für jede Zelle 0 Zeilen 1 Spalte um 1 versetzen und diesen Wert erfassen, okay? Wir haben also unser Makro: Datei, Schließen und Zurück zu Microsoft Excel und drücken dann Alt + F8. Alt + F8, CreateSheets, wechselt zu Optionen. Junge, was wird gut? Strg + Umschalt + W. W für Arbeitsblätter. Also halte ich dort Umschalt + W gedrückt, klicke auf OK und wir können auf Abbrechen klicken. Okay, wählen Sie diese Zellen aus und dann Strg + Umschalt + W. Schau gleich hier nach Wrap Up - BAM! Es hat sie auf jedem. Es erhielt die Daten von jedem einzelnen Blatt. Cool, cooler Weg zu gehen.
In der Lage zu sein, viele Arbeitsblätter im laufenden Betrieb zu erstellen, und natürlich würde es für weit mehr als das funktionieren. Lassen Sie uns a = ROW * 2 machen, kopieren Sie dies nach unten, unten, unten, unten, unten und wählen Sie alle aus - Oh, warten Sie, wir müssen dort einige Daten ablegen. Lass es uns mit 2 füllen, okay. Und dann Strg + Umschalt + W. BAM! Oh, ich habe bereits ein Blatt 49 verwendet. Aber schau, wir waren den ganzen Weg bis in die Nähe, das Ende schnell und schnell. So erstellen Sie viele verschiedene Arbeitsblätter im laufenden Betrieb.
Okay, Themen in dieser Episode: Pam aus Indy möchte für jede Kontonummer in Spalte A ein Arbeitsblatt erstellen. Derzeit verwendet sie die Filterfilterseiten für Pivot-Tabellen anzeigen. Sie sucht nach einem schnelleren Weg, okay? Also werden wir die Arbeitsmappe als XLSM speichern. Wir werden Alt + TMS wählen und die zweite Wahl treffen, nicht die erste Wahl. Alt + F11, jetzt sind wir in VBA, Modul einfügen, Code wie gezeigt eingeben, Alt + Q, um zu Excel zurückzukehren, Alt + F8, Makroname auswählen und auf Optionen klicken, Strg + Umschalt + W zuweisen.
Hey, ich möchte Pam dafür danken, dass sie an meinem Seminar in Indianapolis teilgenommen hat. Wir hatten eine tolle Zeit dort, gute Gruppe. Und ich möchte mich bei Ihnen für Ihren Besuch bedanken. Wir sehen uns beim nächsten Mal für einen weiteren Netcast von.
Download-Datei
Laden Sie die Beispieldatei hier herunter: Podcast2082.xlsm
