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.

Skärmbild av rapporterna över försäljningsaktivitet per vecka.

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.).

    Skärmbild där kalkylbladsnamnen behålls i standardnamnet.

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.

  1. På fliken Utvecklare väljer du Visual Basic kodkategori, eller trycker på tangentkombinationen Alt+F11 på tangentbordet så att Visual Basic visas.

    Skärmbild för att Visual Basic i kategorin Kod på fliken Utvecklare.

  2. 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
    

    Skärmbilden visar steg för att skriva skriptet i arbetsboken Report.xlsx Försäljning.

  3. 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.

  4. Å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.

    Skärmbilden visar att namnet på varje blad har bytt namn efter 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.