/ Excel VBA의 판매 계산기

Excel VBA의 판매 계산기

아래에서 우리는 Excel VBA총수입을 계산한다. 3 년 동안 각 직원의

상태:

Excel VBA의 판매 계산기

다른 두 장의 설정은 동일하지만개월과 종업원의 다른 조합, 그리고 다른 판매 번호. Excel에서 각 직원의 총 매출을 계산하는 방법은 여러 가지가 있지만 Excel VBA에서 매우 쉽게 수행 할 수 있습니다.

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

1. 먼저 세 개의 변수와 워크 시트 객체를 선언합니다. 우리가 employee라고 부르는 하나의 변수, Integer 유형의 변수 하나, Total이라고하는 하나의 워크 시트 시트, 우리는 Sheet라고 부르는 하나의 변수 및 Integer 유형의 변수 중 하나를 i라고 부릅니다.

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

2. 두 변수를 초기화합니다. 변수 total을 값 0으로 초기화합니다. 우리는 InputBox 함수를 사용하여 사용자로부터 직원 이름을 가져옵니다.

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

직원 이름 입력

삼. 사용자가 직원 이름을 입력하면이 직원의 총 매출을 계산하려고합니다. 통합 문서는 세 장으로 구성됩니다. 시트가 장래에 추가되는 경우에도 사용할 수있는 프로그램이 필요합니다. 따라서 다음 코드 줄을 사용합니다.

For Each sheet In Worksheets

4. For Next 루프를 시작합니다.

For i = 2 To 13

5. 입력 된 직원 이름이 B 열의 직원 이름과 일치하면 Excel VBA는 변수 total에 판매 번호를 추가합니다. 다음 코드 행을 추가하십시오.

If sheet.Cells(i, 2).Value = employee Then
    total = total + sheet.Cells(i, 3).Value
End If

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

    Next i
Next sheet

7. 마지막으로 msgbox를 사용하여 직원의 총 매출을 표시합니다.

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

8. 프로그램을 테스트하십시오.

David 검색 결과 :

판매 계산기 결과

또한 읽으십시오 :