/ / เครื่องคำนวณการขายใน Excel VBA

เครื่องคำนวณการขายใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่ คำนวณยอดขายรวม ของพนักงานแต่ละคนในช่วงระยะเวลาสามปี

สถานการณ์:

เครื่องคำนวณการขายใน Excel VBA

อีกสองแผ่นมีการตั้งค่าเดียวกัน แต่กับเดือนที่แตกต่างกันและพนักงานและตัวเลขการขายที่แตกต่างกัน มีหลายวิธีในการคำนวณยอดขายรวมของพนักงานแต่ละคนใน Excel แต่เราจะเห็นว่าสามารถทำได้ใน Excel VBA ได้อย่างง่ายดาย

วางปุ่มคำสั่งในแผ่นงานของคุณและเพิ่มบรรทัดรหัสต่อไปนี้:

1 ขั้นแรกเราจะประกาศตัวแปรสามตัวและวัตถุ Worksheet หนึ่งชุด ตัวแปรหนึ่งชนิด String ที่เราเรียกใช้ employee หนึ่งตัวแปร Type Integer ที่เราเรียกว่า Total หนึ่ง Worksheet object เราเรียก sheet และหนึ่งตัวแปร Type Integer ที่เราเรียก i

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

2. เราเริ่มต้นตัวแปรสองตัวแปร เราเริ่มต้นตัวแปรทั้งหมดด้วยค่า 0 เราใช้ฟังก์ชัน InputBox เพื่อรับชื่อพนักงานจากผู้ใช้

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

ป้อนชื่อพนักงาน

3 หลังจากที่ผู้ใช้ป้อนชื่อพนักงานเราต้องการคำนวณยอดขายรวมของพนักงานคนนี้ สมุดงานประกอบด้วยสามแผ่น เราต้องการโปรแกรมที่สามารถใช้งานได้หากมีการเพิ่มแผ่นงานในอนาคต ดังนั้นเราจึงใช้บรรทัดรหัสต่อไปนี้:

For Each sheet In Worksheets

4. เราเริ่มต้นอีกรอบสำหรับถัดไป

For i = 2 To 13

5. ถ้าชื่อพนักงานที่ป้อนเข้ากันได้กับชื่อพนักงานในคอลัมน์ B Excel VBA จะเพิ่มยอดขายให้กับตัวแปรทั้งหมด เพิ่มบรรทัดรหัสต่อไปนี้:

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

อย่าลืมปิดทั้งสองลูป

    Next i
Next sheet

7. สุดท้ายเราจะแสดงยอดขายรวมของพนักงานโดยใช้กล่องข้อความ

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

8. ทดสอบโปรแกรม

ผลลัพธ์สำหรับ David:

ผลการคำนวณเครื่องคิดเลขขาย

อ่านเพิ่มเติมได้ที่: