У вас есть столбец текста. Для каждого текста в столбце вы хотите вставить новый лист и дать этому листу имя для значения в ячейке.
Смотреть видео
- Пэм хочет создать рабочий лист для каждого номера счета
- В настоящее время она использует Показать страницы фильтров отчетов.
- Ищете более быстрый способ
- Сохраните книгу как XLSM
- Проверьте безопасность макросов с помощью 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, вы получите этот уродливый экран. Скажут Insert, Module, и вот наш новый модуль, и вы собираетесь ввести этот код: слово Sub CreateSheets (). Как только вы напечатаете, что они собираются поставить End Sub, но между двумя из них мы собираемся сказать For Each cell in Selection. Мы собираемся установить рабочий лист, и на самом деле нам, вероятно, следует сделать этот Dim WS как рабочий лист. Хотите установить рабочий лист = Рабочие листы. Добавить. Теперь Worksheets.Add нужно знать, куда мы хотим его добавить, и я хочу просто добавить этот рабочий лист после последней работы, которую она выполняет в книге. Итак, я собираюсь сказать, сколько рабочих листов у нас сейчас. А вот давайте просто попробуем, скажем: Debug.Print worksheets.Count.Хорошо, там написано 4, вернемся в Excel и проверим. 1 2 3 4, поэтому мы добавим его после 4-го листа. Итак, после подведения итогов мы должны увидеть новый рабочий лист, и на этот лист мы собираемся поместить данные для учетной записи 100.
Хорошо, теперь WS.Name = cell.Value, а затем мы решили, что собираемся взять то, что находится справа от Account: данные. И мы собираемся взять эти данные и поместить их в ячейку B1 нового рабочего листа, который мы только что создали. Итак, из ячейки, справа, для каждой ячейки мы собираемся смещать 0 строк на 1 столбец и брать это значение, хорошо? Итак, у нас есть макрос: File, Close and Return to Microsoft Excel, а затем мы нажимаем Alt + F8. Alt + F8, CreateSheets, перейдет в Параметры. Мальчик, что будет хорошим? Ctrl + Shift + W. W для листов. Поэтому я удерживаю там Shift + W, нажимаю ОК, и мы можем нажать Отмена. Хорошо, выделите эти ячейки и нажмите Ctrl + Shift + W. Смотрите прямо здесь после подведения итогов - БАМ! Они есть на каждом. Он получил данные с каждого отдельного листа. Классный, крутой способ.
Возможность создавать множество листов на лету и, конечно же, работать не только на это. Давайте сделаем = ROW * 2, скопируем это вниз, вниз, вниз, вниз, вниз и выберем все из них - Ой, подождите, мы должны поместить туда некоторые данные. Давайте заполним его двумя, хорошо. А затем Ctrl + Shift + W. БАМ! О, я уже использовал один Лист 49. Но послушайте, мы прошли весь путь до самого конца, до конца быстро, быстро. Как создать множество разных листов на лету.
Хорошо, темы в этом выпуске: Пэм из Инди хочет создать рабочий лист для каждого номера счета в столбце A. В настоящее время она использует Показать страницы фильтра отчетов сводных таблиц. Она ищет более быстрый способ, хорошо? Итак, мы собираемся сохранить книгу как XLSM. Мы собираемся нажать Alt + TMS и установить второй вариант, а не первый. Alt + F11, теперь мы находимся в VBA, вставьте модуль, введите код, как показано, Alt + Q, чтобы вернуться в Excel, Alt + F8, выберите имя макроса и нажмите Параметры, назначьте Ctrl + Shift + W.
Привет, я хочу поблагодарить Пэм за то, что она была на моем семинаре в Индианаполисе. Мы прекрасно провели время там, хорошая группа. И я хочу поблагодарить вас за то, что заглянули. Увидимся в следующий раз на другой сетевой трансляции от.
Скачать файл
Загрузите образец файла здесь: Podcast2082.xlsm
