[1주차] VBA Study Note

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

 

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

2-1) 시트별 안내창 만들기(msgbox 활용)

2-2) 스터디를 하기 전 사용하지 않았던 개발도구를 사용하여 VBA 기능

2-3) 다른 컴퓨터나 타인이 매크로 파일을 실행할 때 필요한 설정과 매크로 녹화, 매크로 버튼 생성, 새롭게 배운 함수를 알게되어 유익했습니다.

 

 

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

강의를 들으면서 실시간으로 적용해봄으로써, 나만의 매크로를 설정하는 방법을 배울 수 있었습니다. 또한, 어려운 내용을 쉽게 풀어 설명해준 강사님의 강의력이 좋았었고 재미있게 다가왔습니다.

 

 

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

ㅡㅡㅡㅡ

Function Mysum(num1, num2)

Mysum = num1 + num2

End Function

ㅡㅡㅡㅡ

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

'WorksheetFunction.IsOdd (ID_Gender)

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

End Function

ㅡㅡㅡㅡ

Function FindGender(Name)

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

'Worksheetfunction.VLookup(name,)

End Function

ㅡㅡㅡㅡ

여기는 개인적으로 "빈칸 확인 취소 버튼"을 만들어 보려다가 실패한 함수입니다...

Sub Test2()

Range("B2").CurrentRegion.Select

Selection.SpecialCells.xlCellTypeConstants.Select

With Selection.inrerior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = White
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Selection.FormulaR1C1 = "."

End Sub