Приложенията на MS Office са проектирани многоинтелигентно и не казвам това само защото те безкрайно улесняват работата ми. Казвам го, защото е вярно. Преди няколко дни направихме публикация за вмъкване на видеоклипове в YouTube в Office 2013 и отбелязахме, че тази опция липсва в MS Excel, просто защото не е необходима там. Това е типът интелигентност, за който говоря; знаейки кои функции са необходими в конкретен тип приложение. Уверява се, че нищо без значение не го превръща в крайното предложение. Това каза, изненадах се, че когато Excel ви позволява да вмъквате повече редове в работен лист, това не ви позволява да изберете броя редове, които искате да добавите. Имате и други задачи за постигане на това, като например да изберете броя редове, които искате да добавите от съществуващите, и след това да използвате функцията за вмъкване. Или можете да повторите стъпката за вмъкване на ред за толкова редове, колкото искате. Той е повтарящ се, но ако желаете да отделите пет минути, този малък Макрос може да се погрижи за работата вместо вас.
Тъй като това изисква макрос, ще трябва да го направитезапишете файла си като активиран файл на Excel за макрос. За целта щракнете върху падащото меню „Запазване като тип“ в прозореца за запазване и изберете „Работна книга с активирана Excel Marco (* xlsm).
След това е време да напишете Макроса. Отидете в раздела Изглед и щракнете върху Макроси, за да създадете нов. Наименувайте го каквото искате и кликнете върху „Създаване“. Следващият прозорец ще се отвори автоматично.
Тук има значение „Sub“ и „End Sub“линии. Подредокът ще съдържа името на вашия макрос, докато крайният подпис маркира края на съобщенията в този макрос. Тъй като току-що сте го създали, между тези редове не трябва да има нищо, като в екрана по-горе. Поставете следното между тези два реда.
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
Този код ще вмъкне пет реда от самия връх. Той е посочен в кода като A1: A5. За да го редактирате според вашите нужди, трябва да редактирате този диапазон. Първата стойност служи като препратка към мястото, където ще бъдат вмъкнати редовете. Ако го промените на A100, редовете ще бъдат вмъкнати след първите деветдесет и девет реда. След като зададете референтната точка, трябва да въведете броя на редовете.
Номерата на редовете се определят от обхвата на клетките A1: A5. В този диапазон ще бъдат вмъкнати 5 реда. За да намерите правилния диапазон за броя си редове, например искате да поставите 25 реда от A99, ще добавите 25 към референтната точка, така че да е A99 и минус една клетка от нея. Т.е. A100 + 99 - 1 = A198. Добавяте редове, а не колони, така че само числото ще се промени, а не буквата на колоната. Макросът трябва да се актуализира всеки път, когато трябва да вмъквате редове enmass, но това е само малка редакция и работи наистина добре, така че си заслужава отделеното време.
Макрос чрез поддръжка на Microsoft
Коментари