Vba에서 계승 함수를 만드는 방법(예제 포함)

계승은 주어진 양의 정수보다 작거나 같은 모든 양의 정수의 곱입니다.

예를 들어, 5 계승(5!로 표기)은 다음과 같이 계산됩니다.

• 5! = 5 * 4 * 3 * 2 * 1 = 120

다음 구문을 사용하여 VBA에서 계승 함수를 만들 수 있습니다.

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

이 함수를 만든 후에는 Excel의 셀에 =FindFactorial(A2) 와 같은 내용을 입력하여 셀 A2 에서 정수의 계승값을 찾을 수 있습니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA에서 계승 함수 생성

Excel에 다음과 같은 숫자 목록이 있고 각 숫자의 계승을 계산한다고 가정합니다.

이를 위해 VBA에서 다음 함수를 정의할 수 있습니다.

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

이 함수를 만든 후에는 B2 셀에 다음 수식을 입력하여 A2 셀 값의 계승을 계산할 수 있습니다.

 =FindFactorial( A2 )

그런 다음 이 수식을 클릭하여 B열의 나머지 각 셀로 드래그할 수 있습니다.

이제 B열에는 A열에 있는 각 정수의 계승이 표시됩니다.

예를 들어:

• 1! = 1
• 2! = 2 * 1 = 2
• 삼! = 3 * 2 * 1 = 6
• 4! = 4 * 3 * 2 * 1 = 24

등등.

참고 : VBA를 사용하지 않고 Excel에서 계승을 계산하려면 FACT 함수를 사용할 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 범위에 값을 추가하는 방법
VBA:범위의 평균값을 계산하는 방법
VBA:범위 내 행 수를 계산하는 방법