이 기사에서는 셀의 자릿수 합계를 계산하는 사용자 지정 함수를 만듭니다.

이 예의 샘플 데이터는 판매 데이터로 구성됩니다. 각 에이전트는 다른 제품을 판매했습니다. 셀에는 판매 된 품목 수와 제품 이름이 있습니다. 각 에이전트가 판매 한 총 품목을 찾고 싶습니다.

ArrowRaw

셀의 자릿수 합계를 계산하기 위해 “SumDigits”함수를 만들었습니다. 이 함수는 셀 범위를 입력으로 사용하고 셀의 자릿수 합계를 반환합니다.

ArrowOutput

논리 설명

셀의 자릿수 합계를 계산하기 위해 사용자 지정 함수 “SumDigits”를 만들었습니다. 이 함수에서 우리는 셀에서 문자열의 길이를 찾은 다음 문자열의 첫 번째 문자에서 마지막 문자까지 반복합니다. 그런 다음 문자열에서 찾은 숫자 값을 찾아 추가하여 자릿수 합계를 얻습니다.

코드 설명

중간 (숫자, i, 1)

Mid 함수는 기본 문자열에서 하위 문자열을 추출하는 데 사용됩니다.

위의 코드는 메인 문자열에서 한 번에 한 문자를 추출합니다.

IsNumeric (값)

IsNumeric 함수는 주어진 값이 숫자인지 확인하는 데 사용됩니다.

Val (값)

Val 함수는 문자열을 숫자 값으로 변환하는 데 사용됩니다.

아래 코드를 따르세요

Option Explicit

Function SumDigits(Number As Variant)

Dim i As Integer

For i = 1 To Len(Number)

If IsNumeric(Mid(Number, i, 1)) Then

SumDigits = SumDigits + Val(Mid(Number, i, 1))

End If

Next i

End Function

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요