Jak kopírovat skrytý list v aplikaci Excel?
V aplikaci Excel můžeme rychle a snadno přesunout a zkopírovat list do aktuálního nebo jiného sešitu, ale zkusili jste někdy zkopírovat skrytý list do aktivního sešitu? V tomto článku vám představím kód VBA pro kopírování konkrétního skrytého listu do aktivního souboru aplikace Excel.
Zkopírujte skrytý list do aktivního sešitu s kódem VBA
Zkopírujte skrytý list do aktivního sešitu s kódem VBA
Chcete-li zkopírovat skrytý list ze sešitu a pojmenovat jej, můžete si udělat následující kód VBA:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zkopírujte skrytý list do aktivního sešitu:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
Poznámka: Ve výše uvedeném kódu, Sheet 12 je skrytý list, který chcete zkopírovat, změňte jej podle potřeby.
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, vyskočí okno s výzvou, které vám připomene zadat název nové kopie skrytého listu, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko a skrytý list byl zkopírován s novým názvem do aktivního sešitu najednou.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
