Пэм хочет расположить вкладки своего рабочего листа в алфавитном порядке. Это не команда в Excel, но с помощью короткого макроса вы можете добавить ее на панель быстрого доступа.
Смотреть видео
- Пэм хочет отсортировать вкладки рабочего листа по алфавиту
- Собираюсь использовать макрос в личной книге макросов
- Alt + T + M + S и измените безопасность макросов, чтобы разрешить макросы
- Запишите макрос Hello World в личную книгу макросов
- Введите новый код в личную книгу макросов
- Назначьте этот код кнопке QAT
Стенограмма видео
Изучите Excel из подкаста, эпизод 2084: сортировка вкладок рабочего листа в алфавитном порядке
Привет, добро пожаловать обратно в сеть, я Билл Джелен. Сегодняшний вопрос от Пэм: есть ли способ расположить вкладки рабочего листа в алфавитном порядке? Что ж, встроенного способа сделать это нет, но мы могли бы сделать это с помощью макроса. А теперь это макрос, который действительно должен быть в личной книге макросов, хорошо? Итак, если вы никогда раньше не делали макросы, мы сделаем Alt + T для Тома и для Мэри, S для Сэма. И убедитесь, что вы перешли от Отключить все макросы без уведомления к Отключить макросы с уведомлением.
Хорошо, тогда нажмите Alt + F8 и посмотрите, есть ли у вас какие-либо макросы, обязательно выберите Макросы в: Все открытые книги. Если у вас нет ничего, что начинается как PERSONAL.XLSB, вам необходимо выполнить эти необязательные шаги. Если у вас уже есть что-то с PERSONAL.XLSB, просто подождите секунду, хорошо?
Итак, мы собираемся перейти на вкладку «Просмотр» и записать новый макрос. Он будет называться HelloWorld. Нет места, нет места. И мы собираемся сохранить макрос в личной книге макросов, нажмите ОК. И просто введите где-нибудь Hello World, вот так, а затем подойдите сюда рядом с Ready и нажмите Stop. Хорошо, теперь это заставит вас создать личную книгу макросов. Хорошо, если вы никогда раньше не использовали макросы, возможно, у вас их нет.
На этом этапе мы собираемся нажать Alt + F11, и если вы никогда не использовали макросы, вы получите этот серый экран. Мы собираемся перейти к View, Project Explorer и найти новый PERSONAL.XLSB. Если у вас уже есть модуль, который, конечно, вы, конечно же, откроете и дважды щелкните модуль 1. Теперь у меня уже есть пара макросов в моей личной книге макросов, но я собираюсь перейти прямо сюда, чтобы последний ряд, вставьте пару пробелов.
Хорошо, тогда вы должны ввести этот код, который я вставил. И мы поговорим об этом макросе, когда я его запустил. Итак, я собираюсь запускать его по одной строке, нажимая клавишу F8. И вот одна вещь, которую я здесь понял: после завершения сортировки было немного неприятно оказаться на другом листе, поэтому я помню, на каком листе мы находимся, поэтому позже я могу выбрать его прямо перед макросом. сделанный.
Хорошо, вот и мы. Вернемся в Excel, и вы увидите, что первый лист там называется Заголовок. Сейчас мы находимся на листе под названием Вопрос. Я хочу добавить новый лист перед заголовком, поэтому мы выполняем Worksheets.Add, а затем я хочу его переименовать. В настоящее время входит в Sheet1 как TempSortSheet. Будьте осторожны, это должно быть имя, которое вы никогда бы не использовали. Например, не называйте этот отчет о доходах, хорошо? Просто используйте что-то очень случайное, чтобы, когда мы … вы столкнетесь с ошибкой, если у вас уже есть лист под названием TempSortSheet. И затем я обнаружил, что я использовал этот Worksheet.Count снова и снова, поэтому я просто собираюсь поместить его в переменную, которая позже будет проще называть WSC, чем Worksheets.Count. Итак, у нас есть 150 рабочих листов, и у нас есть список этих рабочих листов.
Хорошо, так что вы впервые проходите цикл, в котором я перехожу от 1 к 250. При первом прохождении цикла к нашему новому листу, который мы добавили, TempSortSheet, в строке 1 столбца 1, мы собираемся поставить значение = на первый рабочий лист. Хорошо, и то, что должно быть, хорошо, да, TempSortSheet прямо здесь. Но я позволю этому пройти еще пару раз. Я нажму F8, и вы увидите, что мы получаем все вкладки листов в том порядке, в котором они появляются в книге, и предполагаю, что я начинаю получать те вкладки, у которых есть номера счетов, хорошо. И я собираюсь позволить этому поработать, я не хочу, чтобы мне приходилось нажимать F8 300 раз. Итак, я собираюсь щелкнуть здесь и перейти к «Отладка», «Выполнить до курсора», то есть Ctrl + F8, что завершит это. И видите, у нас есть список всех 150 вкладок листов.Это потрясающе.
А теперь вот где мы можем воспользоваться преимуществами Excel. В Интернете много сообщений, в том числе на доске объявлений, где они пытаются сортировать. Они пишут свою сортировку, чтобы перемещать листы, и мы собираемся воспользоваться преимуществами Excel, потому что в Excel есть сортировка, а я использую код из Excel 2003. Мне нравится этот код, его легче запомнить. Я собираюсь начать с A1, изменить его размер до 150 ячеек и отсортировать. Ключ будет A1. Что ж, это единственное, что могло быть. Порядок будет по возрастанию, и не забудьте указать, что есть заголовок, хорошо? Мы не хотим, чтобы наш TempSortSheet разбирался в данных. Хорошо, так вот. БАМ! Это выполняет сортировку, и нам не нужно писать код пузырьковой сортировки. Затем мы перейдем к строке 2, которая является A120,лист, который нужно переместить, - А120. Почему " " ? Ах, в случае, если у вас есть имя листа, как у нас было ранее на этой неделе, например, лист с именем 123, который сбивает Excel с толку. А потом, куда мы собираемся его переместить? Мы собираемся перейти не к строке 2, а после первого листа. Итак, MoveAfter становится 1. Итак, мы возьмем наш лист под названием A120 и переместим его после первого такого листа, F8, и там все сработало. Проведите эти три строки еще раз. A124 попадает в нужное место.Мы возьмем наш лист под названием A120 и переместим его после первого листа, такого как F8, и там все сработало. Проведите эти три строки еще раз. A124 попадает в нужное место.Мы возьмем наш лист под названием A120 и переместим его после первого листа, такого как F8, и там все сработало. Проведите эти три строки еще раз. A124 попадает в нужное место.
At this point, now we know it's working, we can do Ctrl+F8 which does all of the moving - 150 moves just happened there. And now, I'm going to delete the original sheet that is our deleted TempSortSheet. But before I delete it, I don't want them to tell whoever's running the code that we're about to delete the sheet. So, I just delete it and then select the original sheet and display message that the workbooks have been sorted like that.
Okay, so now that we have the macro, we know the macro is working and it's in the personal macro workbook, a couple of things we want to do: Alt+F11 come back here and make sure that you're in the personal macro workbook, click there and click Save. If you don't save it now, later on when you're closing Excel it's going to flash up this message about ‘Do you want to save changes to PERSONAL.XLSB?’ and you'll completely forget and not save the changes, right? So I always make sure to save the changes and then Alt+Tab where I Customize the Quick Access Toolbar, choose from Macros, find the one that's called SortSheets, add that to the Quick Access Toolbar. I don't like the flowchart so we'll look for something that says A to Z or you know, so let's use this one and put a little tab there of Sort Sheets like that, click OK, click OK.
Хорошо, вот и тест. Вставлю новую книгу. Я сделаю несколько копий листов, и мы разместим их в какой-то странной последовательности: Z, затем Y, затем M, а затем B, вот так. Щелкните Сортировать листы и БАМ! Они вернулись сюда в правильной последовательности. Как это круто.
Хорошо, в сегодняшнем выпуске Пэм хочет отсортировать вкладки листа в алфавитном порядке. Вау! Мы использовали макрос. Сначала измените безопасность макросов и запишите макрос Hello World в личную книгу макросов, а затем введите код в личную книгу макросов и назначьте его кнопке панели быстрого доступа.
Я хочу поблагодарить Пэм за этот вопрос. Я хочу поблагодарить вас за то, что заглянули. Увидимся в следующий раз на другой сетевой трансляции от.
Скачать файл
Загрузите образец файла здесь: Podcast2084.xlsm
