/ / Excel VBA의 사용자 지정 평균 함수

Excel VBA의 사용자 지정 평균 함수

아래에서 우리는 Excel VBA 그것은 사용자 정의 함수 계산하는 평균 이상 값이고 평균이되어서는 안되는 하나 이상의 값을 제외하고 무작위로 선택된 범위의 값.

상태:

Excel VBA의 사용자 지정 평균 함수

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

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

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

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

우리 기능의 이름은 CUSTOMAVERAGE입니다. 대괄호 사이의 부분은 Excel VBA에 범위와 두 개의 정수 변수를 입력으로 제공한다는 것을 의미합니다. 우리는 우리의 범위를 rng라고 부르며 하나는 Integer 변수, lower는 하나의 Integer 변수를 upper라고 부릅니다. 그러나 어떤 이름도 사용할 수 있습니다.

3. 그런 다음 Range 객체와 Integer 유형의 두 변수를 선언합니다. Range 객체 셀을 호출합니다. 우리가 호출하는 하나의 Integer 변수와 우리가 호출하는 하나의 Integer 변수.

Dim cell As Range, total As Integer, count As Integer

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

For Each cell In rng

Next cell

참고 : rng와 셀은 무작위로 여기에서 선택됩니다. 모든 이름을 사용할 수 있습니다. 나머지 코드에서이 이름을 참조하는 것을 잊지 마십시오.

5. 다음으로 두 값 (위와 아래) 사이에 있으면이 범위의 각 값을 확인합니다. true 인 경우 셀의 값만큼 total을 증가시키고 count를 1 씩 증가시킵니다. 다음 코드 행을 루프에 추가합니다.

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6.이 함수의 결과 (원하는 평균)를 반환하려면 루프 외부에 다음 코드 행을 추가합니다.

CUSTOMAVERAGE = total / count

7. 함수를 끝내는 것을 잊지 마라.

End Function

8. 이제이 함수를 다른 Excel 함수처럼 사용하여 두 값 사이의 숫자 평균을 계산할 수 있습니다.

결과:

사용자 정의 평균 함수 결과

수표로 모든 값을 삭제할 수 있습니다.10보다 작고 30보다 크고 Excel에서 표준 Average 함수를 사용하여 Excel에서 사용자 지정 평균 함수와 동일한 평균을 계산하는지 확인합니다.

사용자 정의 평균 기능 검사

우리의 커스텀 평균 함수가 작동합니다! 참고 :이 기능은이 통합 문서에서만 사용할 수 있습니다.

또한 읽으십시오 :