Satura rādītājs
Izveidot visu darbgrāmatas darblapu hipersaites indeksu
Pieņemsim makro, lai uzskaitītu visas darbgrāmatas lapas vēl vienu soli tālāk un katrai darbgrāmatas lapai izveidotu hipersaites izvēlni. Tas ir lielisks laika ietaupījums tiem, kam ir daudz lapu un kuri mēģina manuāli izveidot hipersaites izvēlni.
Lai izmantotu makro, vienkārši nomainiet vārdu Sheet1 (tas parādās divreiz) kodā ar cilnes nosaukumu, kurā vēlaties iegūt rezultātus. Pārliecinieties, vai izvades cilnē nav svarīgas informācijas, jo tā pirms rakstīšanas tajā notīra datus. Pēc makro izpildes tiek izveidots katras lapas saraksts ar hipersaiti uz katru lapu.
1234567891011121314151617181920 | Apakšsaraksta lapas ()Dim ws kā darblapaDim x kā vesels skaitlisx = 1Izklājlapas ("1. lapa"). Diapazons ("A: A"). SkaidrsPar katru ws darblapāsIzklājlapas ("1. lapa"). Šūnas (x, 1). AtlasietActiveSheet.Hipersaites.Add _Enkurs: = Atlase, Adrese: = "", Apakšadrese: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Nākamais wsBeigu apakš |