[컴활1급] Excel : 고객관리 프로시저 [엑셀 프로시저 기출문제 3회]

---

- Excel : 고객관리 프로시저 [프로시저 기출문제 3회]

' 고객관리 단추 클릭
Private Sub cmd고객관리_Click()
    고객관리.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    lst결제방식.AddItem "현금"
    lst결제방식.AddItem "카드"
    lst결제방식.AddItem "포인트"
End Sub

' 입력 단추 클릭
Private Sub cmd입력_Click()
    입력행 = [A4].Row + [A4].CurrentRegion.Rows.Count
    Cells(입력행, 1) = txt고객명.Value
    If opt고급.Value = True Then
    Cells(입력행, 2) = "고급"
    ElseIf opt실버.Value = True Then
    Cells(입력행, 2) = "실버"
    Else
    Cells(입력행, 2) = "일반"
    End If
    Cells(입력행, 3) = txt매출금액
    Cells(입력행, 4) = lst결제방식.Value
    If lst결제방식.Value = "현금" Then
    Cells(입력행, 5) = txt매출금액.Value * 0.1
    ElseIf lst결제방식.Value = "카드" Then
    Cells(입력행, 5) = txt매출금액.Value * 0.05
    Else
    Cells(입력행, 5) = 0
    End If
End Sub

' 폼 종료
Private Sub cmd종료_Click()
    [D2] = Format(Date, "yyyy년 MM월 dd일 aaaa")
    [D2].Font.Bold = True
    Unload Me
End Sub

---

고객관리 프로시저 실행 결과

---