Domanda Grafici ad anello

[luis89]

Salve a tutti vorrei chiedervi una mano su u a creazione di un grafico ad anello.

vorrei creare un grafico ad anello suddiviso in 12 quadratini i (Ogni quadratino è un mese ) io vorrei che i 12 quadratini sono di colore grigio poi quando si arriva al mese di riferimento diventi verde. Esempio adesso stiamo ad ottobre sono colorati 10 verdi e due grigi. Ci sono metodi senza usare vba per creare questo tipo di grafico ? Qualcuno mi può aiutare?

 

[alfrimpa]

Prima di proseguire devi integrare la tua presentazione; quella fatta non è conforme al regolamento.

 

[alfrimpa]

Ok per la presentazione.

I grafici sono basati su dati quindi tu hai una tabella dei 12 mesi e dati numerici per ciascuno di essi?

Se non hai dati un grafico non si può fare.

Quello che si può fare è cercare di costruire una corona circolare con 12 forme da colorare ma per farlo occorre il VBA senza non si può fare.

Cerchiamo di capire cosa realmente ti serve

Prova ad allegare un file con la corona già costruita.

 

[luis89]

Non ho creato ancora nulla, ho cercato un po su internet qualche spunto per creare il grafico. tutto quello che ho creato
E semplicemente i 12 quadratini con il grafico inserendo nella.serie 1; per 12 volte dando così una grandezza uguale.

 

[alfrimpa]

Ma tu parli di grafico ma un grafico senza dati non è un grafico.

Comunque allega quello che hai creato.

Un anello non è composto da quadrati ma da sezioni circolari.

 

[luis89]

Questo è iil grafico

 

[Marius44]

Salve a tutti
Come bene ha detto @alfrimpa (ciao Alfredo) ci vuole VBA ma anche altre cosine.
a) disponi le colonne come da immagine

b) inserisci due FC relative a D2:D13 come segue:
=MESE(OGGI())=$C2 ed imposta il colore verde; =MESE(OGGI())<>$C2 ed imposta il colore grigio.
c) inserisci in un Modulo il seguente codice:

Option Explicit

Sub ColorsByFC()
Dim vAddress As Range, i As Long
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.SeriesCollection(1)
  Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
  For i = 1 To vAddress.Cells.Count
    .Points(i).Format.Fill.ForeColor.RGB = Cells(i + 1, 4).DisplayFormat.Interior.Color
  Next i
End With
Cells(1, 1).Select
End Sub

Assegna il codice ad un pulsante.
Ciao,
Mario

 

[Terio]

Un saluto a @Marius44 che mi ha preceduto, sempre con VBA e senza modifiche al file, puoi usare anche questo codice:

Sub ColoraMese()
Dim lngM As Long

    With Worksheets("Versione automatica").ChartObjects(1).Chart.FullSeriesCollection(1)
        For lngM = 1 To 12
            With .Points(lngM).Format.Fill.ForeColor
                If lngM <= Month(Now()) Then
                    .RGB = RGB(0, 176, 80)
                Else
                    .RGB = RGB(200, 200, 200)
                End If
            End With
        Next lngM
    End With
  
End Sub

Se la versione che usi è la 365 (correggi la 2025 che dichiari perché non esiste), in A2, dopo aver cancellato tutto, puoi usare:
A2
=LET(s;SEQUENZA(12);STACK.ORIZ(MAIUSC.INIZ(TESTO("1/"&s;"mmmm"));--(s>0)))

Ciao.

 

[alfrimpa]

Esempio adesso stiamo ad ottobre sono colorati 10 verdi e due grigi.

@Terio la richiesta è quella sopra; il codice colora di verde solo una sezione non 10

 

[Terio]

il codice colora di verde solo una sezione non 10

Hai ragione, ho corretto il refuso in riga 7.

Grazie della segnalazione che interessa anche la soluzione di @Marius44 (ciao).

 

[alfrimpa]

che interessa anche la soluzione di @Marius44

Aver compagno al duol scema la pena?

 

[Terio]

Aver compagno al duol scema la pena?

No, semplicemente hai individuato correttamente una differente comprensione della richiesta comune ad entrambi ed ho trovato utile segnalarlo.

 

[Marius44]

Salve ragazzi
Anch'io avevo mal intepretato la richiesta. Meno male che abbiamo @Terio
Ciao a tutti,
Mario

 

[Terio]

Meno male che abbiamo ...

... Alfredo che se n'è accorto

 

[Gregory]

Creazione grafico ad anello no VBA. Creare una tabella come da immagine. Inserire nella Cella B1 =SE(D2>MESE(OGGI());1;0) in C2 =SE(D2>MESE(OGGI());1;0) =SE(D2>MESE(OGGI());1;0) inserisci grafico ad anello, tasto destro sul grafico invisibile per adesso , selezione dati, Aggiungi la colonna Valori, con l'intervallo serie E2:E13. Appariranno 12 quadratini, selezionali col mouse, Riempimento a tinta unita verde. Tasto desto sempre sui quei numerini che appaiono tutti 1, tasto destro del mouse, formato etichette dati, seleziona valore celle, e seleziona l'intervallo b2:b13. Poi colora dove ci sono gli zeri ,i quadratini in grigio, tinta unita-grigio. Vai in origine dati col tasto destro del mouse e assicurati che sulla parte destra ci siano i mesi, se non ci sono modica e seleziona il range A2:A13. Dopo questo nascondi la colonna B per far sparire i numerini. Dalle immagini che ti allego ti accorgi come va configurato il grafico. E' dinamico, poi non ti dimenticare di nascondere la colonna B
[url=https://postimg.cc/qNKQv3Cw] faq hosting immagini[/URL]

[url=https://postimages.org/] [/URL]
[url=https://postimages.org/] [/URL]
[url=https://postimages.org/] [/URL]

 

[luis89]

Ciao @Gregory , non ci riesco. ti volevo chiedere due cose:
1) il grafico ad anello che si colora nel mese di riferimento si potrebbe collegare anche ad un altro foglio dove vengono elencati importi e mese di riferimento? perchè ho un foglio movimentazioni
2) dopo questo grafico ne vorrei sempre un altro ad anello ma che si colora in base agli importi positivi e negativi dei mesi. esempio gennaio febbraio e marzo importo positivo sul grafico ad anello diventano verdi, poi da aprile a giugno negativi quindi i quadratini diventano rossi. si può fare senza usare VBA.

 

[Gregory]

il grafico ad anello che si colora nel mese di riferimento si potrebbe collegare anche ad un altro foglio dove vengono elencati importi e mese di riferimento? perchè ho un foglio movimentazioni

ciao, posta il file con gli importi, se è come penso io basta aggiungere una serie nella sezione dati spuntare valori nelle opzioni del grafico.
Riguardo al secondo punto penso di si. Ma mi serve il file allegato, se puoi.

 

[alfrimpa]

ti volevo chiedere due cose:

Le dovrai chiedere in nuove discussioni perché non c’entrano nulla con l’argomento di questa.

Per questa ti invito a dire se il problema è stato risolto con le soluzioni che ti sono state date.

@Gregory

Le nuove domande vanno affrontate in nuove discussioni non in questa.

 

[Gregory]

@luis89 ciao per le nuove domande, bisogna aprire nuove discussioni, poi il problema è stato risolto col a soluzione proposta da me?

 

[alfrimpa]

poi il problema è stato risolto col a soluzione proposta da me?

Ma se ha scritto questo

Ciao @Gregory , non ci riesco.

Come pensi che possa aver risolto?