У вас є стовпець тексту. Для кожного тексту в стовпці потрібно вставити новий аркуш і назвати цей аркуш для значення в комірці.
Переглянути відео
- Пем хоче створити аркуш для кожного номера рахунку
- Наразі вона використовує Показати сторінки фільтрування звітів
- Шукаєш швидшого шляху
- Збережіть книгу як XLSM
- Перевірте Macro Security за допомогою alt = "" + TMS і встановіть на другий рівень
- Alt + F11
- Вставити модуль
- Введіть код, як показано
- Alt + Q, щоб повернутися до Excel
- Alt + F8
- Виберіть макрос та натисніть Параметри
- Призначити Ctrl + Shift + W
Стенограма відео
Дізнайтеся Excel з подкасту, епізод 2082: Створіть макрос робочих аркушів
Привіт, ласкаво просимо назад до трансляції, я Білл Джелен. Ну, минулого тижня я був у Блумінгтоні та Індіанаполісі, штат Індіана, там проводив два семінари, і Пам із семінару в Інді сказала, що у неї є цей робочий аркуш, і для кожної комірки в колонці А вона хоче створити новий аркуш, а потім я склала цю частину , помістіть відповідну комірку зі стовпця B у комірку B1.
Я маю на увазі, що зараз Пем зазначила, що робить це дуже розумно, як створити всі ці робочі аркуші, але це все одно клопіт. Вона переходить до Вставка, Зведена таблиця, ОК, а потім із нової Зведеної таблиці вона розміщує Обліковий запис в області Фільтри, а потім Дані в такій області значень. А потім вона переходить до Параметри, Показати сторінки фільтрування звітів, Показати всі сторінки рахунку та БАМ! Вона отримує аркуші, як хоче, як хоче. Тепер, коли дані потрапили не в те місце, вона насправді каже, що в цей момент вона просто проходить все по групах, а потім видаляє ці зведені таблиці так, добре? Отже, це метод, який вона використовує зараз, і я хочу перевірити, чи можу я зробити щось швидше з цього аркуша.
Отже, як ми будемо це робити, вам доведеться попередньо виділити аркуші, попередньо виділити аркуші. Також привіт, якщо ви ніколи раніше не робили макросів, зробіть Alt + T для Тома, M для Мері, S для Сема та перейдіть з першого на другий вибір. Також дуже, дуже важливо, ваш файл, який я гарантую, зберігається як .xlsx. Це не буде працювати, якщо залишити це так, вам потрібно зробити «Файл», «Зберегти як» і вибрати цю книгу з підтримкою макросів Excel. Цей верхній є типовим, а верхній - це жахливий формат файлу, в якому заборонено використовувати макроси.
Гаразд, тому ми збираємося вибрати ці дані Alt + F11, відкриває редактор VBA. Якщо ви ніколи раніше не робили VBA, ви отримаєте тут цей потворний екран. Скаже Вставити, Модуль, і є наш новий модуль, і ви збираєтеся ввести цей код: слово Sub CreateSheets (). Як тільки ви введете, що вони збираються поставити End Sub, але між двома з них ми будемо говорити для кожної клітинки у виділенні. Ми збираємося встановити робочий аркуш, і насправді ми, мабуть, повинні зробити це Dim WS як робочий аркуш. Хочете встановити робочий аркуш = Worksheets. Додати. Тепер, 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, перейде до Параметри. Хлопче, що буде хорошим? Ctrl + Shift + W. Ш для робочих аркушів. Тому я утримую там Shift + W, натискаю OK, і ми можемо натиснути Скасувати. Добре, виділіть ці клітинки, а потім Ctrl + Shift + W. Дивіться прямо тут після Wrap Up - BAM! Вони мають їх на кожному. Він отримував дані з кожного окремого аркуша. Класний, крутий шлях.
Будучи в змозі створити багато робочих аркушів на Fly, і, звичайно, це спрацювало б набагато більше. Давайте зробимо = ROW * 2 скопіюємо це вниз, вниз, вниз, вниз, вниз і виділимо всі ці - О, почекайте, ми повинні помістити туди деякі дані. Давайте заповнимо 2, добре. А потім Ctrl + Shift + W. БАМ! О, я вже використовував один Аркуш 49. Але, дивіться, ми були аж до найближчого, кінця швидкого швидкого шляху. Як створити безліч різних аркушів на Fly.
Добре, теми в цьому епізоді: Пем з Інді хоче створити робочий аркуш для кожного номера облікового запису у стовпці А. Наразі вона використовує Показати сторінки фільтрів звітів зведених таблиць. Вона шукає швидшого шляху, добре? Отже, ми збережемо книгу як XLSM. Ми перейдемо до Alt + TMS і встановимо другий вибір, а не перший вибір. Alt + F11, тепер ми знаходимось у VBA, Вставте модуль, Введіть код, як показано, Alt + Q, щоб повернутися до Excel, Alt + F8, виберіть ім'я макросу та натисніть Параметри, призначте Ctrl + Shift + W.
Гей, я хочу подякувати Пем за те, що я була на моєму семінарі в Індіанаполісі. Нам там було чудово, хороша група. І я хочу подякувати вам, що завітали. Ми побачимось наступного разу для чергової трансляції від.
Завантажити файл
Завантажте зразок файлу тут: Podcast2082.xlsm
