컴활

컴활 1급 실기 #3. 사용자지정 셀서식 조건, 조건부서식(홈), 차트, 프로시저, 고급필터

peachystal 2021. 5. 15. 00:07

사용자지정 셀서식 조건
"셀값이 1과 같은 경우 영문자 대문자 "O"로 표시, 셀값이 0과 같은 경우 영문자 대문자 "X"로 표시"
[=1]" O";[=-]"X"
"값이 30이상이면 천단위 구분기호 콤마표시를하고 0미만이면 소수점 둘째자리까지 표시해라"
(이어주는 기호 ; / 천단위구분기호 #,##0로 표시 소수점 둘째자리 0.00)
[>30]#,##0;[<0]#,##0.0
숫자
콤마O #,##0
콤마X 0
소수점개수만큼 0.00
천단위 구분기호 표시하고 소수점 둘째자리까지 표시 0.00
천단위씩 생략해서 표시
10,000,000 #,##0 10,000
23,450,000 #,##0, 천원 23,450(천원)
#,##0,, 백만 23(백만)원) (,하나당 0이 3개니까 ,, 두개면 0이 6개)
백분율
100% = 1
50% = 0.5
5% = 0.05
3.25 =0.0325
백분율의 소수점 둘째자리까지 표시 = 소수점 넷째자리까지 같은말.
*0%~10%까지 = 소수점 0~0.1
*0%~2%까지 = 소수점 0~ 0.02

p3-330
양수;음수;0;텍스트
[빨강]#,##0; [파랑]0.00; [노랑]0; [녹색]@
◆조건이 있는 경우
500이상이면 빨강에 천단위 구분기호
100이상이면 파랑에 천단위 구분기호 +소수점 첫째자리까지
[빨강][>=500]#,##0;[파랑][>=100]#,##0.0
◆조건이 없는 경우
양수;음수;0;텍스트
[빨강]#,##0; [파랑]0.00; [노랑]0; [녹색]@

*홈- 조건부 서식 - 셀강조 규칙/ 새규칙
"조건부서식의 셀 강조규칙을 이용해 ~영역의 @수가 0일을 초과한 값에 대해 '서식이 적용되도록 설정해라"
"~영역에 조건부서식을 적용하는 매크로를 생성해라. 규칙유형은 셀값을 기준으로 모든셀의 서식지정으로 선택, 서식 스타일, 최소값 백분위수 20, 최대값 백분위수 80으로 설정해라"


4-1 차트

1. 빠진 항목 레이어 추가
ㄱ. 레이어 영역 선택해 복붙
ㄴ. 우클릭, 데이터선택, 데이터 범위 전체 삭제, 빠진항목 포함 전체영역 드래그
ㄷ. 범례영역 추가해서 '진달래' 계열값 드래그
ㄹ. 계열차트종류변경(꺾은선형, 영역형, 막대형 등)

2. +인지 우클릭인지 외우기
+ : 차트제목 축제목(기본세로-기타옵션 텍스트방향 바꾸기/ 홈-세로쓰기) 데이터레이블, 주눈금선,범례

*눈금선 바둑판 : 기본 주 가로, 세로

 

우클릭 : 세로값축 - 축서식 - 값을 거꾸로/ 표시단위(단위레이블표시), 주단위, 차트종류, 차트영역서식

*주단위 : 500단위 1000단위...

*차트영역서식 - 1번 채우기 및 선 - 테두리 - 둥근모서리 / 2번 그림자 (오프셋가운데, 안쪽가운데 등)

*완만한선 : 우클릭, 데이터계열서식, 완만한 선 체크, *계열옵션 -표식옵션 마름모표시, 축옵션 - 축위치 - 눈금

 

3. 디자인 지정

*도형스타일= 서식탭(미세효과 등)
*차트스타일- 디자인탭(스타일1~8)

 


4-3 프로시저
1. 개발도구 - 디자인모드 > 더블클릭
2. "버튼을 클릭하면 <00> 폼이 나타나도록 설정하고" = 00(폼이름).show
3. 폼 클릭해 <00> 클릭, 아무데나 클릭
4. "폼이초기화되면 (88) 목록에는 [범위]or "값"이 설정되도록" = 이니셜라이즈로 바꿈
ㄱ. 범위일 때 88.rowsource = "범위"
ㄴ. 일 때
88.Additem "값1"
88.Additem "값2"
88.Additem "값3"

5. *초기화되면 @가 선택되도록 @=true
6. "00폼의 @종료 단추를 클릭하면" 돌아가서 닫기 더블클릭,
"입력한 전체 데이터의 개수를 표시한 그림과 같은 메시지 박스를 표시한후(msgbox) 폼을 종료(unload me)하는 프로시저 작성해라"
msgbox "메시지내용", 옵션 , "타이틀(제목)"
*옵션= 확인일때는 , , 이렇게 공란으로 두기
msgbox "전체대출자는 2명입니다."(now/time/date 가능) , , "종료"
unload me

[A1].Font.Name = "굴림체"
*메시지 박스 그림 참고: 시간 = time/ 날짜= date/ 현재시간+날짜 = Now
n= range("a3").CurrentRegion.Rowscount-2
*range("a3").CurrentRegion. : a3기준으로 연결된 거 다 선택
*Rowscount-2 : A2:F4= 3줄인데, 데이터있는 행은 1줄뿐임 그래서 2개 뺴줌 -2
msgbox "전체대출자는 "&n&" 명입니다." , , "종료"
& 앞뒤내용 이어붙이기
이렇게 하면 n자리에 들어갈 수는 상황에 맞게 자동변환됨

6. 디자인모드 해제

1-1 고급필터
데이터 - 정렬 및 필터 - 고급
목록범위 : 표전체(머리글포함)
조건범위 : 조건 함수 영역
복사위치 : 복사하고자하는 영역 찍기

*함수암기

*순서암기
=AND( :이고, 이면서 함수/ 또는 = OR함수씀
=Right(글자,2)="HD" : 글자에서 오른쪽(뒤)에서 2글자 가져와라, HD가 맞니? 맞으면 True, 틀리면 False 나옴
=내매출액>=Average(전체매출액범위 절대참조고정F4)