ทำไมถึง Run Macro หาค่าเฉลี่ยถ่วงน้ำหนักไม่ได้ครับ

[seksants]

สวัสดีครับ ทุกท่าน
กระผมได้ลองทำการหาต้นทุนสินค้าแบบเฉลี่ยถ่วงน้ำหนักโดยการคัดลอกตัวอย่างไฟล์ และ VBA code ที่ให้มา จากหนังสือเล่มหนึ่ง แต่ทำไมถึง Run ไม่ออกครับ อยากให้ท่านชี้แนะว่าผิดตรงไหนครับ

[snasui]

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

[seksants]

ขอแนบไฟล์ไปใหม่ครับ แนบค่าที่ต้องการ

[snasui]

ตัวอย่างการปรับ Code เพื่อหาราคาต่อหน่วยครับ

Code: Select all

Sub AVR_COST()
    Dim a, i  As Long, Bal As Double, Debit As Double
    Dim AVcost As Double, q As Long
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    With Sheets("AVR_COST")
        a = .Range("e7", .Cells(.Rows.Count, "g").End(xlUp)).Resize(, 3).Value
        .Range("i7", .Cells(.Rows.Count, "i").End(xlUp)).ClearContents
        ReDim Preserve a(1 To UBound(a, 1), 1 To 4)
        For i = LBound(a, 1) To UBound(a, 1)
            If a(i, 2) > 0 Then
                q = q + a(i, 2)
                Bal = Bal + a(i, 1) * a(i, 2)
            ElseIf a(i, 3) > 0 Then
                q = q - a(i, 3)
                Bal = Bal - (AVcost * a(i, 3))
            End If
            AVcost = Bal / q
            a(i, 4) = AVcost
        Next
        .Range("i7").Resize(UBound(a, 1)) = Application.Index(a, 0, 4)
        Erase a
    End With
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
End Sub

[seksants]

ขอบตุณมากครับอาจารย์