[스프레드시트] 컴활 실기 문제 풀어보자 (매크로, 양식컨트롤, 조건부서식)

 

아래문제 출처 ( https://m.cafe.daum.net/hermingway/ZYwR/38 )

 

계속해서 ​엑셀 컴활 문제를 풀어보자.

 

 

 

 

 

================

매크로 생성

"양식 컨트롤" 단추 생성 후, 매크로 지정

 

[개발도구]->[매크로 기록] 선택

서식적용이라 이름 입력 후

확인 클릭

 

 

문제에서 요구한 범위[E6:L33] 선택 후,

(Ctrl+1)단축키 눌러 "셀 서식"띄운 후,

[표시형식]->[사용자지정] 선택

형식에 "[=1]"O";[=0]"X";" 로 적는다.

(조건에 맞는 서식을 적게끔 하는 서식문자열)

[=1]"O"; → 1이면 O문자열을

[=0]"X"; → 0이면 X문자열을 표시해라.

 

 

기록 중지 실행시키고

Alt+F11 단축키 눌러서 매크로가 제대로 적용됐는지 확인

 

사진 삭제

사진 설명을 입력하세요.

Sub 서식적용()
'
' 서식적용 매크로
'
    Range("E6:L33").Select
    Selection.NumberFormatLocal = "[=1]""O"";[=0]""X"";"
End Sub

 

 

 

양식컨트롤(단추)를 만든다.

 

그러면 매크로 지정창이 나타나는데,

"서식적용"(아까 만든 매크로)를 지정한다.

 

그리고 이름도 문제에서 요구하는 문자열 "서식적용"이라 해준다.

 

 

=============

조건부 서식 매크로 생성

양식컨트롤 생성 후 조건부 서식 매크로 지정

 

 

 

아까 매크로 생성했던 것 처럼

[매크로기록] 클릭 후,

"그래프보기" 이름 입력

 

[M6:M33]영역을 드래그해서 선택 후,

[홈]->[조건부 서식]->[새 규칙] 선택

 

 

문제에서 요구하는 규칙 적용해주기

- 셀 값을 기준으로 모든 셀의 서식 지정 옵션

- 데이터 막대 서식 스타일

- 최소값, 최대값

- 막대모양 (채우기, 색)

 

 

역시 매크로 기록을 중지시키고

매크로가 잘 기록됐는지 스크립트 확인한다.

 

Sub 그래프보기()
'
' 그래프보기 매크로
'

'
    Range("M6:M33").Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValuePercentile, newvalue:=20
        .MaxPoint.Modify newtype:=xlConditionValuePercentile, newvalue:=80
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillGradient
    Selection.FormatConditions(1).Direction = xlContext
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderNone
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
    With Selection.FormatConditions(1).AxisColor
        .Color = 0
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).NegativeBarFormat.Color
        .Color = 255
        .TintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-9
End Sub

 

양식컨트롤 만들고

매크로 지정할 때 "그래프보기" 선택

 

 

위의 과정이 모두 통과되면

매크로와 연동된 양식컨트롤 버튼 2개가 완성됐다.

 

 

<테스트 화면>