Създайте индекс на хипервръзка за всички работни листове в работна книга
Нека вземем макроса, за да изброим всички листове в работна книга една стъпка по -нататък и да създадем меню с хипервръзка за всеки лист в работна книга. Това е чудесно спестяване на време за някой, който има много листове и се опитва ръчно да направи меню с хипервръзки към всеки от тях.
За да използвате макроса, просто заменете думата Sheet1 (тя се появява два пъти) в кода с името на раздела, където искате резултатите. Уверете се, че в раздела за извеждане няма важна информация, защото тя изчиства данните им, преди да им пише. След изпълнението на макроса се създава списък на всеки лист с хипервръзка към всеки лист.
| 1234567891011121314151617181920 | Подсписки Листове ()Затъмнете като работен листDim x като цяло числоx = 1Листове ("Sheet1"). Диапазон ("A: A"). ИзчистетеЗа всеки ws в работни листовеЛистове ("Лист1"). Клетки (x, 1) .ИзберетеActiveSheet.Hyperlinks.Add _Котва: = Избор, Адрес: = "", Под Адрес: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Следващата wsEnd Sub |
