Има няколко кратки макроса, които можете да добавите към вашата лична работна книга за макроси и след това да добавите към 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, че предложи някои от тези макроси.
