Када дистрибуирате своје Екцел извештаје својим клијентима, често је лепо додати неколико звона и звиждаљки. Једно од лакших побољшања за примену је могућност сортирања када се двапут кликне на заглавље колоне. Иако ово може звучати компликовано, са овим макроом је релативно лако.
Можете преузети радни пример ове технике двоструког клика у програму Екцел .
Како функционише макро
У овом макроу прво ћете пронаћи последњи непразан ред. Затим користите тај број реда да дефинишете циљни опсег редова које треба да сортирате. Користећи метод Сорт, ви сортирате циљне редове према колони на коју сте двапут кликнули.
Приватни под радни лист_БефореДоублеЦлицк(БиВал Таргет Ас Ранге, Цанцел Ас Боолеан)
'Корак 1: Декларисајте своје варијабле
Дим ЛастРов Ас Лонг
„Корак 2: Пронађите последњи непразан ред
Последњи ред = ћелије(редова.број, 1).Крај(клУп).Ред
„Корак 3: Сортирајте узлазно на колони на коју сте кликнули двапут
Ровс("6:" & ЛастРов).Сортирај _
Кеи1:=Ћелије(6, АцтивеЦелл.Цолумн), _
Ордер1:=клАсцендинг
Енд Суб
У кораку 1, декларисате променљиву Лонг Интегер под називом ЛастРов да задржи број реда последњег непразног реда.
У кораку 2, ухватите последњи непразан ред тако што ћете почети од последњег реда на радном листу и користећи својство Енд да скочите на прву непразну ћелију (еквивалентно одласку на ћелију А1048576 и притискању Цтрл+Схифт+стрелица нагоре).
Имајте на уму да морате да промените број колоне у овој ћелији у онај који је прикладан за ваш скуп података. На пример, ако ваша табела почиње од колоне Ј, потребно је да промените исказ у кораку 2 у Ћелије(Ровс.Цоунт, 10).Енд(клУп).Ров јер је колона Ј 10. колона на радном листу.
У кораку 3 дефинишете укупан опсег редова за своје податке. Имајте на уму да опсег редова мора да почиње првим редом података (без заглавља) и да се завршава последњим непразним редом. У овом случају, ваш скуп података почиње у реду 6, тако да користите метод Сорт на редовима(“6:” & ЛастРов).
Аргумент Кеи говори Екцел-у по ком опсегу да сортира. Опет, желећете да будете сигурни да опсег који користите почиње са првим редом података (искључујући заглавља).
Како користити макро
Да бисте применили овај макро, потребно је да га копирате и налепите у прозор кода догађаја Ворксхеет_БефореДоублеЦлицк. Постављање макроа овде омогућава да се покрене сваки пут када двапут кликнете на лист:
Активирајте Висуал Басиц Едитор притиском на АЛТ+Ф11.
У прозору пројекта пронађите име пројекта/радне свеске и кликните на знак плус поред њега да бисте видели све листове.
Кликните на лист са којег желите да покренете код.
У падајућем оквиру Догађај изаберите догађај БефореДоублеЦлицк.
Унесите или налепите код.