✅ Come creare e visualizzare un grafico in una cella

Sommario

Questo è un semplice tutorial su come creare e visualizzare un grafico a barre in una cella; una tecnica che funziona molto bene durante la creazione di report di gestione.

Passaggi:

1. Nella colonna A inserisci i valori che desideri visualizzare, ad esempio nella cella A1 inserisci il valore 10, nella cella A2 20 ecc.

2. Nella colonna B1 inserire la seguente formula: =REPT ("n", A1). Questa formula dice semplicemente a Excel di ripetere il valore memorizzato tra " " dal numero nella cella A1.

3. Cambia il carattere in "Wingdings".

4. Fare riferimento all'esempio 1 nel file Excel allegato.

5. Se desideri ridurre la lunghezza del grafico a barre, dividi semplicemente "A1" nella formula sopra per 10 o per qualsiasi numero abbia più senso. A titolo di esempio, la formula sarebbe simile a questa =REPT ("n",A1/10). Vedi esempio 2 nel file Excel allegato.

Da notare che modificando la “n” nella formula sopra citata si possono visualizzare immagini diverse. Ad esempio, la "J" maiuscola mostrerà una faccia sorridente mentre una "L" maiuscola mostrerà una faccia triste. Vedi esempio 3 nel file Excel allegato.

Trattare con i valori negativi

Le formule precedenti funzionano bene quando hai a che fare con valori positivi. Tuttavia, se il valore della colonna A è negativo, il grafico della colonna B si trasformerà in una stringa composta da più simboli diversi, perdendo così l'effetto desiderato (vedi esempio 4 nel foglio di calcolo allegato).

Un modo per superare questa limitazione è tramite un'istruzione IF come:

=SE(A21<0,REPT(“n”,ABS(A21/10)),REPT(“n”,A21/10))

Spiegazione della formula precedente:

1. Supponiamo che il valore che stai cercando di mostrare in un grafico a barre si trovi nella cella A21. Anche questo valore è negativo.

2. La formula inizia dicendo se il valore in A21 è inferiore a 0 cioè negativo, quindi ripeti "n" per il valore assoluto (ABS) contenuto nella cella A21 e quindi dividi questo numero per 10. Usando il valore assoluto sei dire a Excel di ignorare il segno negativo e trattare il numero come un valore positivo.

3. La parte successiva della formula dice a Excel cosa fare se il valore è maggiore di 0.

4. Fare riferimento all'esempio 4 nel file allegato.

Interessanti aggiunte a quanto sopra sarebbero utilizzare la formattazione condizionale per cambiare il colore del grafico per dire rosso per valori negativi e blu per valori positivi. Lascia che la tua immaginazione ti guidi!

Il seguente tutorial descriverà come creare un grafico in una cella come quella visualizzata nella tabella sopra nella colonna "Trend".

Il grafico viene creato utilizzando una funzione chiamata "CellChart". La inseriresti in Excel come qualsiasi altra funzione standard, ad esempio SOMMA, MEDIA o CERCA.VERT, ecc. Questa funzione è chiamata "Funzione definita dall'utente" e non è una funzione standard disponibile in Microsoft Excel. Deve essere creato dall'utente utilizzando VBA.

Quando viene inserita in Excel, la funzione CellChart si presenta così:

Dando un'occhiata più da vicino alla funzione CellChart, l'intervallo per il grafico è definito nella prima parte della funzione, C3:F3 nell'esempio sopra. Successivamente viene definito il colore del grafico, 203 utilizzando l'esempio sopra.

Ora per le cose VBA

1. Accedere alla finestra del progetto VBA facendo clic con il pulsante destro del mouse sul nome di un foglio e selezionando "Visualizza codice" o selezionando "ALT, F11".

2. Sul lato destro, fai clic con il pulsante destro del mouse sul nome del tuo progetto e seleziona il riquadro "modulo".

3. Copia e incolla il seguente codice nel nuovo modulo appena creato:

'Crea una nuova funzione chiamata Cell Chart Function CellChart(Plots As Range, Color As Long) As String 'Definisce le variabili che verranno usate in seguito nel codice Const cMargin = 2 Dim rng As Range, arr() As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'Il seguente calcola i grafici da utilizzare per il grafico Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Se j = 0 Allora j = i ElseIf Plots(, j) > Plots(, i) Allora j = i End If If k = 0 Then k = i ElseIf Plots(, k) 
 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete(rngSelect As Range) 'Definisce le variabili che verranno utilizzate in seguito nel codice Dim rng As Range, shp As Shape, blnDelete As Boolean Per ogni shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect) Se non rng è niente allora .Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Fare clic sul pulsante Salva.

5. Fare clic sulla piccola icona di Excel in alto a destra sotto il menu "File" per uscire dalla finestra del progetto VBA e tornare a Excel