Є кілька коротких макросів, які ви можете додати до своєї особистої книги макросів, а потім додати до QAT. У цій підказці ви побачите, як створити особисту книгу макросів, набрати деякі макроси, а потім призначити їх значкам на QAT.
Створіть особисту книгу з макросів
Почніть із будь-якої книги. Перейдіть до Перегляд, Макроси, Запис макросів. У діалоговому вікні «Запис макросу» введіть ім’я з одним словом, наприклад HelloWorld. Оберіть «Персональну книгу з макросів». Клацніть OK.
Введіть Hello в активній комірці та натисніть Enter. Потім виберіть Перегляд, Макроси, Зупинити запис. Ці кроки створять Personal.xlsb на вашому комп’ютері, де ви зможете зберігати нові макроси.
Відкрийте редактор VBA та знайдіть модуль1 у Personal.xlsb
У Excel натисніть Alt + F11. (Якщо у вас немає Alt + F11, ви можете додати команду Visual Basic до QAT і натиснути на неї.
Ви вперше потрапили в редактор VBA, можливо, це величезна ширина сірого. У меню VBA виберіть Перегляд, Провідник проектів.
Шукайте запис під назвою VBAProject (PERSONAL.XLSB). Клацніть піктограму +, щоб розгорнути її.
Шукайте та розширюйте модулі. Клацніть правою кнопкою миші Module1 і виберіть View Code.
Ви побачите свій код 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, виберіть Macros у верхньому лівому спадному меню.
Коли ви вибираєте макрос і натискаєте Додати >>, піктограма буде встановлена за замовчуванням на блок-схему. Натисніть Змінити внизу праворуч. Виберіть нову піктограму. Введіть хорошу підказку.
Ось пояснення, як використовувати ці п’ять макросів:
- Very Hide : робочі аркуші можуть бути видимими, прихованими або дуже прихованими. Мало хто знає про дуже приховані аркуші, оскільки для їх створення вам потрібно використовувати VBA. Дуже прихований робочий аркуш не відображатиметься в домашніх, форматованих, прихованих та відкритих, робочих аркушах. (Спасибі Сагару Маліку)
- Показати всі аркуші : Легко вибрати 12 аркушів і сховати їх однією командою. Але тоді приховування аркушів - це поодинока пропозиція. Цей макрос покаже всі аркуші (включаючи дуже приховані аркуші).
- Верхнє виділення : перетворює весь текст у виділеному тексті на регістр.
- Нижній вибір : перетворює весь текст виділеного тексту на нижній регістр.
- Правильний вибір : перетворює весь текст виділення у правильний регістр.
Дякуємо М. Ф. Вонгу за пропозицію деяких із цих макросів.
