Viens veids, kā iegūt kodu VBA modulī, ir ierakstīt savas darbības, izmantojot Excel makro ierakstītāju. Viena lieta, kas jums jāatceras, ir tāda, ka varat ierakstīt tikai tās lietas, kuras varat veikt tieši programmā Excel. Ziņojuma lodziņa parādīšana nav iekļauta Excel parastajā repertuārā. (Tā ir VBA lieta.) Makro ierakstītājs ir noderīgs, taču daudzos gadījumos jums, iespējams, būs jāievada vismaz kāds kods manuāli.
Tālāk ir sniegts detalizēts piemērs, kurā parādīts, kā ierakstīt makro, kas ievieto jaunu darblapu un paslēpj visas, izņemot pirmās desmit rindas un visas, izņemot pirmās desmit kolonnas. Ja vēlaties izmēģināt šo piemēru, sāciet ar jaunu, tukšu darbgrāmatu un veiciet šīs darbības:
Aktivizējiet darblapu darbgrāmatā.
Derēs jebkura darblapa.
Noklikšķiniet uz cilnes Izstrādātājs un pārliecinieties, vai nav iezīmēta opcija Izmantot relatīvās atsauces .
Šis makro tiks ierakstīts, izmantojot absolūtās atsauces.
Izvēlieties Izstrādātājs → Kods → Ierakstīt makro vai noklikšķiniet uz ikonas blakus Gatavības indikatoram statusa joslas kreisajā galā.
Programmā Excel tiek parādīts dialoglodziņš Ierakstīt makro.
Dialoglodziņā Makro ierakstīšana piešķiriet makro nosaukumu TenByTen un nospiediet taustiņu kombināciju Shift+T, lai ievadītu īsinājumtaustiņu.
Makro var izpildīt, nospiežot Ctrl+Shift+T.
Noklikšķiniet uz Labi, lai sāktu ierakstīšanu.
Programma Excel projektā automātiski ievieto jaunu VBA moduli, kas atbilst aktīvajai darbgrāmatai. No šī brīža programma Excel pārvērš jūsu darbības VBA kodā. Ierakstīšanas laikā ikona statusa joslā kļūst par nelielu kvadrātu. Šis ir atgādinājums, ka darbojas makro ierakstītājs. Varat arī noklikšķināt uz šīs ikonas, lai apturētu makro ierakstītāju.
Pēdējās lapas cilnes labajā pusē noklikšķiniet uz ikonas Jauna lapa.
Excel ievieto jaunu darblapu.
Atlasiet visu kolonnu K (11. kolonnu) un nospiediet Ctrl+Shift+labā bultiņa; pēc tam ar peles labo pogu noklikšķiniet uz jebkuras atlasītās kolonnas un īsinājumizvēlnē izvēlieties Slēpt.
Programma Excel slēpj visas atlasītās kolonnas.
Atlasiet visu 11. rindu un nospiediet Ctrl+Shift+lejupbultiņa; pēc tam ar peles labo pogu noklikšķiniet uz jebkuras atlasītās rindas un īsinājumizvēlnē izvēlieties Slēpt.
Programma Excel slēpj visas atlasītās kolonnas.
Atlasiet šūnu A1.
Izvēlieties Izstrādātājs → Kods → Pārtraukt ierakstīšanu vai noklikšķiniet uz pogas Pārtraukt ierakstīšanu statusa joslā (mazajā kvadrātā).
Programma Excel pārstāj reģistrēt jūsu darbības.
Lai skatītu šo tikko ierakstīto makro, nospiediet Alt+F11, lai aktivizētu VBE. Logā Projekts atrodiet darbgrāmatas nosaukumu. Jūs redzat, ka projektā ir norādīts jauns modulis. Moduļa nosaukums ir atkarīgs no tā, vai, uzsākot makro ierakstīšanu, darbgrāmatā bija kādi citi moduļi. Ja to nedarījāt, modulis tiks nosaukts Module1. Varat veikt dubultklikšķi uz moduļa, lai skatītu moduļa koda logu.
Šis ir jūsu darbību ģenerētais kods:
Sub TenByTen()
'
TenByTen makro
'
Tastatūras īsinājumtaustiņš: Ctrl+Shift+T
'
Sheets.Add After:=Active Sheet
Kolonnas (“K:K”). Atlasiet
Diapazons(Atlase, Atlase.Beigas(xlToRight)).Atlasiet
Selection.EntireColumn.Hidden = True
Rindas (“11:11”). Atlasiet
Diapazons(Atlase, Atlase.Beigas(xlUz leju)).Atlasiet
Selection.EntireRow.Hidden = True
Diapazons (“A1”). Atlasiet
Beigu apakš
Lai izmēģinātu šo makro, aktivizējiet jebkuru darblapu un nospiediet 4. darbībā piešķirto īsinājumtaustiņu: Ctrl+Shift+T.
Ja makro nepiešķīrāt īsinājumtaustiņu, neuztraucieties. Tālāk ir norādīts, kā parādīt visu pieejamo makro sarakstu un palaist vajadzīgo.
Izvēlieties Izstrādātājs → Kods → Makro.
Tastatūras fani var nospiest Alt+F8. Jebkura no šīm metodēm parāda dialoglodziņu, kurā ir uzskaitīti visi pieejamie makro.
Sarakstā atlasiet makro (šajā gadījumā TenByTen).
Noklikšķiniet uz pogas Palaist.
Programma Excel izpilda makro, un jūs saņemat jaunu darblapu ar desmit redzamām rindām un desmit redzamām kolonnām.
Kamēr darbojas makro ierakstītājs, varat izpildīt neierobežotu skaitu komandu un veikt neierobežotu skaitu darbību. Excel apzinīgi pārvērš jūsu peles darbības un taustiņsitienus VBA kodā.
Un, protams, varat arī rediģēt makro pēc tā ierakstīšanas. Lai pārbaudītu savas jaunās prasmes, mēģiniet rediģēt makro tā, lai tajā tiktu ievietota darblapa ar deviņām redzamām rindām un kolonnām — lieliski piemērota Sudoku mīklai.