#10 실습, 목표 금액 산출하기

http://www.yes24.com/Product/Goods/84909299

소설처럼 읽고 이해하는 엑셀 VBA 프로그래밍

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

https://youtu.be/ayFJDr9fAl0