오답노트

엑셀

01

1. 기본작업

1. 고급 필터
   =OR(AND(LEFT(D3,2)="청약",B3="여"),AND(E3="여의도",F3>=150000))

2. 계산작업

2. 만기금액

=ROUNDUP(FV([연이율]/12,[계약기간(월)],-[월불입액],,IF([납입시점]="월초",1,0)),-3)

3. 총 납입 개월 수
   =TEXT(QUOTIENT(DAYS360(C3,TODAY()),30),"00개월")

4. 비고

Public Function fn비고(지점명, 월불입액)
If 월불입액 >= 150000 And (지점명 = "명동" Or 지점명 = "여의도") Then
        fn비고 = "15만원이상-" & 지점명 & Format(월불입액, "#,###")
    Else
        fn비고 = ""
End If

End Function

Public Function fn비고(고객코드)
If Mid(고객코드, 5, 1) <= "3" Then
    fn비고 = "우수고객"
ElseIf Mid(고객코드, 5, 1) <= "6" Then
    fn비고 = "신규고객"
Else
    fn비고 = ""
End If
End Function

같은거

Public Function fn비고(고객코드)
Select Case Mid(고객코드, 5, 1)
    Case 1 To 3
        fn비고 = "우수고객"
    Case 4 To 6
        fn비고 = "신규고객"
    Case Else
        fn비고 = ""
End Select
End Function

5. 성별 + 학과명 + 면접 평균

=AVERAGE(IF((조건1)*(조건2),범위))

=AVERAGE(IF(($D$3:$D$34=$A38)*IFERROR(FIND("정보",$A$3:$A$34)>=1,FALSE),$G$3:$G$34))

6. 최대미수금액 고객명

   =E16*HLOOKUP(E16,$F$23:$I$25,MATCH($C16,{"합정","신촌"},-1)+1)

3. 분석작업

1. 자동필터
   [필터] - [텍스트 필터] - [사용자 지정 자동 필터]

4. 기타작업

1. 검색 버튼 클릭 + ListIndex

   참조행 = cmb가입자명.ListIndex + 4
   txt상품종류 = Cells(참조행, 3)
   txt지점명 = Cells(참조행, 4)
   txt성별 = Cells(참조행, 5)
   txt가입일 = Cells(참조행, 6)
   txt납입지점 = Cells(참조행, 7)
   txt연이율 = Format(Cells(참조행, 8), "0.0%")
   txt월불입액 = Format(Cells(참조행, 9), "#,####")
   

2. 종료 버튼 + MSGBOX

MSGBOX FORMAT(TIME, "AMPM HH시 MM분") & " 폼을 종료합니다.", "폼 종료"
UNLOAD ME

MSGBOX "전체 예매 건수는 " & [C4].CurrentRegion.Rows.Count - 1 & "건입니다."
unload me

3. 옵션 선택 + 시트 이름 확인

cmb학과명.RowSource = "'기타작업-1'!B5:B8"
opt1학년 = True
간.단.

4. 입력 버튼

Private Sub cmd입력_Click()
입력행 = [B2].Row + [B2].CurrentRegion.Rows.Count
Cells(입력행, 2) = 입력행 - 3 & txt성명
Cells(입력행, 3) = cmb학과명
If opt1학년 = True Then
    Cells(입력행, 4) = "1학년"
ElseIf opt2학년 = True Then
    Cells(입력행, 4) = "2학년"
ElseIf opt3학년 = True Then
    Cells(입력행, 4) = "3학년"
Else
    Cells(입력행, 4) = "4학년"
End If
Cells(입력행, 5) = Val(txt학과성적)
Cells(입력행, 6) = Val(txt어학테스트)
Cells(입력행, 7) = Val(txt면접)
End Sub

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

• 입력 + ListIndex

Private Sub cmd예매_Click()
참조행 = cmb공연명.ListIndex + 5
입력행 = [c4].Row + [c4].CurrentRegion.Rows.Count
Cells(입력행, 3) = Date
Cells(입력행, 4) = txt공연장
Cells(입력행, 5) = cmb공연명
Cells(입력행, 6) = txt좌석수
Cells(입력행, 7) = Cells(참조행, 12)
Cells(입력행, 8) = Cells(참조행, 13)
Cells(입력행, 9) = Format(Cells(입력행, 6) * Cells(입력행, 8), "#,###원")
txt공연장.SetFocus
End Sub

숫자는 VAL() 안에 써줌

5. 종료 버튼 클릭 프로시저 + caption

MSGBOX Me.Caption & "폼을 종료합니다."
UNLOAD ME

• 폰트 굵게!

[d2] = Format(Date, "yyyy년 mm월 dd일 aaaa")
[d2].Font.Bold = True
Unload Me

6. 폼 초기화 프로시저

lst결제방식.AddItem "현금"
lst결제방식.AddItem "카드"
lst결제방식.AddItem "포인트"