사용자 정의함수
~ 내가 만든 나만의 함수
1. 경우에 따라 달라질때 조건에 맞으면 If문, 조건에 안맞으면 Else문 써주기
Public Function fn00()
IF 비교식 Then
계산식
Else
계산식
End if
End Function
1-2 조건 두개이상 일때는 If문/ Elseif/ Else
Public Function fn00()
IF 비교식 Then
계산식
Elseif 비교식 Then
계산식
Else
계산식
End if
End Function
2. Select 일때는 Case
2-1 Select+ 문자,정확하게일치할때 = case
Select Case 값
Case A
계산식
Case B
계산식
End Select
2-2 Select+기호 = Case Is / Case 숫자 to 숫자 / Case Else
Select Case 값
Case Is >= 숫자 (부등호)
계산식
Case 숫자 to 숫자 (~에서 ~까지)
계산식
Case Else (그이외에는)
계산식
ㄱ. 개발도구 - 비주얼베이직 (보기-프로젝트탐색기)에 있음
ㄴ. 왼쪽 프로젝트패널 빈공간 우클릭, 삽입 - 모듈
ㄷ. Public Function Fn000 적어주기
*Public Function 오타나면 End Function 안나옴!
ㄹ. 저장누르고 엑셀로 돌아가기
=표에 범위 지정 후 fn00() 함수마법사 들어가서 찍어주기
*실무주의사항 : 엑셀통합문서가 아닌 매크로사용통합문서로 저장해야함/ 그냥 저장하면 날아감...
* 조건 1개일때
If 조건 Then
계산식
Else
계산식
End If
*조건 2개이상일때: 조건처리하고 남은것중에서 다시 한번 검사
*Elseif 중간에 여러개 추가 가능
If 조건 Then
Elseif 조건 Then
계산식
Else
계산식
End If
기출 1
전용면적 미만이냐 62
전용면적 <62
If 전용면적<62 Then
fn규모 = "소형"
ElseiF 전용면접<96 Then
fn규모 = "중형"
Else
fn규모 = "대형"
End If
저장누르고 엑셀로 돌아가기
=fn규모(D3) 찍어주면 자기가 알아서 다 찍어줌
기출2 2-2
Public Function fn5G추천여부(무게, 기능)
If 무게 <= 100 And 기능 = "○" Then
fn5G추천여부 = "추천"
Else
fn5G추천여부 = ""
End If
End Function
저장하고 엑셀 가서 표의 5G추천여부에
=fn5G추천여부(E2무게,G2기능) 쓰고 스크롤 내리기
기출 3회 2-1
Public Function fn총점(과제, 출석, 중간, 기말)
If 중간 >= 20 And 기말 >= 20 Then
fn총점 = 과제 + 출석 + 중간 + 기말 + 3
Else
fn총점 = 과제 + 출석 + 중간 + 기말 + 0
End If
End Function
저장하고 엑셀 가서 표의 총점에
=fn총점(D3,E3,F3,G3)
기출4 2-2
Public Function fn비고(취업률)
Select Case 취업률
Case Is < 0.5
fn비고 = "전문상담필요"
Ca
End Function
기출 11 p368
Public Function fn비고(현재강의수, 수강인원)
Select Case 수강인원 / 현재강의수
Case Is >= 20
fn비고 = "강의증설"
Case Is <= 5
fn비고 = "강의폐강"
Case Else
fn비고 = ""
End Function
기출5 2-5
기출 6회
Public Function fn포인트(구매횟수)
If 구매횟수 >= 3 Then
fn포인트 = "1회당 3"
Else
fn포인트 = "1회당 2"
End If
End Function
기출7 2-5
*if then 과 Else 바뀌어서 나올수 있다. 많은 조건이 Else로 가면됨
If 가입기간 <= 1 then
fn청약가점 = "가입기간미달"
Else fn청약가점 = 계산식
Else ...
End if
End Function
Public Function fn청약가점(무주택기간, 부양가족수, 가입기간)
If 가입기간 <= 1 Then
fn청약가점 = "가입기간미달"
Else
청약가점 = 무주택기간 * 2 + 부양가족수 * 5 + 가입기간
End If
End Function
기출 8회
Public Function fn가입상태(가입기간, 미납기간)
If 미납기간 >= 가입기간 Then
fn가입상태 = "해지예상"
easeIf 미납기간 = 0
fn가입상태 = "정상"
easeIf 미납기간 > 2
fn가입상태 = "휴먼보험"
Else: 미납기간& "개월 미납"
End If
End Function
기출 9회 2-5
*조건안에 조건 들어감
if 소득공제 = "일반의료비" Then
if 조건 Then
계산식
Else 계산식
End if
Else
fn비고 = 0
End if
Public Punction fn의료비보조(관계, 소득공제, 금액)
if 소득공제 = "일반의료비" Then
if "본인" Or 관계="자" Or 관계= "처" Then
fn의료비보조=금액*0.8
Else
fn의료비보조=금액*0.5
End if
Else
fn의료비보조 = 0
End if
End Function
기출 10회
'컴활' 카테고리의 다른 글
컴활 엑세스(ACCESS) 2016 #3. 3-1 보고서/컨트롤설정, 조회검색, 프로시저, 컨트롤생성+매크로, 매크로 (0) | 2021.06.09 |
---|---|
컴활 엑세스(ACCESS) 2016 #1.엑세스란, 기본키 외래키, 입력마스크, 유효성검사규칙, InStr 함수 (0) | 2021.06.03 |
컴활 1급 실기 #6. 배열함수 공식, 문제유형, 기타응용문제, 자주 출제 되는 함수 (0) | 2021.05.30 |
컴활 1급 실기 #5. Edate 함수, 배열 함수 (0) | 2021.05.25 |
컴활 1급 실기 #4. 고급필터, 조건부서식, AND조건 OR조건, LEFT RIGHT MID 함수, Rank EQ Rank AVG 함수, LARGE SMALL 함수 (0) | 2021.05.19 |