Kopiera alla områdesnamn programmässigt i Excel

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Sammanfattning

I Microsoft Office Excel kan du skapa ett Microsoft Visual Basic for Applications-makro (VBA) som du kan använda för att kopiera alla områdesnamn från den aktiva arbetsboken till en annan arbetsbok.

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa dig att förklara funktionaliteten i en viss procedur. De ändrar dock inte de här exemplen för att ge ytterligare funktioner eller skapa procedurer så att de uppfyller dina specifika krav.

Om du vill skapa och använda ett makro för att kopiera alla områdesnamn från den aktiva arbetsboken till en annan arbetsbok följer du stegen i följande exempel:

  1. Starta Excel och klicka sedan på markera cell A1 i en ny arbetsbok.

  2. Gör något av följande:

    • I Microsoft Office Excel 2007 klickar du på fliken Formler och sedan på Definiera namn i gruppen Definierade namn.
    • I Microsoft Office Excel 2003 och tidigare versioner Microsoft Excel du på Namn på Infoga-menyn och klickar sedan på Definiera.
  3. I dialogrutan Definiera namn skriver du Område1 i arbetsboken i rutan Namn i arbetsbok och klickar sedan på OK.

  4. Markera cell B1.

  5. Gör något av följande:

    • I Excel 2007 klickar du på fliken Formler och sedan på Definiera namn i gruppen Definierade namn.
    • I Excel 2003 och i tidigare versioner Excel du på Namn på Infoga-menyn och klickar sedan på Definiera.
  6. I dialogrutan Definiera namn skriver du Område2 i arbetsboken i rutan Namn i arbetsbok och klickar sedan på OK.

  7. Tryck på ALT+F11 för att Visual Basic redigeringsredigeraren.

  8. Klicka på ModulInfoga-menyn.

  9. Skriv följande kod på modulbladet:

    Sub Copy_All_Defined_Names()
       ' Loop through all of the defined names in the active
       ' workbook.
         For Each x In ActiveWorkbook.Names
          ' Add each defined name from the active workbook to
          ' the target workbook ("Book2.xls" or "Book2.xlsm").
          ' "x.value" refers to the cell references the
          ' defined name points to.
          Workbooks("Book2.xls").Names.Add Name:=x.Name, _
             RefersTo:=x.Value
       Next x
    End Sub
    
  10. Tryck på ALT+F11 för att återgå till Excel.

  11. Gör något av följande:

    • I Excel 2007 klickar du på Microsoft Office, pekar på Spara som , klickar på Excel Macro-Enabled arbetsbok och sparar sedan arbetsboken som Book1.xlsm.
    • I Excel 2003 och i tidigare versioner av Excel klickar du på Spara på Arkiv-menyn och sparar arbetsboken som Book1.xls.
  12. Gör något av följande:

    • I Excel 2007 klickar du på knappen Microsoft Office klickar på Ny, på Tom arbetsbok och sedan på Skapa.
    • I Excel 2003 klickar du på Nytt på menyn Arkiv och sedan på Tom arbetsbok i åtgärdsfönstret Ny arbetsbok.
    • I Excel 2002 och i tidigare versioner Excel du på Nytt på menyn Arkiv, klickar på Arbetsbok och sedan på OK.
  13. Gör något av följande:

    • I Excel 2007 klickar du på Microsoft Office, pekar på Spara som , klickar på Excel Macro-Enabled arbetsbok och sparar sedan arbetsboken som Book2.xlsm.
    • I Excel 2003 och i tidigare versioner av Excel klickar du på Spara som på Arkiv-menyn och sparar sedan arbetsboken som Book2.xls.
  14. Byt till Bok1.

    Anteckning

    Du kan behöva minimera eller återställa Book2 för att se knappen Bok1.

  15. Gör något av följande:

    • I Excel 2007 klickar du på fliken Utvecklare och sedan på Makron.

      Anteckning

      Om fliken Utvecklare inte visas klickar du på Microsoft Office-knappen, klickar på Excel Alternativ , klickar på Populära, markerar kryssrutan Visa fliken Utvecklare i menyfliksområdet och klickar sedan på OK.

    • I Excel 2003 och i tidigare versioner Excel du Makro på Verktyg-menyn och klickar sedan på Makron.

  16. I listan Makronamn klickar du på Copy_All_Defined_Names och sedan på Kör.

  17. Växla till Bok2 och observera att cell A1 heter Område1, och att cell B1 heter Område2.