Есть несколько коротких макросов, которые вы можете добавить в свою личную книгу макросов, а затем добавить в QAT. В этом совете вы увидите, как создать личную книгу макросов, ввести несколько макросов, а затем назначить их значкам в QAT.
Создайте личную книгу макросов
Начните с любой книги. Зайдите в View, Macros, Record Macro. В диалоговом окне «Запись макроса» введите имя из одного слова, например HelloWorld. Выберите личную книгу макросов. Щелкните ОК.
Введите Hello в активной ячейке и нажмите Enter. Затем выберите «Просмотр», «Макросы», «Остановить запись». Эти шаги создадут на вашем компьютере файл Personal.xlsb, в котором вы сможете хранить новые макросы.
Откройте редактор VBA и найдите Module1 в Personal.xlsb
В Excel нажмите Alt + F11. (Если у вас нет Alt + F11, вы можете добавить команду Visual Basic в QAT и щелкнуть ее.
Ваш первый раз в редакторе VBA может быть огромным серым пространством. В меню VBA выберите View, Project Explorer.
Найдите запись с именем VBAProject (PERSONAL.XLSB). Щелкните значок +, чтобы развернуть его.
Найдите и разверните Модули. Щелкните правой кнопкой мыши Module1 и выберите Просмотреть код.
Вы увидите свой код HelloWorld. После End Sub введите любую из этих процедур.
Sub VeryHideActiveSheet() ActiveSheet.Visible = xlVeryHidden End Sub Sub ShowAllSheets() For Each sh In ActiveWorkbook.Worksheets sh.Visible = True Next sh End Sub Sub UpperSelection() For Each cell In Selection.SpecialCells(2, 2) ' 2, 2 means xlCellTypeConstants, Text cell.Value = UCase(cell.Value) Next End Sub Sub LowerSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = LCase(cell.Value) Next End Sub Sub ProperSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = Application.WorksheetFunction.Proper(cell.Value) Next End Sub При настройке QAT выберите Макросы в верхнем левом раскрывающемся меню.
Когда вы выбираете макрос и нажимаете «Добавить >>», по умолчанию отображается блок-схема. Нажмите «Изменить» в правом нижнем углу. Выберите новый значок. Введите хорошую подсказку.
Вот объяснение того, как использовать эти пять макросов:
- Очень скрыто: рабочие листы могут быть видимыми, скрытыми или очень скрытыми. Мало кто знает об очень скрытых листах, потому что для их создания нужно использовать VBA. Лист, который является очень скрытым, не будет отображаться в разделах «Главная», «Форматировать», «Скрыть и показать», «Рабочие листы». (Спасибо -Sagar Malik)
- Показать все листы : легко выбрать 12 листов и скрыть их с помощью одной команды. Но тогда раскрытие листов - это предложение каждый раз. Этот макрос покажет все листы (включая очень скрытые).
- Верхнее выделение: преобразует весь текст выделения в верхний регистр.
- Нижнее выделение: преобразует весь текст выделения в нижний регистр.
- Правильный выбор : преобразует весь текст в выделении в соответствующий регистр.
Спасибо MF Wong за предложение некоторых из этих макросов.
