Ir vairākas īsas makro, kuras varat pievienot personālajai makro darbgrāmatai un pēc tam pievienot QAT. Šajā padomā jūs redzēsiet, kā izveidot personālo makro darbgrāmatu, ierakstiet dažus makro un pēc tam tos piešķiriet ikonām QAT.
Izveidojiet personīgo makro darbgrāmatu
Sāciet no jebkuras darbgrāmatas. Dodieties uz View, Macros, Record Macro. Dialoglodziņā Makro ierakstīšana ierakstiet viena vārda nosaukumu, piemēram, HelloWorld. Izvēlieties Personīgā makro darbgrāmata. Noklikšķiniet uz Labi.
Aktīvajā šūnā ierakstiet Sveiki un nospiediet taustiņu Enter. Pēc tam atlasiet Skatīt, Makro, Pārtraukt ierakstīšanu. Šīs darbības datorā izveidos Personal.xlsb, kurā var glabāt jaunus makro.
Atveriet VBA redaktoru un atrodiet 1. moduli vietnē Personal.xlsb
Programmā Excel nospiediet Alt + F11. (Ja jums nav Alt + F11, QAT varat pievienot komandu Visual Basic un noklikšķināt uz tā.
Pirmo reizi VBA redaktorā tas varētu būt milzīgs pelēkā krāsā. Izvēlnē VBA atlasiet Skatīt, Project Explorer.
Meklējiet ierakstu ar nosaukumu VBAProject (PERSONAL.XLSB). Noklikšķiniet uz ikonas +, lai to izvērstu.
Meklējiet un paplašiniet moduļus. Ar peles labo pogu noklikšķiniet uz Module1 un izvēlieties View Code.
Jūs redzēsiet savu HelloWorld kodu. Pēc End Sub ierakstiet jebkuru no šīm procedūrām.
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 Pielāgojot QAT, augšējā kreisajā nolaižamajā izvēlnē izvēlieties Makro.
Izvēloties makro un noklikšķinot uz Pievienot >>, ikona noklusējuma būs plūsmas diagramma. Apakšējā labajā stūrī noklikšķiniet uz Modificēt. Izvēlieties jaunu ikonu. Ievadiet labu padomu.
Šeit ir paskaidrojums par to, kā izmantot šos piecus makro:
- Ļoti paslēpt : darblapas var būt redzamas, paslēptas vai ļoti slēptas. Tikai daži cilvēki zina par ļoti slēptām lapām, jo to izveidošanai jāizmanto VBA. Darblapa, kas ir ļoti paslēpta, netiks rādīta darblapās Sākums, Formāts, Slēpt un paslēpt. (Paldies -Sagar Malik)
- Rādīt visas lapas : ir viegli atlasīt 12 lapas un paslēpt tās vienā komandā. Bet tad lapu atmaskošana ir piedāvājums pa vienam. Šis makro parādīs visas lapas (ieskaitot ļoti slēptās lapas).
- Augšējā atlase : Pārvērš visu atlases tekstu lielajiem burtiem.
- Apakšējā atlase : Pārvērš visu atlases tekstu mazajiem burtiem.
- Pareiza atlase : Pārvērš visu atlases tekstu par lielo un mazo burtu.
Paldies MF Wong, kurš ieteica dažus no šiem makro.
