Yra keletas trumpų makrokomandų, kurias galite pridėti prie savo asmeninės makrokomandos darbaknygės ir tada pridėti prie QAT. Šiame patarime pamatysite, kaip sukurti „Personal Macro Workbook“, įveskite keletą makrokomandų ir tada priskirkite jas piktogramoms, esančioms QAT.
Sukurkite asmeninę makrokomandų darbaknygę
Pradėkite nuo bet kurios darbaknygės. Eikite į View, Macros, Record Macro. Dialogo lange Makro įrašymas įveskite vieno žodžio pavadinimą, pvz., HelloWorld. Pasirinkite „Personal Macro Workbook“. Spustelėkite Gerai.
Įveskite Hello į aktyvų langelį ir paspauskite Enter. Tada pasirinkite „View“, „Macros“, „Stop Recording“. Atlikę šiuos veiksmus, kompiuteryje sukursite Personal.xlsb, kuriame galėsite saugoti naujas makrokomandas.
Atidarykite „VBA“ redaktorių ir raskite „Personal.xlsb“ 1 modulį
„Excel“ paspauskite Alt + F11. (Jei neturite „Alt + F11“, galite pridėti „Visual Basic“ komandą į QAT ir spustelėti.
Pirmą kartą dirbant VBA redaktoriuje tai gali būti didžiulė pilkos spalvos platybė. Meniu VBA pasirinkite „View“, „Project Explorer“.
Ieškokite įrašo, pavadinto VBAProject (PERSONAL.XLSB). Spustelėkite piktogramą +, kad ją išplėstumėte.
Ieškokite ir išplėskite modulius. Dešiniuoju pelės mygtuku spustelėkite „Module1“ ir pasirinkite Peržiūrėti kodą.
Pamatysite savo „HelloWorld“ kodą. Po pabaigos antrinio tipo įveskite bet kurią iš šių procedūrų.
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 Kai tinkinate QAT, viršutiniame kairiajame išskleidžiamajame meniu pasirinkite Makrokomandos.
Kai pasirinksite makrokomandą ir spustelėsite Pridėti >>, piktograma bus numatyta srauto diagramoje. Apačioje dešinėje spustelėkite Modifikuoti. Pasirinkite naują piktogramą. Įveskite gerą patarimą.
Čia yra paaiškinimas, kaip naudoti šias penkias makrokomandas:
- Labai slėpti : darbalapiai gali būti matomi, paslėpti arba labai paslėpti. Nedaugelis žmonių žino apie labai paslėptus lapus, nes jiems sukurti turite naudoti VBA. Labai paslėptas darbalapis nebus rodomas darbalaukiuose Pagrindinis, Formatas, Slėpti ir nebeslėpti. (Ačiū -Sagarui Malikui)
- Rodyti visus lapus : lengva pasirinkti 12 lapų ir paslėpti juos viena komanda. Bet tada lapų nebeslėpimas yra vienas po kito siūlymas. Ši makrokomanda atvaizduos visus lapus (įskaitant labai paslėptus lapus).
- Didysis pasirinkimas : konvertuoja visą pasirinktą tekstą į didžiąsias raides.
- Mažesnės Atrankos : konvertuoja visas tekstas atrankoje į mažąja.
- Tinkamas pasirinkimas : konvertuoja visą pasirinkto teksto raidę į tinkamą.
Ačiū MF Wong, kuris pasiūlė keletą šių makrokomandų.
