Postupy: Přesouvání listů v sešitech prostřednictvím kódu programu
Můžete programově změnit polohu vzhledem k jiné listy listy v sešitu.Pokud nezadáte umístění přesunuté list, aplikace Excel vytvoří nový sešit obsahující jej.
Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace v Excelu 2013 a v Excelu 2010. Další informace najdete v tématu Dostupné funkce podle aplikací systému Office a typů projektu.
Přesunout do listu v přizpůsobení úroveň dokument
Celkový počet listů v sešitu přiřazení proměnné a přesuňte prvního listu, takže bude poslední.
Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count Globals.Sheet1.Move(After:=Globals.ThisWorkbook.Sheets(totalSheets))int totalSheets = this.Application.ActiveWorkbook.Sheets.Count; Globals.Sheet1.Move(Globals.ThisWorkbook.Sheets[totalSheets]);
Přesunout do listu v doplňku úrovni aplikace
Celkový počet listů v sešitu přiřazení proměnné a přesuňte prvního listu, takže bude poslední.
Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count CType(Application.ActiveSheet, Excel.Worksheet).Move(After:=Application.Worksheets(totalSheets))int totalSheets = this.Application.ActiveWorkbook.Sheets.Count; ((Excel.Worksheet)Application.ActiveSheet).Move( this.Application.Worksheets[totalSheets]);
Viz také
Úkoly
Postupy: Skrývání listů prostřednictvím kódu programu
Postupy: Odstraňování listů ze sešitů prostřednictvím kódu programu
Postupy: Zamykání listů prostřednictvím kódu programu