Hvordan kopieres et skjult ark i Excel?
I Excel kan vi hurtigt og nemt flytte og kopiere et ark til den aktuelle eller anden projektmappe, men har du nogensinde prøvet at kopiere et skjult ark til en aktiv projektmappe? Denne artikel vil jeg introducere en VBA-kode, så du kan kopiere et specifikt skjult ark til en aktiv Excel-fil.
Kopier et skjult regneark til en aktiv projektmappe med VBA-kode
Kopier et skjult regneark til en aktiv projektmappe med VBA-kode
For at kopiere et skjult ark fra en projektmappe og give det et navn, kan følgende VBA-kode gøre dig en tjeneste:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Kopier et skjult regneark til en aktiv projektmappe:
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
Bemærk: I ovenstående kode, Sheet 12 er det skjulte ark, du vil kopiere, skal du ændre det til dit behov.
3. Og tryk derefter på F5 nøgle til at køre denne kode, vises et promptfelt for at minde dig om at angive et navn til den nye kopi af det skjulte regneark, se skærmbillede:
4. Klik derefter på OK knap, og det skjulte ark er kopieret med det nye navn i den aktive projektmappe på én gang.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!