1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

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

 엑신님! 지난번 질문을 이상하게 올렸던 Mike 입니다.

 빠른 답변에 너무 감사드립니다.

 

 이번 질문은 아래와 같습니다.

 

 - Chart X축에 제품 샘플이름을 두고, Y 축에 분석값을 plot 합니다.

 - 이때, X축 제품 샘플 이름은 (200-08WW Line340, 200-08WW Line340, 200-08WW Line340, 200-08WW Lot340, ..........) 입니다.

 

 샘플 이름에 Lot 가 들어가는 항목과 그렇지 않은 항목의 점에 색상을 달리 지정하고자 합니다.

 이게 가능할까요?

 

 미리 감사드립니다. 

 


댓글 '5'

profile

[레벨:30]아별

2009.07.09 14:33:20
*.166.56.137

엑셀 파일을 올려주세요.

개념적으로는 ActiveChart의 SeriesCollection의 points를 순환하면서 XValues값에 "Lot"가 포함되어 있다면,

해당 point의 MarkerBackgroundColorIndex를 변경해주면 될 것 같은데요..

 

해봐야겠죠? ㅎㅎ

이런 질문은 엑셀 파일을 올려주세요.. 퇴근 후에 시간을 갖고 해보겠습니다. ^-^;;

[레벨:1]Mike

2009.07.09 15:06:21
*.247.149.90

 감동입니다. !!! 

 

 저도 일을 하는 사람인지라, 엑신님께 너무 큰 수고를 부탁드리는것 같아 가능여부의 질문만 드렸는데, 이렇게까지 친절하실수가요 ...

 

 일부 파일을 유첨 드립니다.

 

 너무 감사합니다.

첨부
profile

[레벨:30]아별

2009.07.11 11:44:23
*.166.56.124

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

필요한 기능만 구현했으니, 응용은 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

 

 

첨부

[레벨:1]Mike

2009.07.14 00:54:43
*.179.203.111

 완전 성공입니다. 이렇게 감사할 수가 ^^

 VBA를 전혀 써본적이 없었는데..., 역시 엑신님이시네요 ^^

 VBA 공부가 절실하네요... ^^ 감사합니다. (혹시, 교재나 공부 방법에 대한 조언 주시면, 큰 도움이 되겠습니다. ^^)

profile

[레벨:30]아별

2009.07.14 08:41:35
*.166.56.124

엑셀 차트에 자동 자동 설정 부분은 아별툴의 기능에 추가하려고 생각하고 있던 기능입니다.

사실 저 코드도 매크로 기록으로 X축 값을 선택하고, 해당 포인트의 색상을 변경하는 작업을 기록한 다음,

수정작업은 VBA도움말 보면서 만든겁니다. ^-^;; VBE창에서 해당 코드에 커서를 놓고 F1만 누르면 도움말이 주르륵~~ ^0^)b

 

Office Online만 봐도 VBA 공부에 많은 도움이 됩니다.

일단 Office OnLine을 공부하시고 그래도 부족한 부분이 있다면 책을 사서 공부하세요.

 

아래 링크는 Excel VBA를 시작하는 사람들이 개념을 정리하는데 도움이 될만한 페이지입니다.

http://office.microsoft.com/ko-kr/excel/HA011189581042.aspx?pid=CL100570551042

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 93902
162 엑셀일반 엑셀로 출력시 출력물이 깨지는 데에 대한 문의.... imagefile [레벨:1]하룽아비 2015-01-18 6768
161 도와주세요. 엑신~~ [3] [레벨:2]리자딘 2009-07-03 6782
160 엑셀일반 콤보박스의 값 하나를 선택하면 또 다른 목록이 보이는 콤보박스 만들기 등 file [2] [레벨:4]성투은자 2012-09-18 6806
159 VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1] [레벨:1]초보배움 2015-02-20 6817
158 다른시트에 조건부 수식 넣어서 합계 내는 법 file [2] [레벨:3]이구람 2010-01-11 6818
157 어떻게 하면 이렇게 변환하는 기능을 만들수 있을까요? file [1] [레벨:1]칼리스토 2009-07-01 6830
156 엑셀일반 저.. 혹 이기능에 대한 단축키가 있나요?? imagefile [3] [레벨:2]큰아빠에요 2012-11-25 6833
155 엑셀수식 문자가 포함된 값찾기 file [1] [레벨:4]요셉 2013-01-07 6845
154 자동으로 계산할 수 있는 방법이 있나요? file [2] [레벨:3]유령 2010-05-03 6855
153 차트안의 데이타 자동 변경방법 알려주세요^^ [3] [레벨:6]ryanoh 2010-03-30 6865
152 엑셀일반 최대값, 최소값 범위 지정 file [레벨:3]읍내꽃미남 2015-01-20 6869
151 아별툴관련질문 빠른실행 도구모음 초기화 [3] [레벨:1]Pillias 2013-01-08 6871
150 엑셀 매크로 작성입니다. file [1] [레벨:1]유니현 2009-12-07 6885
149 ISERROR 건 입니다. [4] [레벨:2]리자딘 2009-08-11 6886
148 엑셀에서 sheet 보호를 한상태로는 셀병합이라던지 그런건 할수 없는건가요? [1] [레벨:2]코요태 2010-02-05 6887
147 각 시트의 2개이상 조건값이 같을 때 해당값을 찾는 함수??? imagefile [1] [레벨:2]qpfmdpfm 2010-04-15 6888
» 엑셀 차트(표식이 있는 꺾은선형)에서 특정 data 에 색깔 표시 [5] [레벨:1]Mike 2009-07-09 6893
145 엑셀일반 예전에 해결해준 공휴일 조건부서식에 대한 재질문 등 file [2] [레벨:4]성투은자 2012-12-13 6899
144 '근무일수를 소수점 월단위표기' 관련 질문 두번째 입니다~^^ [2] [레벨:1]리시안샤스 2009-07-22 6907
143 초보 엑셀사용자입니다. 회사안에선 아무도 모르는 거라 엑신님께 여쭈어봅니다.!! [1] 박민철 2009-07-01 6923