Come copiare Nome Ranges in Excel 2003 a un'altra cartella di lavoro

Macro sono piccole applicazioni che eseguono un compito specifico . In Microsoft Excel , vi è una macro che copia tutti i nomi di intervallo da una cartella e incollarli in un altro . La creazione di questo macro tirerà i nomi di intervallo e incollare in modo automatico . Istruzioni
1

Aprire la cartella di lavoro che verranno copiando i nomi di intervallo da . Se non hai già il set di nomi , definire i nomi di intervallo . Per fare ciò , fare clic sul menu "Inserisci" , selezionare "Nome" e poi scegli "Definisci " dalla lista . Trova i nomi nella casella cartella di lavoro .
2

Individuare il nome della seconda cartella di lavoro . Assicurarsi che la cartella di lavoro viene salvata come una cartella di lavoro con attivazione macro . L'estensione del file deve essere. Xlsm o . LSM .
3

tenere premuti i tasti "F11 ", "Alt" e . Il Visual Basic Editor si aprirà . Fare clic su "Modulo " nel menu "Inserisci" . La finestra del modulo a comparsa.
4

Digitare il seguente codice nella finestra . Cambiare il riferimento a book2.lsm o Book2.xls al nome del libro che si sta incollando troppo .

Copy_All_Defined_Names sub ()

' il ciclo di tutti i nomi definiti in attivo

' cartella di lavoro.

per ogni x in ActiveWorkbook.Names

' Aggiungi ciascun nome definito dalla cartella di lavoro attivo a

' la cartella di lavoro di destinazione ( " Cartella2 . xls "o" Book2.xlsm " ) .

' " x.Value "si riferisce ai riferimenti di cella il

' punti nome definito a .

Workbooks ( " . Book2.xls " ) Nome Names.Add : = x.Name , _

refersto : = x.Value

Prossimo x