시나공_서울여대

기타 자격증/1급실기·2013. 9. 10. 17:49

 

01 엑셀.zip                                                                   

 

 

기출문제

01    http://goo.gl/se2cWw

03    http://goo.gl/6bYlAj

 

실전모의고사 A형

http://goo.gl/ZK6u1B

 

04 부록.zip

 

계산작업문제모음.xlsm

 

실전모의고사(액세스).pdf

 

실전모의고사(엑셀).pdf

 

최신기출문제(액세스).pdf

 

최신기출문제(엑셀).pdf

 

컴활1급(통합)암호.txt

 

* 배열수식 예제

 판매분석차트.xlsx교학사 예제

 

 

 

Public Function ks보너스지급율(월평균임금, 전년월평균임금)
If (월평균임금 - 전년월평균임금) / 월평균임금 >= 0.05 Then
ks보너스지급율 = 0.05
Else
ks보너스지급율 = 0.1
End If

End Function

 

Private Sub lst제품목록_Click()
    txt제품명 = lst제품목록
End Sub

 

 

 

Private Sub UserForm_Initialize()
    txt판매일자 = Date
        
    lst제품목록.RowSource = "i4:i13"
   
    cmb결재형태.AddItem "현금"
    cmb결재형태.AddItem "카드"
    cmb결재형태.AddItem "어음"
End Sub

 

 

Private Sub cmd등록_Click()
   
    If txt제품명 = "" Then
        MsgBox "제품명을 입력하시오."
    ElseIf txt수량 = "" Then
        MsgBox "수량을 입력하시오."
    ElseIf txt단가 = "" Then
        MsgBox "단가를 입력하시오."
    ElseIf cmb결재형태 = "" Then
        MsgBox "결재형태를 입력하시오."
    Else
        기준행위치 = [b3].Row
        기준범위행수 = [b3].CurrentRegion.Rows.Count
        입력행 = 기준행위치 + 기준범위행수
        Cells(입력행, 2) = CDate(txt판매일자)
        Cells(입력행, 3) = txt제품명
        Cells(입력행, 4) = txt수량
        Cells(입력행, 5) = txt단가
        Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
        Cells(입력행, 7) = cmb결재형태
   
        txt제품명 = ""
        txt수량 = ""
        txt단가 = ""
        cmb결재형태 = ""
    End If
   
End Sub

 

 

Private Sub cmd조회_Click()
    기준행위치 = [b3].Row
    기준범위행수 = [b3].CurrentRegion.Rows.Count - 1
    입력행 = 기준행위치 + 기준범위행수
    txt판매일자 = Cells(입력행, 2)
    txt제품명 = Cells(입력행, 3)
    txt수량 = Cells(입력행, 4)
    txt단가 = Cells(입력행, 5)
End Sub

 

Private Sub cmd종료_Click()
    Unload Me
End Sub

 

댓글