이 기사에서는 통합 문서의 모든 워크 시트에 대해 정의 된 범위의 셀 합계를 계산하는 사용자 지정 함수를 만듭니다.

이 예의 원시 데이터는 여러 시트로 구성됩니다. 각 시트에는 영업 팀의 데이터가 포함되어 있으며 여기에는 영업 사원의 이름과 시트 이름으로 지정된 날짜에 판매 된 품목 수가 포함됩니다.

판매 데이터는 모든 워크 시트에서 동일한 순서로 A6 : B16 범위에 있습니다.

ArrowRaw

“메인”시트에서 여러 영업 사원이 수행 한 총 판매 수를 원합니다. 총 판매 수를 계산하려면 통합 문서의 모든 시트에서 판매 수를 추가해야합니다.

ArrowMain

사용자 지정 함수 “SumRangeOfAllSheets”를 사용하여 여러 영업 사원이 만든 총 판매 수를 계산했습니다. 사용자 정의 함수“SumRangeOfAllSheets”는 범위를 입력으로 사용합니다.

ArrowOutput

논리 설명

통합 문서의 모든 워크 시트에 대해 정의 된 범위에있는 셀의 값 합계를 계산하는 사용자 지정 함수 “SumRangeOfAllSheets”를 만들었습니다. 사용자 정의 함수“SumRangeOfAllSheets”는 범위를 입력으로 사용합니다. 이 함수는 모든 워크 시트의 정의 된 범위의 셀에 값을 추가합니다.

코드 설명

WorksheetFunction.Sum WorksheetFunction 개체는 Visual Basics에서 Excel 시트 함수에 액세스하는 데 사용됩니다. 범위의 값을 추가하기 위해 Excel 시트의 SUM 함수를 사용했습니다.

InputRange.Address 위 코드는“InputRange”범위 객체에 의해 지정된 범위의 주소를 반환하는 데 사용됩니다.

아래 코드를 따르세요

Option Explicit

Function SumRangeOfAllSheets(InputRange As Range)

'Declaring variables

Dim i As Integer

Dim Total As Long

'Looping through the sheets in the worksheets collection starting from second sheet

For i = 2 To Worksheets.Count

'Calculating the sum for specified range of all the sheets

Total = Total + WorksheetFunction.Sum(Worksheets(i).Range(InputRange.Address))

Next

SumRangeOfAllSheets = Total

End Function

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

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