컴퓨터활용능력1급_엑셀 실기

조건

*입력마스크

  ###-####;0;#
  0이면 다 저장
  1이면 데이터부분만 저장
  #으로 다 채움 

함수

• =COUNTIFS($E$9:$E$35,”<=”&A3,$B$9:$B$35,”*영”) & “건”
• lookup(“찾는값”,”찾는위치”,”위치와 대응되는 결과값”)

• FV

  =FV(0.1/12,G15*12,-D15*0.3)
  

• DSUM(database, field, criteria)

  database 조건을 적용할 테이블
  field 조건을 적용할 열
  criteria 조건 테이블
  

• TRUNC(float)

  버림함수 
  

• REPLACE(old_text, start_num, num_chars, new_text)

  old_text를 start_num부터 num_chars개 까지 new_text로 변경한다.
  

• 사용자 정의 함수

Public Function fn비고(입사년도)
    If Year([계산작업!i18]) - 입사년도 >= 10 Then
        fn비고 = "장기근속"
    Else
        fn비고 = ""
    End If
End Function

 [계산작업!i18]과 같이 특정 시트의 값에 접근할 수 있다
 endif를 해주어야 한다

프로시져

• 폼 닫기

  lst목록.ColumnCount = 2
  lst목록.RowSource = "H3:I6"
  chk납입 = True
  

  DoCmd.Close acForm, "운항고객관리"
  

• 외부참조

  List품목명.RowSource = "'기타작업-1'!A3:B10"
  

  for a = 1 to DVD가격/대여료/10
  won원가대여회수 = won원가대여회수 & "★"
  next a
  

  select case 입항일자
  case is < #4/1/2011#
    fn비고 = "1사분기"
  end select
  

  select case 근무년수
  case 8 to 9, 4 to 5
    fn비고 = "승진대상"
  case else
    fn비고 = ""
   end select
  

• font 기울기

Target.Font.Italic = True

• cmb코드.ListIndex

  현재 선택된 값의 Index를 가져온다

• RowSource

Private Sub UserForm_Initialize()
    cmb콘도명.RowSource = "g4:g9"
    //cmb에 리스트 삽입
End Sub

Private Sub UserForm_Initialize()
   cmb종류.RowSource = "J4:K8"
    cmb판매일자.AddItem Date - 5
    cmb판매일자.AddItem Date - 4
    cmb판매일자.AddItem Date - 3
    cmb판매일자.AddItem Date - 2
    cmb판매일자.AddItem Date - 1
    cmb판매일자.AddItem Date
End Sub

• [a3].Row + [a3].CurrentRegion.Rows.Count - 1

Private Sub cmd조회_Click()
    입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count - 1
    // 마지막행
    txt번호 = Cells(입력행, 1)
    //cell은 가져온다
    cmb콘도명 = Cells(입력행, 2)
    txt일수 = Cells(입력행, 3)
    txt요금 = Cells(입력행, 4)
End Sub

Private Sub cmd입력_Click()

    입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
    Cells(입력행, 1) = CDate(cmb판매일자)
    Cells(입력행, 2) = cmb종류
    Cells(입력행, 3) = Val(txt수량)
    Cells(입력행, 4) = Val(txt단가)
    Cells(입력행, 5) = Format(txt수량 * txt단가, "#,###")
    If ch할인여부 = True Then
        Cells(입력행, 6) = txt수량 * txt단가 * 0.1
    Else
        Cells(입력행, 6) = 0
    End If
    cmb종류.Locked = True
End Sub

• 시트에 입력

Private Sub cmd종료_Click()
    ['기타작업-2'!i1] = "컴활합격"
    //다음과 같이 입력할수 있다
    Unload Me
End Sub

• Unload Me

• txt매수 = spin매수

  폼이 화면과 메모리에서 사라지게 한다.