홈> 업무단축키>기본가이드

[VBA 제 32강] 사용자정의함수(숫자만)

자동화

페이스북 퍼가기 | 트위터 퍼가기 | 네이트온 보내기 | 복사

콘텐츠 타입 MS 오피스 엑셀 2003(2007, 2010가능), Windows XP 이상

용량0KB

즐겨찾기

이용등급 유료 (회원권 or 단품 구매)

평생이용

엑셀쿠키는 한 번의 다운로드로 평생 이용하실 수 있습니다. 프로그램과 데이터를 고객의 PC에 저장하여 사용하는 형식이라 안전하게 사용 가능합니다. 이용 기간에 따른 추가 비용이 발생하지 않아 매우 경제적입니다.

맞춤형

중소기업의 개별 특성, 다양한 업무를 상황별로 고려하여 제작된 프로그램을 업데이트합니다. 분야별 5,000여 개의 프로그램 중 내 업무에 맞는 프로그램을 다운받는 맞춤형 서비스입니다.

쉬운 활용

쿠키 프로그램은 MS Excel의 기본 사용법만 알면 즉시 사용할 수 있는 매운 쉬운 프로그램으로 누구나 손쉽게 배우고 사용할 수 있습니다.

중소기업의 모든 업무자동화!

엑셀쿠키로 모두 해결하세요!

Microsoft Excel 표준

쿠키의 업무자동화 프로그램은 VBA 코드로 개발된 제품으로
MS Excel 프로그램 기반으로 사용 가능하며,
자체적으로 개발한 기능은 물론,
MS Excel의 강력한 기능을 모두 사용하실 수 있습니다.

엑셀쿠키는 기업의 생산성을 높이는 업무자동화 지원 프로그램입니다.

제품 상세정보

[ 기초 강좌 ]

제 32 강

사용자정의함수(숫자만)

Excel의 생명이라고 할 수 있는 사용자정의함수(숫자만)

그 사용법을 알아봅니다.

이럴 때 필요해요

사용자가 입력한 데이터중에 숫자만 따로 나오게 할 떄 필요합니다.

이렇게 사용해요

예시로, 아래의 데이터를 작성해봅시다.

아무셀에 B6의 데이터를 입력 했을 때 숫자(3000)만 나오게 해봅시다.

먼저, 모듀시트에 Function프로시저를 등록해 봅시다.

Function 숫자만(문자열) As Variant
    Dim strTemp As String
    Dim intNum As Integer
    For intNum = 1 To Len(문자열)
        If IsNumeric(Mid(문자열, intNum, 1)) Then
            strTemp = strTemp & Mid(문자열, intNum, 1)
        End If
    Next intNum
    숫자만 = Val(strTemp)
End Function

참고로, 위 프로시저의 내용 중 If 조건문, 즉 If IsNumeric(Mid(문자열, intNum, 1)) Then 부분에서 사용된

Mid(문자열, intNum, 1)는 Excel에서 MID 함수를 사용하는 것과 동일합니다.

그리고, 아무 빈 셀이나 선택하신 다음, [함수마법사]-[사용자 정의]에서 '숫자만'이라는 이름의

사용자정의 함수를 실행하여 아래의 그림과 같이 인수를 입력하고 확인합니다.