Excel 2020: Създайте свои собствени процедури за QAT, като използвате VBA макроси - Съвети за Excel

Има няколко кратки макроса, които можете да добавите към вашата лична работна книга за макроси и след това да добавите към QAT. В този съвет ще видите как да създадете лична работна книга за макроси, въведете някои макроси и след това да ги присвоите на икони в QAT.

Създайте персонална работна книга за макроси

Започнете от всяка работна книга. Отидете на View, Macros, Record Macro. В диалоговия прозорец Запис на макрос въведете име от една дума като HelloWorld. Изберете Personal Macro Workbook. Щракнете върху OK.

Въведете 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 и изберете 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 от горното ляво падащо меню.

Когато изберете макрос и щракнете върху Добавяне >>, иконата ще бъде по подразбиране на поточна диаграма. Щракнете върху Промяна в долния десен ъгъл. Изберете нова икона. Въведете добър подсказка.

Ето обяснение как да използвате тези пет макроса:

  • Много скриване : Работните листове могат да бъдат видими, скрити или много скрити. Малко хора знаят за много скрити листове, защото трябва да използвате VBA, за да ги създадете. Работен лист, който е много скрит, няма да се покаже в Начало, Форматиране, Скриване и показване, Работни листове. (Благодаря на -Sagar Malik)
  • Показване на всички листове : Лесно е да изберете 12 листа и да ги скриете с една команда. Но тогава разкриването на листовете е еднократно предложение. Този макрос ще покаже всички листове (включително много скрити листове).
  • Горна селекция : Преобразува целия текст в селекцията в главни букви.
  • Долна селекция : Преобразува целия текст в селекцията в малки букви.
  • Правилен избор : Преобразува целия текст в селекцията в правилен регистър.

Благодарим на MF Wong, че предложи някои от тези макроси.

Интересни статии...