- - Уметните прилагођени број редака у Екцел с овим једноставним макроом

Уметните прилагођени број редака у Екцел с овим једноставним макроом

МС Оффице апликације су дизајниране врло доброинтелигентно и не кажем то само зато што ми бескрајно олакшавају рад. Кажем то јер је истина. Пре неколико дана објавили смо пост о уметању ИоуТубе видео снимака у Оффице 2013 и приметили смо да опција није постојала у МС Екцел-у само зато што јој тамо није била потребна. О овој врсти интелигенције говорим; знајући које су функције потребне за одређену врсту апликације. Свакако осигурава да ништа небитно не постане коначна понуда. У том смислу, био сам изненађен када сам открио да тамо где вам Екцел омогућава да убаците више редова у радни лист, то вам не омогућава да одаберете број редова које желите да додате. За ово имате и друга радна окружења, попут одабира броја редова које желите да додате из постојећих и затим помоћу функције уметања. Или можете поновити корак уметања реда за онолико редака колико желите. Понавља се, али ако сте вољни издвојити пет минута, овај мали Макро може да се побрине за посао уместо вас.

Пошто је за то потребан макро, мораћетесачувајте датотеку као Екцел датотеку која подржава макро. Да бисте то учинили, кликните на падајући мени „Сачувај као тип“ у прозору за чување као и изаберите „Радна књига омогућена за Екцел Марцо (* клсм).

Затим је време за писање макроа. Идите на картицу Виев и кликните на Макронаредбе да бисте створили нову. Дајте му име по жељи и кликните „Креирај“. Следећи прозор ће се аутоматски отворити.

мацро_екцел

Овде су релевантни „Суб“ и „Енд Суб“линије. Под ред ће садржавати име макронаредбе, док крајњи потка означава крај обједињених у том макронаредби. Пошто сте га управо створили, између тих линија не би требало бити ничега као на горњој слици. Залепите следеће између ове две линије.

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

Овај код ће уметнути пет редова од самог врха. У коду се наводи као А1: А5. Да бисте га уредили према вашим потребама, морате да уредите овај опсег. Прва вредност служи као референца на то где ће бити уметнути редови. Ако је промените у А100, редови ће бити убачени након првих деведесет и девет редака. Након постављања референтне тачке, требате унијети број редова.

Бројеви редова су дефинисани распоном ћелија А1: А5. Овај распон ће убацити 5 редова. Да бисте пронашли тачан распон за свој број редова, на пример, желите да уметнете 25 редова од А99, додаћете 25 у референтну тачку тако да је А99 и минус једна ћелија од ње. И.е. А100 + 99 - 1 = А198. Додајете редове, а не ступце, тако да ће се мењати само број, а не и слово. Макро треба да се ажурира сваки пут када морате да убаците реми, али то је само мала измена и заиста добро функционише, тако да вреди потрошити време.

Макро путем Мицрософтове подршке

Коментари