MS Excel에서 거품의 색상이 셀의 색상과 일치하는 거품 차트를 만들려면 어떻게 해야 합니까?

Question

네 번째 변수(x축, y축, 거품 크기, 거품 색상)를 설명하고 싶지만 일련의 임계값을 기반으로 계열을 미리 정의된 그룹으로 인위적으로 분할하고 싶지는 않습니다. 오히려 각 거품이 셀의 특정 색상을 반영하기를 원합니다(네 번째 변수에 따라 조건부 서식을 통해 색상이 지정됨).

이 작업을 수행하는 방법을 아는 사람이 있나요?

Answer 1

작동 방식:

1. 데이터 및 채우기 색상을 입력합니다.
2. 딸깍 하는 소리끼워 넣다,분산형 삽입(X, Y)또는 버블 차트을 클릭하고 거품형 차트를 선택하세요.
3. 차트를 마우스 오른쪽 버튼으로 클릭하고데이터 선택메뉴에서.
4. 로부터데이터 소스 선택딸깍 하는 소리추가하다 & 상대 셀 선택데이터 시리즈.
5. 첫 번째 텍스트 상자의 경우 셀 A1과 같은 다른 텍스트 상자의 셀 아래를 선택합니다 A2, A3, A4.
6. 열 및 마무리에 대해 5단계를 반복 B합니다 C.좋아요.

7. 이 VB 코드를 시트와 함께 표준 모듈로 복사하여 붙여넣으세요.

   Option Explicit
   
   Sub ColorChartSeries()
   Dim iRow As Long, iCol As Long
   Dim theBubbles As Range
   Dim theChart As Chart
   Dim theSeries As Series
   Dim thePoint As Point
   
   Set theChart = ActiveChart
   
   If (theChart.ChartType <> xlBubble And theChart.ChartType <> xlBubble3DEffect) Then
       MsgBox "This works only for bubble charts!"
       End
   End If
   
   For Each theSeries In theChart.SeriesCollection
       Set theBubbles = Range(theSeries.BubbleSizes)
       iRow = theBubbles.Row - 1
       iCol = theBubbles.Column
       For Each thePoint In theSeries.Points
           iRow = iRow + 1
           thePoint.Format.Fill.ForeColor.RGB = Cells(iRow, iCol).Interior.Color
       Next thePoint
   Next theSeries
   
   End Sub
   

8. 마지막으로,차트 영역을 선택하고 코드를 실행하십시오.

채워진 셀 색상과 유사한 버블 색상을 얻을 수 있습니다.

메모, 이 방법은 조건부 서식이 지정된 셀 색상을 가져오지 않습니다.