/ / Custom เฉลี่ยฟังก์ชันใน Excel VBA

ฟังก์ชันเฉลี่ยที่กำหนดเองใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ซึ่งสร้าง a ฟังก์ชันที่กำหนดโดยผู้ใช้ ที่คำนวณ เฉลี่ย ของช่วงที่เลือกแบบสุ่มยกเว้นค่าอย่างน้อยหนึ่งค่าที่เป็นค่าผิดปกติและไม่ควรเป็นค่าเฉลี่ย

สถานการณ์:

ฟังก์ชันเฉลี่ยที่กำหนดเองใน Excel VBA

ฟังก์ชั่นที่กำหนดโดยผู้ใช้จะต้องวางไว้ในโมดูล

1. เปิด Visual Basic Editor และคลิก Insert, Module

2. เพิ่มบรรทัดรหัสต่อไปนี้:

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

ชื่อของฟังก์ชันของเราคือ CUSTOMAVERAGE ส่วนระหว่างวงเล็บหมายความว่าเราให้ Excel VBA ช่วงและสองตัวแปร Integer เป็น input เราตั้งชื่อตัวแปร rng ตัวแปร Integer หนึ่งตัวที่เราเรียกว่า lower และตัวแปร Integer หนึ่งตัวที่เราเรียกว่า upper แต่คุณสามารถใช้ชื่อใดก็ได้

3. ต่อไปเราจะประกาศเป็น Range object และตัวแปรสองตัวของ Type Integer เราเรียกใช้เซลล์วัตถุ Range ตัวแปร Integer หนึ่งตัวที่เราเรียกว่า Total และ Integer หนึ่งตัวแปรที่เราเรียกว่า count

Dim cell As Range, total As Integer, count As Integer

4. เราต้องการตรวจสอบเซลล์แต่ละเซลล์ในช่วงที่เลือกแบบสุ่ม (ช่วงนี้สามารถมีขนาดใดก็ได้) ใน Excel VBA คุณสามารถใช้สำหรับแต่ละรอบถัดไปสำหรับนี้ เพิ่มบรรทัดรหัสต่อไปนี้:

For Each cell In rng

Next cell

หมายเหตุ: rng และ cell ถูกเลือกแบบสุ่มที่นี่คุณสามารถใช้ชื่อใดก็ได้ โปรดอย่าลืมดูชื่อเหล่านี้ในส่วนที่เหลือของรหัสของคุณ

5 ต่อไปเราจะตรวจสอบแต่ละค่าในช่วงนี้ถ้าค่านั้นอยู่ระหว่างค่าสองค่า (ด้านล่างและบน) ถ้าเป็นจริงเราเพิ่มจำนวนทั้งหมดตามค่าของเซลล์และเราจะเพิ่มการนับโดย 1. เพิ่มบรรทัดรหัสต่อไปนี้ลงในลูป

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. เมื่อต้องการส่งคืนผลลัพธ์ของฟังก์ชันนี้ (ค่าเฉลี่ยที่ต้องการ) ให้เพิ่มโค้ดต่อไปนี้ออกนอกลูป

CUSTOMAVERAGE = total / count

7. อย่าลืมเพิ่มฟังก์ชั่นเพิ่มบรรทัด:

End Function

8. ตอนนี้คุณสามารถใช้ฟังก์ชันนี้เช่นเดียวกับฟังก์ชัน Excel อื่น ๆ เพื่อคำนวณค่าเฉลี่ยของตัวเลขที่อยู่ระหว่างสองค่า

ผล:

ผลการค้นหาค่าเฉลี่ยที่กำหนดเอง

ในฐานะเช็คคุณสามารถลบค่าทั้งหมดได้ต่ำกว่า 10 และสูงกว่า 30 และใช้ฟังก์ชัน Average Average ใน Excel เพื่อดูว่า Excel คำนวณค่าเฉลี่ยเช่นเดียวกับฟังก์ชันเฉลี่ยที่กำหนดเองของเราหรือไม่

การตรวจสอบฟังก์ชันค่าเฉลี่ยที่กำหนดเอง

ฟังก์ชันเฉลี่ยที่กำหนดเองของเราทำงานได้! หมายเหตุ: ฟังก์ชันนี้ใช้ได้เฉพาะในสมุดงานนี้เท่านั้น

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