Sub MyTestMacro1()
'
' MyTestMacro1 매크로
'

'범위 선택
Range("B2").CurrentRegion.Select

'빈셀 선택
Selection.SpecialCells(xlCellTypeBlanks).Select

'셀 채우기를 노란색으로 변경
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

'선택된 셀의 값을 "미제출" 입력
Selection.FormulaR1C1 = "미제출"

End Sub

'sub -> Sub Procedure -> 어떤 동작을 수행할 때 (실행문)
'function -> 어떤 값을 결과로 출력해야 할 때

'VLOOKUP, SUMIF, SUM, IF 함수..

'vlookup, sum, sumif...
'=VLOOKUP(찾을값, 범위, 열번호, 일치옵션)..
'=MySum(숫자1,숫자2)
Function MySum(num1, num2)

MySum = num1 + num2

End Function

'=BMI(몸무게, 키)
Function BMI(Weight, Height)

BMI = Weight / (Height / 100) ^ 2

End Function

'=ID_Gender(주민번호)
Function ID_Gender(ID)

ID_Gender = WorksheetFunction.IsOdd(Mid(ID, 8, 1))

If ID_Gender = True Then
ID_Gender = "남자"
Else
ID_Gender = "여자"
End If

End Function

'첫번째 미션 : 빈셀 찾기 및 노란색 채우기 후, 미제출 입력 매크로
'두번째 미션 : FindGender 함수 만들기

Function FindGender(Name)

FindGender = WorksheetFunction.VLookup(Name, Range("B2:D24"), 3, 0)

End Function