24년 4월 컴활1급 기출문제(서식적용 매크로작성)문의

게시물 수정 , 삭제는 로그인 필요

24년 4월 컴활1급 기출문제(서식적용 매크로작성)문의 드립니다.

아래와 같은 문제가 출제되었었는데요. 

문제1: 기타작업-2/1

A2:A10 영역에 다음과 같은 서식을 적용하는 "서식적용" 매크로를 작성하고 C1:C2 셀에 개발도구 > 삽입 > 단추 를 표시하여 연결하고 클릭하면 매크로가 작동하도록 하시오.

- 서식조건

1000000 보다 크거나 같으면 빨강색으로 ▲를 숫자 앞에 노출하고 천단위 기호를 표시하고

100000 보다 크거나 같고 1000000 미만이면 녹청색으로 천단위 기호를 표시하고

100000 미만이면 파랑색으로 ▼를 숫자 앞에 노출하고 천단위 기호를 표시하고

문자면 공백을 표시하시오.

문제2: 기타작업-2/2

A2:A10 영역에 서식을 해제하는 "서식해제" 매크로를 작성하고 C4:C5 셀에 개발도구 > 삽입 > 단추 를 표시하여 연결하고 클릭하면 매크로가 작동하도록 하시오.

일반 사용자 지정 서식에는 조건이 2개까지만 들어가고 조건이 더 필요한경우

조건부서식을 사용해야한다고 알고있는데..

위 문제1: 기타작업-2/1 매크로로 어떻게 작업해야 하나요?

오피스 버전은 2021 프로페셔널 엑셀에서 문제를 아래와 같이 다시 풀이해보니 여전히 오류가 발생하네요.

매크로 기록 시작 하고 아래 조건에 해당하는 조건부 서식을 

"홈 > 스타일 > 조건부서식 > 새규칙"을 이용하여 4회 넣어주면 매크로 코드 생성은 되지만 실행하다가 오류가 발생하는데

매크로 코드를 확인해보니 다른 엑셀파일의 데이터 불러올때 사용하는 ExecuteExcel4Macro 함수가 코드에 자동으로 생성되었고 해당 함수에서 오류가 발생하네요

엑셀에서 자동생성한 매크로 코드만 봐도 조건에 해당하는 부분에만 서식을 적용하는것이 아닌 코드로 보입니다.

위 문제와 같은경우 어떻게 처리해야하는지 궁금합니다.

매크로 기록시 조건부 서식에 규칙관리 창을 열고 하면 코드 자체가 더 애매하게 작성이 되버립니다.

고수님들의 답변 부탁드립니다.

아래는 매크로 기록 후 작성된 매크로 코드 입니다.

# 테스트 시트 값

# 조건부 서식의 규칙관리를 열고 서식을 4회 작성했을때의 코드

Sub 조건부서식적용()

'

' 조건부서식적용 매크로

'

'

    Range("A2:A10").Select

    Selection.NumberFormatLocal = "[빨강]""▲""#,##0"

    Selection.NumberFormatLocal = "[녹청]#,##0"

    Selection.NumberFormatLocal = "[파랑]""▼""#,##0"

    Selection.NumberFormatLocal = """"""

    Range("A11").Select

End Sub

# 조건부 서식의 새규칙으로 조건부서식을 4회 작성했을때의 코드

Sub 서식적용()

'

' 서식적용 매크로

'

'

    Range("A2:A10").Select

    Selection.NumberFormatLocal = "[빨강]""▲""#,##0"

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$G5>=40000"

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    ExecuteExcel4Macro "(2,1,""[빨강]""▲""#,##0"")"

    Selection.FormatConditions(1).StopIfTrue = False

    

    Selection.NumberFormatLocal = "[녹청]#,##0"

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _

        "=AND( $G5<40000, $G5>=10000)"

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    ExecuteExcel4Macro "(2,1,""[녹청]#,##0"")"

    Selection.FormatConditions(1).StopIfTrue = False

    

    Selection.NumberFormatLocal = "[파랑]""▼""#,##0"

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$G5<10000"

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    ExecuteExcel4Macro "(2,1,""[파랑]""▼""#,##0"")"

    Selection.FormatConditions(1).StopIfTrue = False

    

    Selection.NumberFormatLocal = """"""

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ISTEXT($G5)"

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    ExecuteExcel4Macro "(2,1,"""""""")"

    Selection.FormatConditions(1).StopIfTrue = False

    

    Range("A11").Select

End Sub