Hozzon létre hivatkozási indexet a munkafüzet összes munkalapjáról
Vegyük a makrót, hogy egy lépéssel felsorolja a munkafüzet összes lapját, és hozzon létre egy hiperhivatkozott menüt a munkafüzet minden lapjához. Ez nagyszerű időmegtakarítás azok számára, akiknek sok lapja van, és manuálisan szeretne hiperhivatkozásokat létrehozni.
A makró használatához csak cserélje ki a Sheet1 szót (kétszer jelenik meg) a kódban a lap nevével, ahol szeretné az eredményeket. Győződjön meg arról, hogy nincsenek fontos információk a kimeneti lapon, mert az törli az adatokat, mielőtt írna. A makró futtatása után létrejön egy lista minden lapról, amelyhez hiperhivatkozás tartozik.
| 1234567891011121314151617181920 | Allistalapok ()Dim ws munkalapkéntDim x Mint egészx = 1Táblázatok ("Sheet1"). Tartomány ("A: A"). VilágosMinden egyes munkalaphozTáblázatok ("Sheet1"). Cellák (x, 1). Válassza kiActiveSheet.Hyperlinks.Add _Horgony: = Kiválasztás, Cím: = "", Alcím: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Következő wsEnd Sub |
