#10 실습, 목표 금액 산출하기
http://www.yes24.com/Product/Goods/84909299
1) A 셀에는 예상 목표 금액을 산출
2) B 셀에는 목표 달성여부를 판단
2.1) 두 사업무 모두 목표를 달성한 경우 “목표 달성“을 출력
2.2) 한사업부만 달성한 경우 “한 사업부 목표 달성＂을 출력
2.3) 모두 실패한 경우 “목표 미달성, 분발 하시오.” 출력
Sub F10_01()
Dim CM_SALSE01 As Long
Dim CM_SALSE02 As Long
Dim EM_SALSE01 As Longf
Dim EM_SALSE02 As Long
Dim GM_SALSE01 As Long
Dim GM_SALSE02 As Long
Dim R_MASSAGE As String
CM_SALSE01 = Worksheets("SHEET1").Cells(6, 2).Value
CM_SALSE02 = Worksheets("SHEET1").Cells(6, 4).Value
EM_SALSE01 = (CM_SALSE01 * 30) / 18
EM_SALSE02 = (CM_SALSE02 * 30) / 18
Worksheets("SHEET1").Cells(6, 3).Value = EM_SALSE01
Worksheets("SHEET1").Cells(6, 5).Value = EM_SALSE02
GM_SALSE01 = Worksheets("SHEET1").Cells(7, 3).Value
GM_SALSE02 = Worksheets("SHEET1").Cells(7, 5).Value
If EM_SALSE01 > GM_SALSE01 And EM_SALSE02 > GM_SALSE02 Then '조건 1
R_MASSAGE = "목표달성"
ElseIf EM_SALSE01 > GM_SALSE01 And EM_SALSE02 > GM_SALSE02 Then '조건 2
R_MASSAGE = "한 사업부 목표달성"
Else '조건 3
R_MASSAGE = "목표 미 달성, 분발 하세요."
End If
Worksheets("SHEET1").Cells(8, 2).Value = R_MASSAGE
End Sub
