컴활1급_스프레드시트_4. 기타작업(차트/매크로/프로시저)★중요

1.차트(★중요 10점)

✔ 삽입-차트그룹-차트선택
✔ [alt]키 누른상태로 차트이동 (셀단위로 이동/크기변경가능)
✔ 차트제목 연동 (게목클릭 후 수식창에 셀 값 설정)

2.매크로(★중요 10점)

컴퓨터가 자동으로 반복적으로 작업해주는 것 (문서작업시간 단축)
✔ [개발도구-매크로]
->개발도구탭 없을경우 : 파일-옵션-리본사용자지정에서 개발도구 창 나오게 설정

✔ 사용자 지정 표시형식 : [셀서식-표시형식-사용자지정]
-> 1구역; 2구역; 3구역; 4구역 = 양수; 음수; 0; 텍스트
-> [조건],[색상] 은 반드시 앞뒤 대괄호 ([]) 로 묶어줌

ex) [=1]"O";[=0]"X" 1과같으면O 0이면X
    [>=10000000]"▲"#,##0;[<=5000000]"▼"#,##0;#,##0
    ->#,##0 천단위표시

-> 개발도구-삽입-양식컨트롤(단추키)

3.프로시저(★어려움)

✔ 폼열기 : 폼이름.show
✔ 폼닫기 : unload me

ex) -버튼클릭시
	private sub cmd등록_click
		교복입력.show
    end sub
    
    -초기화(화살표 클릭시 나오는 콤보박스)
    Private Sub UserForm_Initialize()
    	cmb품목.RowSource = "h7:i10"
    End Sub
    
    -닫기버튼 클릭시
    Private Sub cmd닫기_Click()
      [a2:f2].Font.Bold = True // 굵기
      [a2:f2].Font.Italic = True // 기울기
      [a2:f2].Font.Underline = True // 밑줄
      Unload Me // 닫기(아래에 작성)
	End Sub

    -입력폼 작성(어려운부분 할지 안할지 선택)
    Private Sub cmd판매입력_Click()
    If txt소비자명.Value = "" Or txt판매수량.Value = 0 Then
        MsgBox "소비자명이나 판매수량을 입력하세요"
    Else
        입력행 = [a2].Row + [a2].CurrentRegion.Rows.Count
        //외우기 똑같이 나옴(a2셀로부터 근접한 행들의 개수)        
        Cells(입력행, 1) = Date
        Cells(입력행, 2) = txt소비자명.value
        Cells(입력행, 3) = cmb품목.List(cmb품목.ListIndex, 0) //0열
        Cells(입력행, 4) = cmb품목.List(cmb품목.ListIndex,1) 
        //index함수(행렬),1열
        Cells(입력행, 5) = txt판매수량.value
        Cells(입력행, 6) = txt판매수량 * Cells(입력행, 4)
    End If
End Sub