[1주차] VBA 4주완성

Sub MyTestMacro1()
'
' MyTestMacro1 매크로
 
 
'1주차 미션 1단게
 
 
'확장선택
    Range("B2").CurrentRegion.Select
 
'빈셀선택
    Selection.SpecialCells(xlCellTypeBlanks).Select
 
'셀 채우기를 노란색으로 변경
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 59407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
'선택된 셀의 값을"미제출"을 입력
 
    Selection.FormulaR1C1 = "미제출"
 
End Sub
 
'1주차 미션 2단계
 
'=FindName(사용자이름)
 
 
Function FindGender(Name)
 
    FindGender = WorksheetFunction.VLookup(Name, Range("b3:c17"), 2, 0)
 
 
'셀범위를 임의로 설정하는법은 모르겠네
 
 
End Function