비주얼베이직(Visual Basic, VBA) 엑셀(Excel)에서 N까지의 합 구하는 함수 만들기

비주얼베이직(Visual Basic, VBA) 엑셀(Excel)에서 N까지의 합 구하는 함수 만들기

비주얼베이직(Visual Basic, VBA) 엑셀(Excel)에서 N까지의 합 구하는 함수 만들기

엑셀 작업을 하다보면 다양한 함수들을 매우 많이 사용합니다. 하지만, 이 함수들은 모든 것들을 제공하지 않습니다. 그래서 경우에 따라서는 IF문등과 혼합해서 사용하거나, 아니면, VBA에서 원하는 함수를 지정해서 사용합니다. 이번 포스팅에서는 저또한 제가 원하는 기능에 대해서 하나 만들어서 관련된 부분에 대해서 공유를 드리고자 합니다. 

일단, 제가 만든 부분은 지정된 숫자 N까지의 합을 구하는 함수를 만들고자 합니다. 

 

2가지 부분을 활용하도록 하겠습니다. 

1. 함수 생성 부분

비주얼베이직(Visual Basic, VBA) 함수 선언, 엑셀에서 선언한 함수 활용하기

비주얼베이직(Visual Basic, VBA) 함수 선언, 엑셀에서 선언한 함수 활용하기

2. 반복문 

비주얼베이직(Visual Basic, VBA) 반복문 살펴보기 01(for-loop, for-each loop)

비주얼베이직(Visual Basic, VBA) 반복문 살펴보기 01(for-loop, for-each loop)

일단, 구조상 입력받은 숫자를 바탕으로 0부터 계속 반복하면서, 입력받은 숫자보다 반복하는 숫자가 크기 전까지 계속 반복하면서 그 숫자을 더해 갈 것입니다. 그럼 이 부분에 대해서 간단히 코드로 살펴보겠습니다. 

Public Function To_N_Sum(Length As Integer) As Integer
    Dim Var As Integer
    Var = 0
    For i = 0 To Length
        If i <= Length Then
            Var = Var + i
        End If
    
    Next
    To_N_Sum = Var
End Function
 

이와 같은 부분들을 다음과 같이 Visual Basic에 적용하면 다음과 같습니다. 

입력 받은 코드 

그럼 이 부분을 바탕으로 Excel에서 실행하면 다음과 같은 결과를 얻을 수 있습니다. 

적용된 코드의 실행결과 

즉, 0부터 100까지의 합을 구한 결과입니다. 이와 같은 형태로 지정된 숫자까지의 합을 구할 수 있습니다. 

비주얼베이직(Visual Basic, VBA) 실행하기

비주얼베이직(Visual Basic, VBA) 실행하기

이번 포스팅에서는 비주얼베이직(Visual Basic, VBA) 엑셀(Excel)에서 N까지의 합 구하는 함수 만들기라는 주제로 포스팅을 해봤습니다. 혹 궁금하신 점이나 문의 사항이 있으시면 언제든지 댓글 및 방명록에 글 남겨주시길 바랍니다. 감사합니다.