Имате колона с текст. За всеки текст в колоната искате да вмъкнете нов работен лист и да го наименувате за стойността в клетката.
Гледам видео
- Пам иска да създаде работен лист за всеки номер на акаунт
- Понастоящем тя използва страниците за показване на филтъра на отчета
- Търси по-бърз начин
- Запазете работната книга като XLSM
- Проверете Macro Security с alt = "" + TMS и задайте на второ ниво
- Alt + F11
- Вмъкване на модул
- Въведете кода, както е показано
- Alt + Q за връщане към Excel
- Alt + F8
- Изберете макроса и щракнете върху Опции
- Присвояване на Ctrl + Shift + W
Видео транскрипция
Научете Excel от подкаст, епизод 2082: Създайте работни макроси
Хей, добре дошъл в мрежата, аз съм Бил Джелен. Е, миналата седмица бях в Блумингтън и Индианаполис, Индиана, където правех два семинара и Пам от семинара в Инди каза, че има този работен лист и за всяка клетка в колона А тя иска да създаде нов работен лист и след това съставих тази част , поставете съответната клетка от колона B в клетка B1.
Искам да кажа в момента, Пам отбеляза, че прави това по много умен начин, как да създаде всички тези работни листове, но все още е караница. Тя отива към Insert, Pivot Table, OK и след това от тази нова Pivot Table, тя поставя акаунта в областта Filters и след това Data в областта на стойностите като тази. И след това тя отива на Опции, Показване на страници за филтриране на отчети, Показване на всички страници на акаунта и БАМ! Тя получава чаршафите, както иска. Сега, когато данните са на грешното място, тя всъщност казва, че в този момент тя просто преминава през групи по всичко и след това изтрива тези обобщени таблици така, нали? И така, това е методът, който тя използва в момента и искам да видя дали мога да направя нещо по-бързо от този работен лист.
Така че начинът, по който ще направим това, е, че ще трябва да изберете предварително листове, предварително да изберете листове. Също така, хей, ако никога преди не сте правили макроси, направете Alt + T за Том, M за Мери, S за Сам и променете от първия избор към втория избор. Също така наистина, наистина важно, вашият файл, който гарантирам, се записва като .xlsx. Няма да работи, ако го оставите по този начин, трябва да направите File, Save As и да изберете тази работна книга с активиран макрос на Excel. Това най-горното е по подразбиране, а това е ужасният файлов формат, който няма право да използва макроси.
Добре, така че ще изберем тези данни Alt + F11, отваря редактора на VBA. Ако никога преди не сте правили VBA, ще получите този грозен екран тук. Ще каже Insert, Module и има нашия нов модул и ще въведете този код: думата Sub CreateSheets (). Веднага щом напишете, че те ще поставят End Sub, но между двете от тях ще кажем за всяка клетка в селекцията. Ще зададем работен лист и наистина трябва да направим това Dim WS като работен лист. Искате да зададете работен лист = Работни листове. Добавяне. Сега, Worksheets.Add трябва да знае къде искаме да го добавим и какво искам да направя е просто искам да добавя този работен лист след последната работа, която тя е в работната книга. И така, ще кажа колко работни листове имаме сега. И тук нека просто опитаме, да речем: Debug.Print worksheets.Count.Добре, там се казва, че имаме 4, нека се върнем към Excel и проверим това. 1 2 3 4, така че ще го добавим след 4-ия лист. Така че след приключването трябва да видим нов работен лист и в него ще поставим данните за акаунт 100.
Добре сега, WS.Name = cell.Value и тогава решихме, че ще вземем всичко, което е вдясно от Акаунта: Данните. И ние ще вземем тези данни и ще ги поставим в клетка B1 на чисто новия работен лист, който току-що създадохме. И така, от клетката, нали, за всяка клетка ще отместим 0 реда 1 колона и ще вземем тази стойност, нали? Така че имаме нашия макрос: Файл, Затваряне и Връщане към Microsoft Excel и след това натискаме Alt + F8. Alt + F8, CreateSheets, ще отиде в Options. Момче, какво ще бъде добро? Ctrl + Shift + W. W за работни листове. Затова задържам Shift + W там, щраквам OK и можем да щракнем Отказ. Добре, изберете тези клетки и след това Ctrl + Shift + W. Гледайте точно тук след Wrap Up - BAM! Има ги на всеки един. Той получи данните от всеки отделен лист. Готин, готин начин.
Възможността да създадете много работни листове на Fly и, разбира се, ще работи много повече от това. Нека направим = ROW * 2, копирайте това надолу, надолу, надолу, надолу, надолу и изберете всички тези - О, изчакайте, трябва да сложим някои данни там. Нека го напълним с 2, добре. И след това Ctrl + Shift + W. БАМ! О, вече използвах един лист 49. Но вижте, бяхме стигнали до най-близкия, краят бързо бърз път. Как да създадете много различни работни листове на Fly.
Добре, теми в този епизод: Пам от Indy иска да създаде работен лист за всеки номер на акаунт в колона А. В момента тя използва Покажи страниците за филтриране на отчети на обобщените таблици. Тя търси по-бърз начин, нали? Така че ще запазим работната книга като XLSM. Ще отидем Alt + TMS и ще зададем втория избор, а не първия избор. Alt + F11, сега сме във VBA, Insert Module, въведете кода, както е показано, Alt + Q, за да се върнете в Excel, Alt + F8, изберете името на макроса и щракнете върху Options, задайте Ctrl + Shift + W.
Хей, искам да благодаря на Пам, че присъства на моя семинар в Индианаполис. Прекарахме си страхотно там, добра група. И искам да ви благодаря, че отбихте. Ще се видим следващия път за поредното излъчване от.
Свали файл
Изтеглете примерния файл тук: Podcast2082.xlsm
