Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Excel a otvorte zošit .
2
Stlačte tlačidlo " Alt + F8 " sa otvorí okno Makrá . Typ " GetSheetNames " v " makro " Názov poľa a potom kliknite na " Vytvoriť " .
3
Zadajte nasledujúci kód do editora VBA .
Sub GetSheetNames ( )
Dim wSheet Ako listu
pre každú wSheet v listoch
On Error Resume Next
ActiveCell.Value = wSheet.Name
ActiveCell.Offset ( 1 , 0 ) . Vyberte
Ďalšie wSheet
End Sub
4
Zatvorte editor VBA vrátiť do svojho zošita .
5
Označte bunku v tabuľke .
7
Stlačte tlačidlo " Alt stlačte " Alt + I " a potom " C " na vytvorenie prázdneho stĺpca .
6
Kliknite na prvej prázdnej bunky v novom stĺpci . + F8 " sa otvorí okno Makrá znova . Vyberte " GetSheetNames " a potom kliknite na " Run " .
Copyright © počítačové znalosti Všetky práva vyhradené