[1일차]오빠두 VBA 4주완성 기초강의

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

1)빈칸 선택 색깔넣기, 미제출 표기 매크로 작성

(알려주신 녹화 기능으로 보기좋게 미제출 가운데 정렬까지 넣어봤습니다)

2) 금일교육 두번째 미션 성별확인 VBA 작성

VBA를 활용한 BMI 자동계산 수식 작성

VBA를 활용한 성별 자동구분 수식 작성

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

1. VBA란 무엇인가?
2. VBA 두가지 핵심 명령어 Sub / Function (아직 정확한 개념이 부족함)
3. 매크로 활용법

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

VBA가 무작정 어렵다고만 생각했는데 이번 강의를 통해서 자신감이 생겼습니다.

오늘 배운 수식으로 응용하면 업무에 몇가지 적용할 수 있는 아이디어도 생겼습니다.

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

Sub MyTestMacro2()
'
' MyTestMacro2 매크로
'

'범위선택
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 = "미제출"

'미제출 가운데정렬
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

End Sub

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

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

'=VLOOKUP(찾을값,범위,열번호,일치옵션)..
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:G18"), 2, 0)

End Function