4파트 기타작업 (35점)
- 차트 (각 2점 x 5소문제 = 10점)
- 매크로 (각 5점 x 2소문제 = 10점)
- VBA(프로시저) (각 5점 x 3소문제 = 15점)
차트
1. 차트 제목 연동
차트제목 외부선 클릭 → 연동 할 셀 클릭 → 엔터
2. 계열 삭제 및 편집
차트 전체 레이아웃 우클릭 → 데이터선택 → 계열 삭제 및 편집 → 범위지정
매크로
1. 매크로
개발도구 → 바깥에 한번 클릭 → 매크로기록 → 범위 선택 후 우클릭
→ 셀서식 → 사용자지정 → 1;[빨강]1;0 (양수;음수;0;문자) → 삽입 → 단추 → ALT드래그
2. 예시1
[파랑][>=7000]#,##0,“천원”;[>=4000]“*”;[빨강]#,##0“원”
(양수;음수;0;문자)
3. 예시2
[파랑][>=80]”★”* 0”점”;[빨강][>=75]”☆”* 0”점”;0”점”
→ ★ 87점
☆ 76점
4. 잘 되는지 안되는지 테스트 하는 방법
홈 → 범위 선택 후 → 표시형식 → 일반
5. 조건부서식
데이터막대 → 최소값, 최대값, 그라데이션
VBA프로시저
1. 소문제 ① 예시 모음
개발도구 → 단추더블클릭 → 과일등록.show → 왼쪽에 과일등록 폼 클릭 → initialize →
Cmb과일명.RowSource=“A3:A4”
Cmb과일명.AddItem 1000
Cmb과일명.AddItem "사과"
Cmb과일명.ColumnCount = 2 (8번 항목 참고)
Cmb과일명.RowSource=“원산지!A3:B4” (2줄이니깐)
Opt친구 = True
Txt수량 = spin*1 (1씩 스핀하는 스핀의 경우)
2. 소문제 ① 기본 설정 항목
[A1].Font.name = "궁서"
[A1].Font.size = "14"
[A1].Font.italic = True
[A1].Font.Bold = True
[A1].rowheight = 10 (높이)
[A1].columnwidth = 10 (너비)
3. 소문제 ③ 예시1
J = Range(“B3”).CurrentRegion.rows.Count+2
Count=J-[B3].row
MsgBox “총 “ & count & “건의 물품이~~.”
Unload Me
4. 소문제 ③ 예시2
MsgBox Now(), , “폼을 종료합니다.“
Unload Me
5. MsgBox 시간
Now() = Date() or Today() + time() (Today는 엑셀 전용 함수, 액세스에선 못씀)
6. MsgBox 버튼종류
vbOkOnly → 확인 (생략값, 기본값)
vbOkCancel → 확인 취소
vbYesNoCancel → 예 아니요 취소
vbYesNo → 예 아니요
7.
어떤 버튼 눌렀는지 저장 O
변수 = Msgbox ( “나올 메시지” , 단추옵션 , “제목” )
어떤 버튼 눌렀는지 저장 X
Msgbox “나올 메시지” , 단추옵션 , “제목”
8. ColumnCount (열의 개수)
https://youtu.be/VfVc1YIMqzs
9. txt구매일자에 날짜 저장
txt구매일자.value = date()
10. 초기화
Cmb.listindex = 0
0은 첫번째항목으로
-1은 초기화
11. 다른 시트에 있는 셀에 저장
Range(“기타작업-1!L10”) = 수고하셨습니다.
