Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre otvorenie editora jazyka Visual Basic . Kliknite na " Vložiť " menu a kliknite na " modul " pridať nový modul 
 2 
 Začnite tým , že vytvorí nový čiastkové postup a pridaním nasledujúceho kódu VBA : . 
 
 Sub sortSheetsAlphabetically ( ) 
 3 
 Vytvorte dve premenné zadaním nasledujúci kód : 
 
 Dim shtNamesArray As Variant 
 
Dim shtCntr As Long GameTwist GameTwist 4
 Definujte poľa pridaním mien listov v poradí si prajete pridať nasledujúci riadok kódu : 
 
 shtNamesArray = Array ( " aSheet " , " bSheet " , " cSheet " ) 
 
 5 
 Vytvorte slučku triediť listy v poradí stanovenom v poli pridaním nasledujúceho kódu : 
 
 shtCntr = UBound ( shtNamesArray ) Pre LBound ( shtNamesArray ) Step -1 
 . 
 listy ( shtNamesArray ( shtCntr ) ) Presunúť pred : = tabuľkami ( 1 ) 
 
 Ďalšie shtCntr 
 6 
 Dokončite postup zadaním " End Sub " . Stlačením tlačidla " F5 " , aby ho spustiť a triediť karty . 
              
Copyright © počítačové znalosti Všetky práva vyhradené