Steg för steg: Byt namn på Excel-blad med cellinnehåll genom att använda makro
Den här artikeln är skriven av Raddini Rahayu, Microsoft MVP.
Ärende
Här visas försäljningsrapporter varje vecka. I det här fallet finns det till exempel 15 personer. Nancy, admin reports, she is assigned summarizing each sales data into one file where all sales are separated on each sheet. För att det ska vara lätt att ordna data matchar varje blad som hon gett namnet försäljningsnamnet på bladet. Nancy känner sig till en början bekväm med detta, men eftersom det krävs snabb bearbetning av fler data och krav, blev hon så överväldigad. För att förbikomma detta vill Nancy att namnbladen ska ändras automatiskt enligt försäljningsnamnet på varje blad utan att byta namn på det manuellt.
Lösningar
De bästa lösningarna för att lösa Nancys problem är att använda makro. Det här makrot som utformats för varje blad i filen, oavsett antal blad. Namnet på varje blad ändras beroende på vilket försäljningsnamn som har fastställts på samma plats på varje blad.
Så här utför du
Första steget
Utforma rapportformat och ange cellplatsen där försäljningsnamnet ska placeras. I det här fallet är platsen i cell J2. Det här rapportformatet ska vara detsamma på alla blad.
Behåll bladnamnen på standardnamnet (Blad1, Blad2, Blad3 osv.).
Sista steget
Makrokodningssteg
När vi vet var cellnamnet kommer att placeras kan vi nu fortsätta med nästa steg, Makrokodning.
Välj Visual Basic i kodkategori på fliken Utvecklare eller tryck på tangentkombinationen Alt+F11 på tangentbordet så att Visual Basic-fönstret visas.
I projektuppgiftsfönstret klickar du på Försäljning Report.xlsx(Arbetsboksnamn). Välj modul på Infoga-menyn och skriv följande skript:
Sub RenameSheet() Dim rs As Worksheet For Each rs In Sheets rs.Name = rs.Range("B5") Next rs End Sub
Tryck på F5-tangenten på tangentbordet om det inte finns någon felsökning, stäng Visual Basic-fönstret och återgå till Excel. Om det finns felsökning, kontrollera skriptet.
Gå tillbaka till Excel och se vad som händer, om koderna är korrekta, har nu namnet på varje blad bytt namn enligt det befintliga försäljningsnamnet på varje blad.
resultat Det var allt. Förhoppningsvis användbart.
Ansvarsfriskrivning för information från tredje part
De produkter från andra tillverkare som diskuteras i denna artikel tillverkas oberoende av Microsoft. Produkternas funktion eller tillförlitlighet kan därför inte garanteras.