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é