Excel VBA의 판매 계산기
아래에서 우리는 Excel VBA 그 총수입을 계산한다. 3 년 동안 각 직원의
상태:
다른 두 장의 설정은 동일하지만개월과 종업원의 다른 조합, 그리고 다른 판매 번호. 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)")
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
total = total + sheet.Cells(i, 3).Value
End If
6. 두 루프를 닫지 마십시오.
Next i
Next sheet
Next sheet
7. 마지막으로 msgbox를 사용하여 직원의 총 매출을 표시합니다.
MsgBox "Total sales of " & employee & " is " & total
8. 프로그램을 테스트하십시오.
David 검색 결과 :