Casa Social media Creazione di un rapporto nome con codice VBA - manichini

Creazione di un rapporto nome con codice VBA - manichini

Sommario:

Video: Office 365 - Excel - Tutorial 62 - Creare Macro in VBA e pulsante 2025

Video: Office 365 - Excel - Tutorial 62 - Creare Macro in VBA e pulsante 2025
Anonim

Se nella cartella di lavoro si utilizzano molte celle e intervalli denominati, è possibile che si sorprenda scoprire che Excel non consente di elencare i dettagli per ciascun nome. Le informazioni utili vengono visualizzate nella finestra di dialogo Gestione nomi, ma non c'è modo di visualizzare queste informazioni in un modo che può essere stampato.

Il codice VBA qui offerto genera un rapporto utile che descrive i nomi definiti in qualsiasi cartella di lavoro.

Esempio Name Report

Qui, si vede un esempio di un Name Report.

Il report, che viene creato su un nuovo foglio di lavoro, include le seguenti informazioni per ciascun nome:

  • Nome: Il nome.

  • Riferito a: La definizione del nome. Di solito, questa sarà una cella o un intervallo, ma un nome può anche definire una formula.

  • Celle: Il numero di celle contenute nell'intervallo denominato. Per le formule denominate, questo campo visualizza # N / D.

  • Ambito: L'ambito del nome: la cartella di lavoro o il nome del foglio di lavoro specifico su cui il nome è valido.

  • Nascosto: Vero se il nome è nascosto. I nomi nascosti vengono creati da alcuni componenti aggiuntivi (come il Risolutore) e non appaiono nella finestra di dialogo Gestione nomi.

  • Errore: Vero se il nome contiene un riferimento errato.

  • Link: Un collegamento ipertestuale che, quando si fa clic, attiva l'intervallo denominato. Solo i nomi che fanno riferimento a celle o intervalli includono un collegamento.

  • Commento: Il commento per il nome, se presente.

Il codice VBA

Per utilizzare questo codice, premere Alt + F11 per attivare Visual Basic Editor. Quindi selezionare Inserisci → Modulo per inserire un nuovo modulo VBA. Copia il codice e incollalo nel nuovo modulo.

Sub GenerateNameReport () 'Genera un report per tutti i nomi nella cartella di lavoro' (Non include nomi tabella) Dim n Come nome Dim Row As Long Dim CellCount As Variant 'Esci se non ci sono nomi Se ActiveWorkbook. Nomi. Count = 0 Then MsgBox "La cartella di lavoro attiva non ha nomi definiti. "Exit Sub End If" Esci se la cartella di lavoro è protetta Se ActiveWorkbook. ProtectStructure Then MsgBox "Non è possibile aggiungere un nuovo foglio perché la cartella di lavoro è protetta. "Exit Sub End If" Inserisci un nuovo foglio per il report ActiveWorkbook. Fogli di lavoro. Aggiungi ActiveSheet. Sposta dopo: = Fogli (ActiveWorkbook. Fogli. Conta) ActiveWindow. DisplayGridlines = False 'Aggiungi prima riga del titolo Intervallo ("A1: H1"). Unisci con intervallo ("A1"). Valore = "Nome Segnala per:" e ActiveWorkbook. Nome. Font. Dimensione = 14. Font. Grassetto = Vero. HorizontalAlignment = xlCenter End Con 'Aggiungi una seconda riga del titolo Range ("A2: H2"). Unisci con intervallo ("A2"). Valore = "Generato" e ora. HorizontalAlignment = xlCenter End Con 'Add the header range ("A4: H4") = Array ("Nome", "RefersTo", "Celle", _ "Ambito", "Nascosto", "Errore", "Link", " Commento ")" Passa attraverso i nomi Row = 4 On Error Riprendi Next For Each n In ActiveWorkbook.Names Row = Row + 1 'Column A: Name If n. Nome come "*! * "Then Cells (Row, 1) = Split (n. Name,"! ") (1) 'Remove sheet name Else Cells (Row, 1) = n. Nome Fine Se "Colonna B: RefersTo Cells (Row, 2) =" '"& n. RefersTo 'Column C: Number of cells CellCount = CVErr (xlErrNA)' Valore restituito per la formula denominata CellCount = n. RefersToRange. CountLarge Cells (Row, 3) = CellCount 'Column D: Scope If n. Nome come "*! * "Then Cells (Row, 4) = Split (n. Nome,"! ") (0) 'nome del foglio di estrazione Celle (Riga, 4) = Sostituisci (Celle (Riga, 4),"' "," ") 'remove apostrophes Else Cells (Row, 4) = "Cartella di lavoro" End If "Colonna E: stato nascosto Celle (Riga, 5) = Non n. 'Colonna F visibile: Nome errore Celle (Riga, 6) = n. Riferisce come "* [#] REF! * "'Colonna G: collegamento ipertestuale se non applicazione. IsNA (celle (riga, 3)) quindi ActiveSheet. Collegamenti ipertestuali. Aggiungi _ Ancora: = Celle (Riga, 7), _ Indirizzo: = "", _ Sottoindirizzo: = n. Nome, _ TextToDisplay: = n. Nome End If 'Column H: Comment Cells (Row, 8) = n. Commenta Avanti 'Converti in una tabella ActiveSheet. ListObjects. Aggiungi _ SourceType: = xlSrcRange, _ Source: = Range ("A4"). CurrentRegion 'Regola le colonne delle colonne delle colonne ("A: H"). Colonna intera. AutoFit End Sub

Generazione di un report

Eseguire la procedura GenerateNameReport e il report viene generato in un nuovo foglio di lavoro nella cartella di lavoro attiva. Il codice non deve essere nella cartella di lavoro che contiene i nomi per il report.

Se ritieni che questo codice sia utile, puoi memorizzarlo nella tua cartella di lavoro macro personale o creare un componente aggiuntivo.

Creazione di un rapporto nome con codice VBA - manichini

Scelta dell'editore

Vantaggi di base della rete - manichini

Vantaggi di base della rete - manichini

Se la verità viene detta, le reti di computer sono un problema da impostare. Perché i vantaggi di avere una rete rendono la pena di crearne uno utile. Non è necessario essere un dottorato di ricerca per comprendere i vantaggi del networking. Le reti riguardano esclusivamente la condivisione. Nello specifico, le reti riguardano la condivisione di tre elementi: informazioni, risorse, ...

Biometria L'accettazione, la privacy e la legge - manichini

Biometria L'accettazione, la privacy e la legge - manichini

La tecnologia biometrica non è affatto universalmente accettata da tutti gli utenti. Ci sono una serie di considerazioni sociali e legali che danno ad ogni organizzazione una pausa prima di fare il salto a capofitto nell'implementazione di un sistema biometrico. Le persone sono più a loro agio con i sistemi di raccolta biometrici che sono i meno intrusivi. Scanner per retina e nasi elettronici sono ...

Biometria Nozioni di base - manichini

Biometria Nozioni di base - manichini

La biometria non è roba da fantascienza. Puoi trovare una dozzina di modi più o meno efficaci per utilizzare la biometria per identificare qualcuno, ognuno dei quali si divide in due classi: la biometria fisiologica misura una parte specifica della struttura o della forma di una porzione del corpo di un soggetto. La biometria comportamentale è più interessata a come ...

Scelta dell'editore

Come creare un nuovo dizionario personalizzato in Excel 2007 - dummies

Come creare un nuovo dizionario personalizzato in Excel 2007 - dummies

In Excel 2007, è possibile creare dizionari personalizzati da utilizzare quando si esegue il controllo ortografico dei fogli di lavoro. Utilizzare il pulsante Aggiungi al dizionario nella finestra di dialogo Controllo ortografico per aggiungere parole sconosciute a un dizionario personalizzato. Per impostazione predefinita, Excel aggiunge queste parole a un file dizionario personalizzato denominato CUSTOM. DIC, ma è possibile creare una nuova personalizzazione ...

Come creare un componente aggiuntivo da un file di cartella di lavoro Excel Excel normale in VBA - modi di dire

Come creare un componente aggiuntivo da un file di cartella di lavoro Excel Excel normale in VBA - modi di dire

Sebbene sia possibile convertire qualsiasi cartella di lavoro di Excel in un componente aggiuntivo, non tutte le cartelle di lavoro traggono vantaggio da questa conversione. Una cartella di lavoro senza macro rende un componente aggiuntivo inutile. In effetti, gli unici tipi di cartelle di lavoro che traggono vantaggio dall'essere convertiti in un componente aggiuntivo sono quelli con macro. Ad esempio, una cartella di lavoro costituita da macro generiche (Sub ...

Come creare una nuova cartella di lavoro in Excel 2010 - dummy

Come creare una nuova cartella di lavoro in Excel 2010 - dummy

Se si lavora in Microsoft Excel 2010 e vuoi iniziare a lavorare in un nuovo file di cartella di lavoro di Excel, puoi facilmente creare una nuova cartella di lavoro. Per fare ciò, puoi usare un comando nella scheda File o una scorciatoia da tastiera. Fare clic sulla scheda File. Excel visualizza la visualizzazione Backstage, in cui è possibile accedere ai comandi relativi ai file. ...

Scelta dell'editore

Usa lo strumento Gomma in Adobe Illustrator CS5 - manichini

Usa lo strumento Gomma in Adobe Illustrator CS5 - manichini

Adobe Illustrator Creative Suite 5 (Adobe CS5) Illustrator è utilizzato per rimuovere rapidamente aree di grafica con la stessa facilità con cui si cancellano i pixel in Photoshop, accarezzando con il mouse su qualsiasi forma o gruppo di forme. Facendo doppio clic sullo strumento Gomma, è possibile definire il diametro, l'angolo e la rotondità della gomma. Se stai usando un ...

Trasforma gli strumenti in Adobe Illustrator CS5 - dummies

Trasforma gli strumenti in Adobe Illustrator CS5 - dummies

I più popolari strumenti di trasformazione in Adobe Creative Suite 5 (Adobe CS5) Illustrator - Rifletti, scala, inclina, rimodella e Trasformazione libera: sono facili da usare e modificano rapidamente la tua illustrazione. Lo strumento Rifletti Niente è simmetrico, giusto? Forse no, ma gli oggetti non creati simmetricamente in Illustrator possono sembrare off-kilter. Utilizzando lo strumento Rifletti, si ...

Quando utilizzare Adobe CS5 Illustrator - dummies

Quando utilizzare Adobe CS5 Illustrator - dummies

Utilizzando Adobe Creative Suite 5 (Adobe CS5) Illustrator anziché Photoshop , ottieni diversi benefici. Potresti aver sentito che Illustrator è migliore per la grafica vettoriale, ma perché e che altro porta? Illustrator può salvare ed esportare immagini nella maggior parte dei formati di file. Scegliendo di salvare o esportare, è possibile creare un ...