✅ Брзо креирајте резиме радног листа са хипервезама у Екцелу

Преглед садржаја

Много мојих колега проводи много времена у стварању збирног радног листа у Екцелу.

Типичан резиме радни лист има називе свих радних листова у различитим ћелијама и сви називи су такође хипервезани на ове радне листове.

Тако можете кликнути на ћелију са именом листа (рецимо јануар, фебруар, март … ) и одвешће вас до тог радног листа. Осим тога, на сваком радном листу постоји и хипервеза која води назад до резименог радног листа.

Иако су моје колеге постале супер ефикасне у томе, ипак је губљење времена када можете учинити исту ствар за мање од секунде (да, добро сте прочитали).

Трик је у стварању кратког макроа који ће то учинити уместо вас.

Без обзира на то колико радних листова имате, тренутно ће створити резиме радног листа са радним хипервезама.

Нешто као што је приказано испод:

Као што можете видети на горњој слици, она тренутно ствара резиме када покренете макро (кликом на дугме). Имена листова су хипервезна што вас води до радног листа када кликнете на њега.

Направите резиме радног листа са хипервезама

Све што је тешко у стварању резименог радног листа врши се кратким ВБА кодом. Потребно је само да покренете код и направите паузу јер бисте сада имали мало слободног времена 🙂

Ево кода:

Суб ЦреатеСуммари () 'Креирао Сумит Бансал из трумпекцел.цом' Овај код се може користити за креирање резименог радног листа са хипервезама Дим к Као радни лист Дим Цоунтер као Бројач целих бројева = 0 За сваки к У радним листовима Бројач = Бројач + 1 Ако је бројач = 1 Затим ГоТо Донотхинг Витх АцтивеЦелл .Валуе = к.Наме .Хиперлинкс.Адд АцтивеЦелл, "", к.Наме & "! А1", ТектТоДисплаи: = к.Наме, СцреенТип: = "Кликните овде за прелазак на радни лист" Са радним листовима (Бројач) .Ранге ("А1"). Валуе = "Назад на" & АцтивеСхеет.Наме .Хиперлинкс.Адд Схеетс (к.Наме) .Ранге ("А1"), "", _ "'" & АцтивеСхеет.Наме & "'" & "!" & АцтивеЦелл.Аддресс, _ СцреенТип: = "Повратак на" & АцтивеСхеет.Наме Крај са завршетком са АцтивеЦелл.Оффсет (1, 0). Одаберите Донотхинг: Нект к Енд Суб

Где ставити овај код?

Следите доле наведене кораке да бисте овај код поставили у радну свеску:

Идите на картицу Девелопер и кликните на Висуал Басиц. Такође можете да користите пречицу на тастатури - АЛТ Ф11.
- Ако можете пронаћи картицу програмера на траци у програму Екцел, кликните овде да бисте сазнали како да је набавите.
Требало би да постоји окно Пројецт Екплорер са леве стране (ако га нема, користите Цонтрол + Р да бисте га учинили видљивим).
Идите на Уметни и кликните на Модул. Ово додаје модул у радну свеску. Такође, на десној страни бисте видели прозор са кодом (са трепћућим курсором).
У прозору кода модула копирајте и залепите горњи код.

Покретање кода

Да бисте покренули овај код:

Идите на картицу Девелопер -> Цоде -> Мацрос. Ово ће отворити оквир за дијалог макроа.
Одаберите Сажетак стварања макроа и кликните Покрени.
Ово ће покренути макро и створити хипервезе у активном листу.

Други начин покретања макроа је уметање дугмета/облика и додељивање макроа. Да уради ово:

Уметните облик у радни лист. Обликујте облик онако како желите.
Кликните десним тастером миша на њу и изаберите Додели макро.
У пољу Додели макро изаберите макро који желите да доделите облику и кликните на дугме У реду.

Сада можете једноставно кликнути на облик да бисте покренули макро.

Преузмите датотеку одавде

Белешка:

Строго сам кодирао ћелију А1 на сваком листу, која има хипервезе да бисте се вратили на резиме. Обавезно га промените ако на сваком листу имате нешто већ у А1 ћелији.
Резиме не ствара хипервезу за себе (што има смисла јер сте већ на том листу).
Покрените овај код када је радни лист са резимеом активни.
Можда ћете желети да додате обликовање или преуређивање. Али надам се да ће се овај код побринути за тежи део.
Сачувајте ову радну свеску као .клс или .клсм екстензију јер садржи макро.

Остали Екцел ВБА водичи: