[1주차] VBA 기초 활용 4주 스터디 미션 제출

1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!

열공!열공!

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

난생 처음배워보는 것이라 시작부터 끝까지 모든 것이 다 새롭고 유익해서 고르기가 힘들지만 그래도 3가지 요약하자면,

1) VBA, 파이썬 등의 개략적인 소개 이야기

2) 자동화, 프로그램이 실행되는 기본적인 원리의 이해

3) 범위 업데이트 되는 구간을 선택할 수 있는 코드  레인지. 쿼런트리진. 셀렉트 + 나만의 함수를 만들 수 있는 것!!

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

저는 엑셀도 초보인데, 오빠두 엑셀 강의를 통해 엑셀을 하나하나 익혀나갔고, 샘의 동영상을 통해 어느 덧 발전하는 자신을 발견하였습니다. VBA라는 것은 감히(?) 저는 할 수 없는 것이라고 생각했었는데, 오빠두 샘이 4주 스터디 모집한다는 공고를 본 순간 왠지 샘과 함께라면 할 수 있을 것 같은 믿음이 생겨서 용기내어 스터디에 참여하였습니다. 첨에 msgbox 입력해서 인사 나오는 것 부터 '띠용!'이고 너무 즐거웠고, 나중에 나만의 함수를 만들 수 있는 것 보고 기절하는 줄 알았습니다. 스터디 열어주셔서 진심으로 감사드립니다.!

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

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 test1()

Range("B2").CurrentRegion.Select

End Sub

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

'worksheetfunction.IsOdd(ID_Gender)

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

End Function

'두번째 미션: FindGender 함수

'=FindGender(name) 이름을 입력하여 해당하는 성별 찾기

Function FindGender(Name)
FindGender = WorksheetFunction.VLookup(Name, Range("B2:C18"), 2, 1)

End Function