Hogyan lehet másolni egy rejtett lapot az Excelben?
Az Excelben gyorsan és egyszerűen áthelyezhetünk és másolhatunk egy lapot az aktuális vagy más munkafüzetbe, de próbált-e már másolni egy rejtett lapot az aktív munkafüzetbe? Ebben a cikkben bemutatok egy VBA kódot, amely segítségével egy adott rejtett lapot másolhat aktív Excel fájlba.
Másoljon egy rejtett munkalapot VBA kóddal ellátott aktív munkafüzetbe
Másoljon egy rejtett munkalapot VBA kóddal ellátott aktív munkafüzetbe
Ha egy munkafüzetből el akar rejteni egy rejtett lapot, és nevet ad neki, akkor a következő VBA-kód kedvezhet neked:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Rejtett munkalap másolása az aktív munkafüzetbe:
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
Megjegyzések: A fenti kódban Sheet 12 az a rejtett lap, amelyet át akar másolni, kérjük, változtassa meg igénye szerint.
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy prompt doboz, amely emlékezteti Önt arra, hogy adjon nevet a rejtett munkalap új példányának, lásd a képernyőképet:
4. Ezután kattintson OK gombra, és a rejtett lapot az új munkafájl új nevével egyszerre másolta.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!