Van egy oszlop szöveget. Az oszlop minden egyes szövegéhez új munkalapot és nevet kell adni a cellában lévő értékhez.
Videót nézni
- Pam szeretne létrehozni egy munkalapot minden számlaszámhoz
- Jelenleg a Jelentés szűrőoldalainak megjelenítése funkciót használja
- Gyorsabb utat keres
- Mentse el a munkafüzetet XLSM néven
- Ellenőrizze a Makróbiztonságot az alt = "" + TMS segítségével, és állítsa a második szintre
- Alt + F11
- Helyezze be a modult
- Írja be a kódot az ábra szerint
- Alt + Q az Excelbe való visszatéréshez
- Alt + F8
- Válassza ki a makrót, majd kattintson az Opciók gombra
- Rendelje hozzá a Ctrl + Shift + W billentyűkhöz
Videó átirat
Ismerje meg az Excel programot a Podcast 2022. epizódjából: Hozzon létre munkalapokat
Hé, üdvözlöm újra a neten, Bill Jelen vagyok. Nos, a múlt héten voltam Bloomingtonban és Indianapolisban, Indianában, ahol két szemináriumot tartottam, és Pam az Indy szemináriumból azt mondta, hogy neki van ez a munkalap, és az A oszlop minden cellájához új munkalapot akar létrehozni, majd ezt a részt kitaláltam. , tegye a megfelelő oszlopot a B oszlopból a B1 cellába.
Úgy értem, Pam most megjegyezte, hogy ezt nagyon okosan csinálja, hogyan hozza létre ezeket a munkalapokat, de ez még mindig gond. Lép az Insert, a Pivot Table, az OK gombra, majd az új Pivot Table-ből a Fiókot a Szűrők, majd az Adatok mezőbe teszi az ilyen értékeket. Ezután az Opciók, a Jelentésszűrő oldalak megjelenítése, a fiók összes oldalának megjelenítése és a BAM elemre megy. Úgy kapja meg a lepedőket, ahogy akarja. Most, hogy az adatok rossz helyen vannak, valójában azt mondja, hogy ezen a ponton csak átmegy mindenen a csoportokon, majd törli ezeket a pivot táblázatokat, rendben? Tehát ezt a módszert alkalmazza most, és szeretném megtudni, hogy tudok-e valamit gyorsabban csinálni a munkalapból.
Tehát, ahogyan ezt meg fogjuk tenni, előre meg kell választania a lapokat, és előre ki kell választania a lapokat. Hé, ha még soha nem csináltál makrókat, tedd az Alt + T-t Tomnak, M-et Mary-nek, S-t Sam-nek, és válts az első választásról a másodikra. Szintén nagyon-nagyon fontos, hogy a fájl, amelyet garantálok, .xlsx fájlként van elmentve. Nem fog működni, ha így hagyja, meg kell tennie a Fájl, a Mentés másként lehetőséget, és válassza ezt az Excel makró-engedélyezett munkafüzetet. Ez a legfelső az alapértelmezett, a legfelső pedig a borzalmas fájlformátum, amely nem engedélyezi a makrók használatát.
Rendben, ezért kiválasztjuk az Alt + F11 adatokat, és megnyílik a VBA szerkesztő. Ha még soha nem végzett VBA-t, akkor itt kapja ezt a csúnya képernyőt. Azt mondja, hogy Insert, Module, és ott van az új modulunk, és beírja ezt a kódot: a Sub CreateSheets () szót. Amint beírja, hogy egy End Sub-t tesznek, de kettő között, azt fogjuk mondani a Selection Minden cellájához. Be fogjuk állítani a Munkalapot, és valószínûleg ezt a Dim WS-t kellene munkalapként megtenni. Munkalap beállítása = Munkalapok. Hozzáadás. Most, a Munkalapok.Add-nak tudnia kell, hová akarjuk felvenni, és mit akarok csinálni, csak azt a munkalapot szeretném felvenni a munkafüzet utolsó munkája után. Szóval elmondom, hány munkalapunk van most. És itt próbáljuk meg, mondjuk: Debug.Print munkalapokat. Count.Rendben, azt mondja, hogy van 4, térjünk vissza az Excelbe, és ellenőrizzük. 1 2 3 4, tehát a 4. lap után adjuk hozzá. Tehát a becsomagolás után új munkalapot kell látnunk, és erre a munkalapra fogjuk tenni a 100-as fiók adatait.
Rendben, WS.Name = cell.Value, majd úgy döntöttünk, hogy a Fióktól jobbra fogjuk venni az Adatokat. Fogjuk ezeket az adatokat, és betesszük a most létrehozott vadonatúj munkalap B1 cellájába. Tehát a cellából, ugye, minden cellánál eltoljuk a 0 sor 1 oszlopát, és megragadjuk ezt az értéket, rendben? Tehát megvan a makrónk: Fájl, Bezárás és visszatérés a Microsoft Excel programba, majd megnyomjuk az Alt + F8 billentyűkombinációt. Az Alt + F8, a CreateSheets, az Opciók menüpontra lép. Fiú, mi lesz jó? Ctrl + Shift + W. W a munkalapokhoz. Tehát ott tartom a Shift + W billentyűkombinációt, kattints az OK gombra, és rákattinthatunk a Mégse gombra. Rendben, válassza ki azokat a cellákat, majd a Ctrl + Shift + W billentyűkombinációt. Nézd meg itt a Wrap Up - BAM után! Mindegyiken vannak. Minden egyes lapról megkapta az adatokat. Hűvös, klassz út.
Sok munkalap elkészítése a Fly-ben, és természetesen ennél sokkal többet is jelentene. Tegyünk egy = ROW * 2 lemásolást, lefelé, lefelé, lefelé, lefelé, és válasszuk ki mindet - Ó, várj, át kell adnunk néhány adatot. Töltsük meg 2-vel, rendben. Ezután a Ctrl + Shift + W billentyűkombinációt. BAM! Ó, én már használtam egy 49-es lapot. De nézd, egészen a közelségig voltunk, a vég gyorsan, gyorsan. Hogyan készítsünk sokféle munkalapot menet közben.
Rendben, témák ebben az epizódban: Az Indy Pam szeretne egy munkalapot létrehozni az A oszlop minden számlaszámához. Jelenleg a kimutató táblák jelentésszűrő oldalainak megjelenítése szolgál. Gyorsabb utat keres, rendben? Tehát a munkafüzetet XLSM néven mentjük el. Megyünk az Alt + TMS-re, és a második választásra állunk, nem az elsőre. Alt + F11, most a VBA-ban vagyunk, a Modul beszúrása, Írja be a kódot az ábra szerint, Alt + Q az Excelbe való visszatéréshez, Alt + F8, válassza ki a makró nevét, majd kattintson az Opciók gombra, rendeljen hozzá a Ctrl + Shift + W parancshoz.
Hé, szeretnék köszönetet mondani Pamnek, hogy részt vett Indianapolisban tartott szemináriumomon. Nagyon jól éreztük magunkat ott, jó csoport. És szeretném megköszönni, hogy megálltál. Legközelebb találkozunk egy újabb netcast-lal.
Fájl letöltése
Töltse le a minta fájlt innen: Podcast2082.xlsm