Aplicațiile MS Office sunt proiectate foarteîn mod inteligent și nu spun asta doar pentru că îmi fac munca infinit mai ușoară. O spun pentru că este adevărat. Câteva zile în urmă, am făcut o postare la inserarea videoclipurilor YouTube în Office 2013 și am observat că opțiunea lipsea în MS Excel doar pentru că nu era nevoie acolo. Acesta este tipul de inteligență despre care vorbesc; știind ce funcții sunt necesare într-un anumit tip de aplicație. Se asigură că nimic irelevant îl face în oferta finală. Acestea fiind spuse, am fost surprins să aflu că acolo unde Excel vă permite să introduceți mai multe rânduri într-o foaie de lucru, nu vă permite să selectați numărul de rânduri pe care doriți să le adăugați. Aveți alte aspecte pentru a realiza acest lucru, cum ar fi selectarea numărului de rânduri pe care doriți să le adăugați dintre cele existente și apoi utilizarea funcției de inserare. Sau puteți repeta pasul de rând de introducere pentru câte rânduri doriți. Este repetitiv, dar dacă sunteți dispus să economisiți cinci minute, acest mic Macro poate avea grijă de locul de muncă pentru dvs.
Deoarece acest lucru necesită un Macro, va trebui săsalvați fișierul dvs. ca fișier Excel activat macro. Pentru a face acest lucru, faceți clic pe meniul derulant „Salvați ca tip” în fereastra Salvează ca și selectați „Excel Marco Enabled Workbook” (* xlsm).
În continuare, este timpul să scrieți Macro. Accesați fila Vizualizare și faceți clic pe Macros pentru a crea una nouă. Denumiți orice doriți și faceți clic pe „Creați”. Următoarea fereastră se va deschide automat.
Ceea ce este relevant aici sunt „Sub” și „Final Sub”linii. Sub-linia va conține numele macro-ului dvs. în timp ce End Sub marchează sfârșitul comnads din acea Macro. Din moment ce tocmai l-ați creat, nu ar trebui să existe nimic între liniile ca în imaginea de mai sus. Lipiți următoarele între aceste două rânduri.
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
Acest cod va insera cinci rânduri chiar de sus. Acesta este menționat în cod ca A1: A5. Pentru a o modifica în funcție de nevoile dvs., trebuie să editați această gamă. Prima valoare servește ca referință la locul în care vor fi inserate rândurile. Dacă îl schimbați în A100, rândurile vor fi introduse după primele nouăzeci și nouă de rânduri. După setarea punctului de referință, trebuie să introduceți numărul de rânduri.
Numerele de rânduri sunt definite de intervalul de celule A1: A5. Acest interval va insera 5 rânduri. Pentru a găsi intervalul corect pentru numărul dvs. de rânduri, de exemplu, doriți să inserați 25 de rânduri de la A99, veți adăuga 25 la punctul de referință, astfel încât să fie A99 și minus o celulă din acesta. I.E. A100 + 99 - 1 = A198. Adăugați rânduri și nu coloane, astfel încât doar numărul se va schimba și nu litera coloanei. Macro trebuie să fie actualizat de fiecare dată când trebuie să inserați rânduri enmass, dar este doar o mică editare și funcționează foarte bine, așa că merită timpul petrecut.
Macro prin asistență Microsoft
Comentarii