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

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

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

Затим, време је да напишете макро. Идите на картицу Приказ и кликните на Макрои да бисте креирали нову. Именујте га како год желите и кликните на „Креирај“. Следећи прозор ће се аутоматски отворити.

  Набавите прилагођене шаблоне који ће се појавити на почетном екрану у МС Оффице 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. Ви додајете редове, а не колоне, тако да ће се променити само број, а не слово колоне. Макро треба да се ажурира сваки пут када морате да убаците много редова, али то је само мала измена и ради заиста добро тако да је вредно утрошеног времена.

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

  Риснц водич и 11 примера да га ефикасно користите