1주차 과제

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

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

1.알트키로 도형을 셀에 맞추는 기능 (단순하지만 몰라서 불편했던 기능입니다)

2.VBA 기능(자동화)

3.업데이트 된 최신정보 (22년 6월 부로 업데이트되어 파일에 매크로기능을 사용 여부로 공유파일참조)

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

초보자도 따라갈 수 있게 제작해주셔서 감사합니다
전체적으로 이해가 잘 되었으며 아직까지는 부족했던점은 개인적으로 못느꼇고 중간중간 최신정보 및
간단한 꿀팁정보들도 같이 숙지할 수 있어서 좋았습니다

과제를 하면서 궁금한점을 묻지못하는점이 개인적으로는 아쉬웠지만 충분히 게시판을 이용하면 해결가능할 것 같습니다

궁금했던 내용 (그냥 기록용으로 적습니다)

과제내용은 해당이름으로 성별을 찾는 함수를 만들라고 하셨습니다

교육 영상에서도 설명하셨듯이 실무에서는 업데이트 되는 내용에 반영이 될 수 있게 하고 싶어서

FindGender = WorksheetFunction.VLookup(Name, Range("B2").CurrentRegion, 2, 0)

으로 작성해보았는데 오류가 생겼습니다

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

Sub MyTestMacro1()
'
' MyTestMacro1 매크로
'

'범위 선택
'Range("B2:G15").Select
'B2기준 점으로(자동적으로 확장되는 범위를 받는 방법)
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 Test2()

Range("B2").CurrentRegion.Select

End Sub

'sub : sub procedure > 어떤 동작을 수행할 때(실행문)
'function > 어떤 값을 결과로 출력해야 할 때 (VLOOKUP, SUMIF, SUM, IF 함수...)

'vlookup, sum, sumif..
'=VLOOKUP(찾을값,범위,열번호,일치옵션)...(인수들)

'MySum(숫자1,숫자2)

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)

'8번째 의 첫벗째숫자 추출
ID_Gender = WorksheetFunction.IsOdd(Mid(ID, 8, 1))

If ID_Gender = True Then
ID_Gender = "남자"
Else
ID_Gender = "여자"
End If

'WorksheetFunction.IsOdd : 홀짝

End Function

Function FindGender(Name)

FindGender = WorksheetFunction.VLookup(Name, Range("B2:G18"), 2, 0)
'FindGender = WorksheetFunction.VLookup(Name, Range("B2").CurrentRegion, 2, 0)

'자동적으로 확장되는 범위값 적용 안되는이유?
'>

End Function