✅ Бързо създаване на обобщен работен лист с хипервръзки в Excel

Съдържание

Много от моите колеги прекарват много от времето си в създаването на обобщен работен лист в Excel.

Типичен обобщен работен лист има имената на всички работни листове в различни клетки и всички имена също хипервръзки към тези работни листове.

Така че можете да кликнете върху клетка с име на лист (да речем Ян, Февруари, Март … ) и той ще ви отведе до този работен лист. Освен това на всеки работен лист има и хипервръзка, която връзва обратно към обобщения работен лист.

Докато колегите ми станаха супер ефективни в това, все още е загуба на време, когато можете да направите същото за по -малко от секунда (да, прочетохте го правилно).

Номерът е да създадете кратък макрос, който да го направи вместо вас.

Без значение колко работни листа имате, той незабавно ще създаде обобщен работен лист с работещи хипервръзки.

Нещо, както е показано по -долу:

Както можете да видите на изображението по -горе, той незабавно създава обобщението, когато стартирате макроса (като щракнете върху бутона). Имената на листа са хипервръзки, което ще ви отведе до работния лист, когато щракнете върху него.

Създайте обобщен работен лист с хипервръзки

Цялата работа при създаването на обобщен работен лист се извършва с кратък VBA код. Просто трябва да стартирате кода и да си вземете почивка, тъй като сега бихте имали малко свободно време 🙂

Ето кода:

Sub CreateSummary () „Създадено от Sumit Bansal на trumpexcel.com“ Този код може да се използва за създаване на обобщен работен лист с хипервръзки Dim x As Worksheet Dim Counter As Integer Counter = 0 За всеки x В Worksheets Counter = Counter + 1 If Counter = 1 След това GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Щракнете тук, за да отидете на работния лист" С работни листове (Counter) .Range ("A1"). Value = "Назад към" & ActiveSheet.Name. Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Връщане към" & ActiveSheet.Name Край с край с ActiveCell.Offset (1, 0). Изберете Donothing: Next x End Sub

Къде да поставите този код?

Следвайте стъпките по -долу, за да поставите този код в работната книга:

Отидете в раздела Developer и кликнете върху Visual Basic. Можете също да използвате клавишната комбинация - ALT F11.
- Ако можете да намерите раздела за програмисти на лентата в Excel, щракнете тук, за да знаете как да го получите.
Вляво трябва да има прозорец на Project Explorer (ако не е там, използвайте Control + R, за да стане видим).
Отидете на Вмъкване и щракнете върху Модул. Това добавя модул към работната книга. Също така вдясно ще видите прозореца с код (с мигащ курсор).
В прозореца с код на модула копирайте и поставете горния код.

Изпълнение на кода

За да стартирате този код:

Отидете на Раздел за програмисти -> Код -> Макроси. Това ще отвори диалоговия прозорец за макроси.
Изберете Резюме за създаване на макрос и щракнете върху Изпълни.
Това ще стартира макроса и ще създаде хипервръзки в активния лист.

Друг начин за стартиране на макроса е да вмъкнете бутон/форма и да му присвоите макроса. Да го направя:

Вмъкнете фигура в работния лист. Форматирайте формата така, както искате.
Щракнете с десния бутон върху него и изберете Присвояване на макрос.
В полето Присвояване на макрос изберете макроса, който искате да присвоите на фигурата, и щракнете върху OK.

Сега можете просто да кликнете върху формата, за да стартирате макроса.

Изтеглете файла от тук

Забележка:

Кодирах твърдо клетката А1 във всеки лист, която е с хипервръзка, за да ви върна към обобщения лист. Уверете се, че го променяте съответно, ако имате нещо вече в клетка A1 във всеки лист.
Резюмето не създава хипервръзка за себе си (което има смисъл, тъй като вече сте на този лист).
Изпълнете този код, когато обобщеният работен лист е активният работен лист.
Може да искате да добавите форматиране или пренареждане. Но се надявам този код да се погрижи за трудната част.
Запазете тази работна книга като .xls или .xlsm разширение, тъй като съдържа макрос.

Други уроци по Excel VBA:

Вземете множество стойности за търсене без повторение в една клетка.
Матрица за приоритизиране на задачи - приложение VBA.
Как да комбинирате няколко работни книги в една работна книга на Excel.
Цикли на Excel VBA - За следващо, Направете докато, Направете до, За всеки (с примери).
Как да запишете макрос в - Ръководство стъпка по стъпка.
Как бързо да премахнете хипервръзки от работен лист в Excel.
Онлайн курс VBA на Excel.