지도 Excel 워크 시트 열

Question

내가 좋아하는 차트가있는 경우 :

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

는 X와 Y와 컬러 인덱스 바있다 Excel에서 막대 그래프 (2007)를 생성 할 수 있습니다 각 막대의 마지막 행 (색으로 표시)에 표의 바가 연관 될 수 있습니까?

Answer 1

이 VBA 스 니펫은 막 대형 차트를 플롯하고 열의 최종 값을 막대의 색상 색인으로 사용합니다.

이를 사용하려면 (헤더 및 최종 행 포함)의 데이터를 두 개의 열을 선택하고 다음 코드를 F5 충돌 :

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