หาค่าเฉลี่ยในช่วงที่กำหนด เมื่อตรงตามเงื่อนไขบางอย่าง

[nuttanan2140]

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

Code: Select all

Sub NumberOfSample_Button1_Click()
Dim i As Long
Dim xbar As Double

For i = 1 To Val(Range("F2").End(xlToRight))
   If ThisWorkbook.Sheets("Number Of Sample").Cells(2, i + 5) <> "" Then
      xbar = Application.WorksheetFunction.Average(Workbook.Sheets("Number Of Sample").Range("Cells(3,i+5) : cells(3,i+5).End(xlDown)"))
   End If
Next i

End Sub

อันนี้คือโค้ดในปุ่มคำนวณที่ผมได้ลองเขียนดูครับ

รอบเวลา.png

อันนี้รูปตัวอย่าง

[snasui]

ไม่พบ Code ในไฟล์แนบครับ

นอกจากนี้ลองยกตัวอย่างค่าเฉลี่ยที่เป็นคำตอบมาด้วยว่าเก็บไว้ที่ไหน มีค่าเท่าใด มีการสะสมไปในแต่ละบรรทัดหรือไม่ หรือเก็บไว้ที่ไหน อย่างไร ฯลฯ ครับ