/ / Excel VBA의 사용자 정의 함수

Excel VBA의 사용자 정의 함수

아래에서 우리는 Excel VBA 그것은 사용자 정의 함수. Excel에는 많은 기능 모음이 있습니다. 대부분의 상황에서 이러한 기능을 사용하면 작업을 완료하는 데 충분합니다. 그렇지 않은 경우 사용자 정의 함수라는 사용자 정의 함수를 만들거나 사용자 정의 Excel 기능. 다른 Excel 기능과 마찬가지로 사용자 정의 기능에 액세스 할 수 있습니다.

우리는 무작위로 선택된 범위의 짝수의 합을 찾는 SUMEVENNUMBERS 함수를 생성하려고합니다.

상태:

Excel VBA의 사용자 정의 함수

사용자 정의 함수는 모듈에 배치해야합니다.

1. Visual Basic Editor를 열고 Insert, Module을 누릅니다.

2. 다음 코드 행을 추가하십시오.

Function SUMEVENNUMBERS(rng As Range)

우리 함수의 이름은 SUMEVENNUMBERS입니다. 대괄호 사이의 부분은 Excel VBA에 입력 범위를 지정한다는 의미입니다. 우리는 우리의 범위를 rng라고 부르지 만, 당신은 어떤 이름이라도 사용할 수 있습니다.

3. 다음으로 Range 객체를 선언하고 셀을 호출합니다.

Dim cell As Range

4. 우리는 무작위로 선택된 범위에서 각 셀을 확인하려고합니다 (이 범위는 임의의 크기 일 수 있음). Excel VBA에서는이를 위해 For Each Next 루프를 사용할 수 있습니다. 다음 코드 행을 추가하십시오.

For Each cell In rng

Next cell

참고 : 셀은 무작위로 여기에서 선택되며 임의의 이름을 사용할 수 있습니다.

5. 다음으로이 범위의 각 값이 짝수 일지 여부를 확인합니다. 우리는 이것을 위해 Mod 연산자를 사용합니다. Mod 연산자는 나눗셈의 나머지 부분을 제공합니다. 그래서 7 mod 2는 1을 줄 것입니다. 7을 2로 나누어 (3 회) 나머지 1을 얻습니다. 이렇게 말하면 숫자가 짝수인지 여부를 쉽게 확인 할 수 있습니다. 2로 나눈 나머지의 수가 0 인 경우에만 수는 짝수입니다. 8 mod 2는 0을, 8은 정확히 2로 4를 나눈 값이므로 8이 짝수입니다. 다음 If 문을 For Each Next 루프에 추가하십시오.

If cell.Value Mod 2 = 0 Then

End If

6.이 명령문이 true 인 경우에만 값을 SUMEVENNUMBERS에 추가합니다. If 문에 다음 코드 줄을 추가합니다.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. 루프를 벗어나는 기능을 끝내는 것을 잊지 마십시오.

End Function

8. 이제 임의의 다른 Excel 함수와 마찬가지로이 함수를 사용하여 무작위로 선택된 범위의 짝수를 더할 수 있습니다.

결과:

사용자 정의 함수 결과

잘 했어! Excel VBA에서 사용자 정의 함수가 얼마나 쉬운 지 참고 :이 기능은이 통합 문서에서만 사용할 수 있습니다.

또한 읽으십시오 :