Steg för steg: Byt namn Excel ett 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 mer data och kräver en snabb bearbetning så 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.
Hur du kör
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
Steg för makrokodning
När vi vet var cellnamnet kommer att placeras kan vi nu fortsätta med nästa steg, Makrokodning.
På fliken Utvecklare väljer du Visual Basic kodkategori, eller trycker på tangentkombinationen Alt+F11 på tangentbordet så att Visual Basic visas.
Klicka på (Arbetsbokens namn) i projektaktivitetsfönstret och 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 och återgå till Excel. Om det finns felsökning, kontrollera skriptet.
Återgå till Excel för att 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.
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.