Mappa foglio di lavoro Excel colonna di colore grafico a barre

Question

Se ho un grafico come:

        x   y
        1   3
        2   8
        3   9
        4   0
color   3   1

è possibile creare un grafico a barre in Excel (2007), dove ci sono bar per X e Y e l'indice di colore di ciascuna barra potrebbe essere associate ultima riga (colore etichettato) della tabella?

Answer 1

Questo frammento VBA tracciare un grafico a barre e utilizzare i valori finali nelle colonne come colorindex per le barre.

Per utilizzare questo, è sufficiente selezionare le due colonne di dati (compresi intestazioni e ultima fila) e F5 poi colpire sul seguente codice:

Sub BarChartWithColors()
    Dim selectedRng As Range, chartRng As Range, colorRng As Range

    Set selectedRng = Selection
    Set chartRng = Range(Selection.Cells(1, 1), Selection.Cells(selectedRng.Rows.Count - 1, 2))
    Set colorRng = Range(Selection.Cells(selectedRng.Rows.Count, 1), Selection.Cells(selectedRng.Rows.Count, 2))

    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=chartRng, PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" //Change sheet destination as appropriate
    ActiveChart.SeriesCollection(1).Interior.ColorIndex = colorRng.Cells(1, 1)
    ActiveChart.SeriesCollection(2).Interior.ColorIndex = colorRng.Cells(1, 2)
End Sub