[1주차] 미션 결과 제출

1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!
(위쪽 카메라 버튼을 클릭해서 이미지를 삽입할 수 있습니다)

2. 이번 스터디에서 새롭게 알게되거나 유익했던 내용을 3가지로 요약해주세요!

1. 무궁 무진한 VBA 세계가 기대 됨.

2.  VBA Function 기능이 너무 신기하고 재밌습니다~

3. 하기 싶었던 작업이 있는게 곧 가능해 질거라는 생각에 더욱 기대됩니다.

3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.

아직까진 잘 따로오고 있습니다~

4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.

1. 미션 첫번째

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

2. 미션 두번째 (두번째 시트에서 진행)

Function FindGender(Name)

FindGender = WorksheetFunction.VLookup(Name, Range("B3:D8"), 3, 0)

End Function

수고하셨습니다~