[1주차] VBA 4주 완성 특별 스터디 미션 제출

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

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

VBA 를 통해 나만의 함수를 만들 수 있다.

매크로 기록하기를 통해 모르는 함수를 찾아서 응용할 수 있다.

VBA를 활용하면 자동화를 쉽게 만들 수 있다.

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

VBA가 프로그래밍 언어라고 생각해서 다소 어려울거나 생각했는데 비전공자도 쉽게 접근할 수 있었습니다.

영타와 한타를 옮기는 과정에서 빠른 전환이 쉽지 않아 오타가 발생해 오류가 발생한 걸 쉽게 찾지 못했습니다.

엑셀의 활용 능력이 더 극대화 될 것으로 기대됩니다.

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

Sub MyTestMacro()
'
' MyTestMacro 매크로
'

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

'빈셀 선택
Selection.SpecialCells(xlCellTypeBlanks).Select
'빈셀 "미제출" 입력

Selection.FormulaR1C1 = "미제출"
'빈셀 노란색 채우기
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
'sub->sub procedure-> 어떤 동작을 수행할 때(실행문)
'function

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:G17"), 2, False)
End Function