abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2009.07.11 11:44

간단하게 만들어보았습니다.

필요한 기능만 구현했으니, 응용은 Mike님께서 잘 해주시리라 믿습니다. ^-^

첨부파일 다운 받으세요 ( 다운받기 : abyul_20090709_Mike-2.xls )

관련 코드는 아래와 같습니다.

차트의 x축 항목 이름을 의미하는 XValues의 전체 count를 알 수 없어서 ^-^;;

( .XValues.Count 하면 에러가 나네요)

그냥 급한데로.. 에러가 날때까지 while을 돌리는 무식한 방법을 썼습니다.

누가 아시는분 있으면 댓글 부탁드립니다. 전체 Count를 안다면 For문을 썼겠지요..

Option Explicit

Sub Chart_FillSpot(idx As Integer)
    Dim xvalueseries As Variant
    Dim i As Integer

    ActiveSheet.ChartObjects(1).Activate
    xvalueseries = ActiveChart.SeriesCollection(1).XValues

i = 1
Err.Number = 0

On Error Resume Next

    Do While Err.Number = 0
        If InStr(xvalueseries(i), "Lot") Then
            ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = idx
        End If
        i = i + 1
    Loop
    Range("A1").Select
End Sub