우리는 사용자 정의 함수를 생성 엑셀 VBA에서 프로그램을보고 아래. 엑셀 함수의 큰 컬렉션을 가지고있다. 대부분의 경우 이러한 기능은 작업을 완수하기에 충분하다. 그렇지 않다면, 당신은 당신의 자신의 함수라는 사용자 정의 함수 또는 사용자 정의 엑셀 함수를 만들 수 있습니다. 당신은 다른 엑셀 기능과 같은 사용자 정의 기능에 액세스 할 수 있습니다.

우리는 무작위로 선택된 범위의 짝수의 합을 발견하는 기능이라고 SUMEVENNUMBERS를 만들려고합니다.

상황 :

User Defined Function in Excel VBA

사용자 정의 함수는 모듈에 배치 될 필요가있다.

  1. Visual Basic 편집기 및 삽입 모듈을 클릭하십시오.

다음 코드 줄을 추가합니다 :

Function SUMEVENNUMBERS(rng As Range)

우리의 기능의 이름은 SUMEVENNUMBERS입니다. 괄호 사이의 부분은 우리가 입력 엑셀 VBA에게 범위를주는 것을 의미한다. 우리는 우리의 범위 RNG 이름,하지만 당신은 어떤 이름을 사용할 수 있습니다.

  1. 다음으로, 우리는 Range 개체를 선언하고 세포 호출합니다.

Dim cell As Range

  1. 우리는 무작위로 선택된 범위의 각 셀을 확인하려면 (이 범위는 임의의 크기 일 수있다). 엑셀 VBA에서는 이에 대한 각 다음 루프의 경우를 사용할 수 있습니다. 다음 코드 줄을 추가합니다

For Each cell In rng

Next cell

참고 : 세포가 무작위로 여기 선택, 당신이 어떤 이름을 사용할 수 있습니다.

  1. 다음으로, 우리는 심지어 여부이 범위의 각 값에 대해 확인한다. 우리는이에 모드의 연산자를 사용합니다. 국방부 연산자는 나눗셈의 나머지를 제공한다. 그래서 7 모드 (2)이 말씀을 데 1의 나머지를 제공하기 위해 1 7 2 (3 회)로 나누어 줄 것, 그것은 짝수인지 여부를 확인하기 쉽습니다. 2로 나눈 수의 나머지가 0 인 경우에만, 수도있다. 모드 8 2 8 2 정확히 4 번으로 나누어 0 제공하고, 따라서 8도이다. 각 다음 루프를 들어 if 문에 다음을 추가합니다.

If cell.Value Mod 2 = 0 Then

End If

이 문장이 참 6. 경우에만, 우리는 SUMEVENNUMBERS에 값을 추가합니다.

If 문에 다음 코드 줄을 추가합니다.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

  1. 음주 (루프 외부) 기능을 종료하는 것을 잊지.

End Function

  1. 이제 당신은 무작위로 선택된 범위의 짝수의 합을 찾기 위해, 다른 모든 엑셀 기능처럼,이 기능을 사용할 수 있습니다.

결과 :

User Defined Function Result

잘 했어! 즉 엑셀 VBA에서 쉽게 사용자 정의 함수는 방법입니다.

참고 :이 기능이 통합 문서에서만 사용할 수 있습니다.