본문 바로가기
VBA

VBA 4주 완성 : 엑셀업무 자동화 -1주차 2교시-

by keumkang 2022. 7. 2.
반응형

빈셀자동채우기
Sub MyTestMacro1()

' MyTestMacro1 매크로

'새로 추가된 데이터 자동으로 인식해서 범위 선택하기
'currentregion = 전체범위 한번에 선택하는 명령어
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

 

 

비만도계산
'BMI=(몸무게,키)
Function BMI(Weight, Height)

BMI = Weight / (Height / 100) ^ 2

End Function

비만도 셀에 내가 VBA 모듈에서 만든 함수로 바로 입력 할 수 있습니다!

 

주민번호 성별추출
'=ID_Gender(주민번호)
Function ID_Gender(ID)

'isodd 함수는 홀짝 확인 함
ID_Gender = WorksheetFunction.IsOdd(Mid(ID, 8, 1))

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

End Function

 

 

미션 1 ▶ 빈셀 찾기 및 노란색 채우기 후, 미제출 입력 매크로
Sub MyTestMacro1()

' MyTestMacro1 매크로

'새로 추가된 데이터 자동으로 인식해서 범위 선택하기
'currentregion = 전체범위 한번에 선택하는 명령어
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

 

미션2 ▶ FindGender 함수 만들기(feat. Vlookup 함수 사용 그리고 CurrentRegion 함수 암됨..)
Function FindGender(Name)

'범위 지정을 Range("B2").CurrentRegion.Select 함수 사용을 하려고 하였으나 안됩니다.. ㅜ
FindGender = WorksheetFunction.VLookup(Name, Range("B3:G17"), 2, False)

End Function

반응형

댓글0