우리는 3 년에 걸쳐 각 직원의 총 매출을 계산 엑셀 VBA에서 프로그램을보고 아래.

상황 :

Sales Calculator in Excel VBA

다른 두 시트는 ​​달과 직원의 서로 다른 조합, 다른 판매 번호로하지만, 같은 설정이있다. 이 Excel에서 각 직원의 총 매출을 계산하는 방법은 여러 가지가 있지만, 우리는 매우 쉽게 엑셀 VBA에서 수행 될 수 있음을 볼 수 있습니다.

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 우리는 세 개의 변수와 하나의 워크 시트 개체를 선언합니다. 우리는 직원 호출 String 유형 중 하나 개 변수, 유형 정수의 하나 개의 변수는 우리가 총 통화, 우리가 시트를 호출 한 워크 시트 개체 및 유형 정수의 하나 개의 변수는 우리는 내가 전화.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

  1. 우리는 두 개의 변수를 초기화합니다. 우리는 우리는 사용자로부터 직원 이름을 얻기 위해 InputBox 함수를 사용하여 값을 0으로 변수 전체를 초기화합니다.

total = 0

employee = InputBox("Enter the employee name (case sensitive)")

Enter Employee Name

사용자가 직원 이름을 입력 한 3. 후, 우리는이 직원의 총 매출을 계산합니다. 통합 문서는 세 개의 장으로 구성되어 있습니다.

우리는 시트가 향후에 추가하는 경우 계속 사용할 수있는 프로그램을 원한다. 따라서 우리는 다음 코드 줄을 사용하십시오

For Each sheet In Worksheets

  1. 우리는 다음 루프에 대한 또 다른 시작합니다.

For i = 2 To 13

입력 한 직원 이름이 열 B의 직원 이름과 일치하는 경우 5. 엑셀 VBA 변수의 총 판매 수를 추가합니다. 다음 코드 줄을 추가합니다

If sheet.Cells(i, 2).Value = employee Then

total = total + sheet.Cells(i, 3).Value

End If

두 루프를 닫을 것을 잊지 마십시오 6..

Next i

Next sheet

  1. 마지막으로, 우리는 MSGBOX를 사용하여 직원의 총 매출을 표시합니다.

MsgBox "Total sales of " & employee & " is " & total

  1. 테스트 프로그램.

데이비드 검색 결과 :

Sales Calculator Result