피벗 > 슬라이서 > 차트에서 축 경계 질문 드립니다.

피벗테이블
작성자
장난아니
작성일
2022-01-05 18:19
조회
54
엑셀버전 : M365

운영체제 : 윈도우10

피벗을 이용해 슬라이서를 만들고 차트를 많들었습니다.

차트 축 서식 > 축 옵션 에서 경계를 자동으로 했습니다.

(최소값, 최대값 조정 시 슬라이서 4개가 동시에 조정 되어서)

질의 드립니다.

슬라이서 4개 항목 클릭 시 왼쪽 축 옵션의 최소값, 최대값이 적절히 자동으로

지정되는데 "정원내충원율"만 유독 0.0% ~ 120%로 나옵니다.(첨부 파일 참조)

- 재학생현황: 6200 ~ 8000

- 전체충원율: 85.0% ~ 110.0%

- 정원내충원율: 0.0% ~ 120.0%

- 중도탈적률: 0.0% ~ 8.0%

그로 인해 지표가 떨어지고 있는점이 강조가 안되어서 60% ~ 110% 정도로 이 항목만

임의 조정 가능할까요?

아니면 왜 "정원내충원율"만 0.0% ~ 120%으로 나오는지도 질의 드립니다.

답변 주시면 정말 정말 감사하겠습니다.

회원등급 : 2레벨
포인트 : 44 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2022-01-06 09:04

    피벗테이블 시트에 아래 매크로 추가해보세요..^^ 결과는 유첨파일에..

    Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    If Range("H3").Value = "정원내충원율" Then
    setChartAxis "주요지표추이", "차트 4", "Min", "Y", "Primary", "0.6"
    setChartAxis "주요지표추이", "차트 4", "Max", "Y", "Primary", "1.1"
    Else
    setChartAxis "주요지표추이", "차트 4", "Min", "Y", "Primary", "auto"
    setChartAxis "주요지표추이", "차트 4", "Max", "Y", "Primary", "auto"
    End If
    End Sub
    
    Function setChartAxis(sheetName As String, chartName As String, MinOrMax As String, _
        ValueOrCategory As String, PrimaryOrSecondary As String, Value As Variant)
    
    'Create variables
    Dim cht As Chart
    Dim valueAsText As String
    
    'Set the chart to be controlled by the function
    'Set cht = Application.Caller.Parent.Parent.Sheets(sheetName) _
        .ChartObjects(chartName).Chart
    
    Set cht = ThisWorkbook.Sheets(sheetName).ChartObjects(chartName).Chart
    
    'Set Value of Primary axis
    If (ValueOrCategory = "Value" Or ValueOrCategory = "Y") _
        And PrimaryOrSecondary = "Primary" Then
    
        With cht.Axes(xlValue, xlPrimary)
            If IsNumeric(Value) = True Then
                If MinOrMax = "Max" Then .MaximumScale = Value
                If MinOrMax = "Min" Then .MinimumScale = Value
            Else
                If MinOrMax = "Max" Then .MaximumScaleIsAuto = True
                If MinOrMax = "Min" Then .MinimumScaleIsAuto = True
            End If
        End With
    End If
    
    'Set Category of Primary axis
    If (ValueOrCategory = "Category" Or ValueOrCategory = "X") _
        And PrimaryOrSecondary = "Primary" Then
    
        With cht.Axes(xlCategory, xlPrimary)
            If IsNumeric(Value) = True Then
                If MinOrMax = "Max" Then .MaximumScale = Value
                If MinOrMax = "Min" Then .MinimumScale = Value
            Else
                If MinOrMax = "Max" Then .MaximumScaleIsAuto = True
                If MinOrMax = "Min" Then .MinimumScaleIsAuto = True
            End If
        End With
    End If
    
    'Set value of secondary axis
    If (ValueOrCategory = "Value" Or ValueOrCategory = "Y") _
        And PrimaryOrSecondary = "Secondary" Then
    
        With cht.Axes(xlValue, xlSecondary)
            If IsNumeric(Value) = True Then
                If MinOrMax = "Max" Then .MaximumScale = Value
                If MinOrMax = "Min" Then .MinimumScale = Value
            Else
                If MinOrMax = "Max" Then .MaximumScaleIsAuto = True
                If MinOrMax = "Min" Then .MinimumScaleIsAuto = True
            End If
        End With
    End If
    
    'Set category of secondary axis
    If (ValueOrCategory = "Category" Or ValueOrCategory = "X") _
        And PrimaryOrSecondary = "Secondary" Then
        With cht.Axes(xlCategory, xlSecondary)
            If IsNumeric(Value) = True Then
                If MinOrMax = "Max" Then .MaximumScale = Value
                If MinOrMax = "Min" Then .MinimumScale = Value
            Else
                If MinOrMax = "Max" Then .MaximumScaleIsAuto = True
                If MinOrMax = "Min" Then .MinimumScaleIsAuto = True
            End If
        End With
    End If
    
    'If is text always display "Auto"
    If IsNumeric(Value) Then valueAsText = Value Else valueAsText = "Auto"
    
    'Output a text string to indicate the value
    setChartAxis = ValueOrCategory & " " & PrimaryOrSecondary & " " _
        & MinOrMax & ": " & valueAsText
    
    End Function
    
    도

    도움이 되셨길 바랍니다~^^

    차트vba.gif

    첨부파일 : 예시.xlsm


    • 2022-01-06 13:02

      @더블유에이 님 감사합니다.


전체 5,134
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (28)
트로피 오빠두엑셀 | 2021.10.12 | 추천 22 | 조회 752
트로피 오빠두엑셀 2021.10.12 22 752
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 28 | 조회 2345
트로피 오빠두엑셀 2021.10.28 28 2345
26068 함수/공식
New 다른쉬트 값 불러 오기 (VLOOKUP 안될 시) 첨부파일 (1)
벗님들 | 12:48 | 추천 -1 | 조회 28
벗님들 12:48 -1 28
26067 함수/공식
New 도와주세요! 목록 별 수량 합산이 필요한데 가능한지 확인 부탁 드릴게요! 첨부파일 (4)
monom | 12:38 | 추천 0 | 조회 28
monom 12:38 0 28
26058 기능/도구
New 자동필터 복사 범위 풀림 오류 (1)
허영진 | 10:29 | 추천 0 | 조회 27
허영진 10:29 0 27
26050 함수/공식
New 행과 열의 합의 함수를 알고 싶어요! (1)
Goldhajin | 00:45 | 추천 0 | 조회 46
Goldhajin 00:45 0 46
26041 VBA
New 일정시간이 지나면 MsgBOX로 알림창이 뜨게 하고싶습니다. (2)
을지지뢰 | 2022.01.17 | 추천 0 | 조회 46
을지지뢰 2022.01.17 0 46
26035 함수/공식
New 특정날짜와 시간 고정해서 데이터 추출방법 도와주세요 (4)
박현욱 | 2022.01.17 | 추천 0 | 조회 43
박현욱 2022.01.17 0 43
26033 함수/공식
New 필터 함수를 인덱스 매치 함수로 변환하는 어려움 첨부파일 (2)
미르 | 2022.01.17 | 추천 0 | 조회 32
미르 2022.01.17 0 32
26030 함수/공식
New 원본표에서 일정 조건의 내용을 추출하여 새로운 표에 자료 넣기 첨부파일 (2)
알면서 | 2022.01.17 | 추천 0 | 조회 30
알면서 2022.01.17 0 30
26029 기능/도구
New 필터에서 상하위 % 추출 안됨 오류 첨부파일 (3)
알면서 | 2022.01.17 | 추천 0 | 조회 23
알면서 2022.01.17 0 23
26026 함수/공식
New 한 셀에 입력된 문장 중 조건에 만족하는 문장 개수 함수 (5)
삐약이 | 2022.01.17 | 추천 0 | 조회 33
삐약이 2022.01.17 0 33
26025 기능/도구
New 셀 내용을 지우면 특정 셀 내용도 같이 삭제되는 기능? 첨부파일 (2) 답변완료
올리주인 | 2022.01.17 | 추천 1 | 조회 37
올리주인 2022.01.17 1 37
26023 VBA
New VBA 사용자정의폼 show 0 명령어 (1)
병욱 | 2022.01.17 | 추천 0 | 조회 33
병욱 2022.01.17 0 33
26022 VBA
New 거래처별 파일 나누기 첨부파일
silli**** | 2022.01.17 | 추천 0 | 조회 36
silli**** 2022.01.17 0 36
26015 함수/공식
New 혹시 Crtl + F 찾기 같은 함수와 있나요 (1)
태혁 | 2022.01.17 | 추천 0 | 조회 49
태혁 2022.01.17 0 49
26014 차트/그래프
New 해당 스크린샷의 그래프를 어떻게 만드는지 알려주세요 (1)
민석 | 2022.01.17 | 추천 0 | 조회 24
민석 2022.01.17 0 24
26005 함수/공식
New 한 숫자값에 대한, 홀수/짝수값을 나열하고 싶습니다. (6) 답변완료
땅콩구리아빠 | 2022.01.17 | 추천 0 | 조회 38
땅콩구리아빠 2022.01.17 0 38
26000 VBA
New Rng.find 함수로 찾은 값을 DB안에 넣고싶습니다. (2)
가을전어 | 2022.01.16 | 추천 0 | 조회 33
가을전어 2022.01.16 0 33
25994 함수/공식
New 날짜 입력하면 당일 주야간 합구하는 함수나 방법을 배우러 왔습니다. (1)
현주아빠 | 2022.01.16 | 추천 0 | 조회 34
현주아빠 2022.01.16 0 34
25993 VBA
New workday 함수를 vba로.. (1)
Hong | 2022.01.16 | 추천 0 | 조회 32
Hong 2022.01.16 0 32
25989 차트/그래프
New 표 자동 입력 첨부파일 (2) 답변완료
미르 | 2022.01.16 | 추천 0 | 조회 45
미르 2022.01.16 0 45
25983 함수/공식
New 년도에 따른 출장 일수 구하고 싶은데 도움 부탁드립니다. (1)
kjin1020@naver.com | 2022.01.16 | 추천 0 | 조회 28
kjin1020@naver.com 2022.01.16 0 28
25982 함수/공식
New 입력하면 옆 셀에 자동으로 '1'이 입력되는 방법 (1) 답변완료
올리주인 | 2022.01.16 | 추천 0 | 조회 53
올리주인 2022.01.16 0 53
25973 함수/공식
New index match로 불러온 여러 목록의 사진을 다시 취합해서 불러오고 싶습니다. 첨부파일
배고픈콩콩 | 2022.01.16 | 추천 0 | 조회 39
배고픈콩콩 2022.01.16 0 39
25969 VBA
New 검색한 셀의 가로열 전부를 복사하는 방법이 알고 싶습니다. vba
ㅈㄱㄹ | 2022.01.16 | 추천 0 | 조회 27
ㅈㄱㄹ 2022.01.16 0 27
25945 함수/공식
New if 함수 중첩 (3)
shheee | 2022.01.15 | 추천 0 | 조회 57
shheee 2022.01.15 0 57
25938 기능/도구
수식이 포함된 시트에서 수식이 입력된 셀을 제외한 셀을 선택하는 방법을 알고자 합니다 (1)
yya**** | 2022.01.15 | 추천 0 | 조회 36
yya**** 2022.01.15 0 36
25932 문서서식
안녕하세요...도움을 요청합니다. 첨부파일 (2)
violet**** | 2022.01.15 | 추천 0 | 조회 53
violet**** 2022.01.15 0 53
25919 함수/공식
중복일 경우 1개만 카운트 첨부파일 (3) 답변완료
s77**** | 2022.01.14 | 추천 0 | 조회 88
s77**** 2022.01.14 0 88
25918 함수/공식
대출 이자율을 구하는 함수가 있을까요? (3)
늦깎이 | 2022.01.14 | 추천 0 | 조회 61
늦깎이 2022.01.14 0 61
25909 문서서식
셀값에 보이지 않는 값이 있습니다 이게 뭔지 알려주세요ㅠㅠ 첨부파일 (2) 답변완료
닉으로 | 2022.01.14 | 추천 0 | 조회 64
닉으로 2022.01.14 0 64