MS Office lietotnes ir izstrādātas ļoti labigudri, un es to nesaku tikai tāpēc, ka tie padara manu darbu bezgalīgi vieglu. Es to saku, jo tā ir patiesība. Pēc dažām dienām mēs ievietojām ziņu par YouTube videoklipu ievietošanu Office 2013 un atzīmējām, ka opcija MS Excel nebija pieejama tikai tāpēc, ka tā tur nebija vajadzīga. Šis ir intelekta veids, par kuru es runāju; zināt, kuras funkcijas ir vajadzīgas noteikta veida lietotnēs. Tas pārliecinās, ka nekas nebūtisks nepadara to par galīgo piedāvājumu. Tomēr es biju pārsteigts, ka tur, kur Excel ļauj darblapā ievietot vairāk rindu, tas neļauj atlasīt pievienojamo rindu skaitu. Lai to paveiktu, jums ir citas darba problēmas, piemēram, atlasiet pievienojamo rindu skaitu no esošajām un pēc tam izmantojat ievietošanas funkciju. Vai arī jūs varētu atkārtot rindas ievietošanas darbību tik daudz rindu, cik vēlaties. Tas atkārtojas, bet, ja esat ar mieru rezervēt piecas minūtes, šis mazais makro var rūpēties par darbu jūsu vietā.
Tā kā tas prasa makro, jums tas būs nepieciešamssaglabājiet failu kā makro iespējotu Excel failu. Lai to izdarītu, logā Saglabāt kā noklikšķiniet uz nolaižamās izvēlnes “Saglabāt kā tipu” un atlasiet “Excel Marco iespējota darbgrāmata” (* xlsm).
Pēc tam ir pienācis laiks rakstīt makro. Atveriet cilni Skats un noklikšķiniet uz Makro, lai izveidotu jaunu. Nosauciet to kā vien vēlaties un noklikšķiniet uz Izveidot. Šis logs tiks atvērts automātiski.
Šeit nozīmīgi ir “apakšdaļa” un “beigu apakšdaļa”līnijas. Apakšējā rindiņā būs makro nosaukums, savukārt beigu apakšdaļa apzīmēs komkrāsu beigas šajā makro. Tā kā jūs tikko to izveidojāt, starp šīm rindiņām nedrīkst būt nekā, piemēram, iepriekš redzamajā ekrānuzņēmumā. Starp šīm divām rindām ielīmējiet sekojošo.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Šis kods ievietos piecas rindas no augšas. Kodā tas ir apzīmēts kā A1: A5. Lai to rediģētu atbilstoši jūsu vajadzībām, jums jārediģē šis diapazons. Pirmā vērtība kalpo kā atsauce uz vietu, kur tiks ievietotas rindas. Ja mainīsit to uz A100, rindas tiks ievietotas pēc pirmajām deviņdesmit deviņām rindām. Pēc atskaites punkta iestatīšanas jums jāievada rindu skaits.
Rindu numurus nosaka šūnu diapazons A1: A5. Šajā diapazonā tiks ievietotas 5 rindas. Lai atrastu pareizo rindu diapazonu, piemēram, ja vēlaties ievietot 25 rindas no A99, atskaites punktam pievienosit 25, lai tas būtu A99 un mīnus viens šūna no tā. T. i. A100 + 99 - 1 = A198. Jūs pievienojat rindas, nevis kolonnas, tāpēc mainīsies tikai numurs, nevis kolonnas burts. Makro ir jāatjaunina katru reizi, kad ir jāieliek rindas, bet tas ir tikai mazs labojums un darbojas tiešām labi, tāpēc tas ir pavadītā laika vērts.
Makro, izmantojot Microsoft atbalstu
Komentāri