VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข

[sooksun2009]

รบกวนท่านอาจารย์ด้วยครับ ใน code vba ผมต้อง sum colume J แล้วแสดงที่ colume K โดยที่ ผลการ sum ต้องไม่เกิน ค่า cell K3 และมีเงื่นไขว่า colume B,C และ D เท่ากับข้อมูลใน cell นั้นๆ
รบกวนท่านอาจารย์ด้วยครับ ขอบคุณครับ

Code: Select all

Function EndRow(S As Object, C As String) As Long
    EndRow = S.Range(C & Rows.Count).End(xlUp).Row
End Function

Sub Caljobtime()
For A = 6 To Module1.EndRow(Sheet6, "B")
If Sheet6.Range("B" & A).Value = Sheet6.Range("B" & A).Value And Sheet6.Range("C" & A).Value = Sheet6.Range("C" & A).Value And Sheet6.Range("D" & A).Value = "D1" Then

                        If Sheet6.Range("J" & A + 1).Value + Sheet6.Range("J" & A + 1).Value > Sheet6.Range("$K$3").Value Then
                        Sheet6.Range("K" & A).Value = ""
                        Else
                        Sheet6.Range("K" & A).Value = Sheet6.Range("J" & A).Value
                        End If


ElseIf Sheet6.Range("B" & A).Value = Sheet6.Range("B" & A).Value And Sheet6.Range("C" & A).Value = Sheet6.Range("C" & A).Value And Sheet6.Range("D" & A).Value = "D1" Then

                        If Sheet6.Range("J" & A + 1).Value + Sheet6.Range("J" & A + 1).Value < Sheet6.Range("$K$3").Value And Sheet6.Range("J" & A + 1).Value + Sheet6.Range("J" & A + 1).Value > Sheet6.Range("$L$3").Value Then
                        Sheet6.Range("L" & A).Value = ""
                        Else
                        Sheet6.Range("L" & A).Value = Sheet6.Range("J" & A).Value
                        End If

End If

            Next A


End Sub

[sooksun2009]

ไฟล์แนบ

[sooksun2009]

ไฟล์แนบ

Code: Select all

Function EndRow(S As Object, C As String) As Long
    EndRow = S.Range(C & Rows.Count).End(xlUp).Row
End Function

Sub Caljobtime()
For A = 6 To Module1.EndRow(Sheet1, "B")
If Sheet1.Range("B" & A).Value = Sheet1.Range("B" & A).Value And Sheet1.Range("C" & A).Value = Sheet1.Range("C" & A).Value And Sheet1.Range("D" & A).Value = "D1" Then

                        If Sheet1.Range("J" & A + 1).Value + Sheet1.Range("J" & A + 1).Value > Sheet1.Range("$K$3").Value Then
                        Sheet1.Range("K" & A).Value = ""
                        Else
                        Sheet1.Range("K" & A).Value = Sheet1.Range("J" & A).Value
                        End If


ElseIf Sheet1.Range("B" & A).Value = Sheet1.Range("B" & A).Value And Sheet1.Range("C" & A).Value = Sheet1.Range("C" & A).Value And Sheet1.Range("D" & A).Value = "D1" Then

                        If Sheet1.Range("J" & A + 1).Value + Sheet1.Range("J" & A + 1).Value < Sheet1.Range("$K$3").Value And Sheet1.Range("J" & A + 1).Value + Sheet1.Range("J" & A + 1).Value > Sheet1.Range("$L$3").Value Then
                        Sheet1.Range("L" & A).Value = ""
                        Else
                        Sheet1.Range("L" & A).Value = Sheet1.Range("J" & A).Value
                        End If

End If

            Next A

อันแรกผิด ใช้อันนี้ครับ

[sooksun2009]

ไม่มีใครช่วยได้หรอ

[snasui]

อ่านคำอธิบายแล้วไม่เข้าใจครับ

ช่วยยกตัวอย่างคำตอบที่ถูกต้องมาสัก 2-3 เซลล์แล้วอธิบายว่าค่านั้น ๆ ได้มาด้วยวิธีการใด เผื่อพอจะช่วยได้ครับ

[sooksun2009]

อ่านคำอธิบายแล้วไม่เข้าใจครับ

ช่วยยกตัวอย่างคำตอบที่ถูกต้องมาสัก 2-3 เซลล์แล้วอธิบายว่าค่านั้น ๆ ได้มาด้วยวิธีการใด เผื่อพอจะช่วยได้ครับ

ตามcode บวกได้แล้วครับแต่เกิน460ไม่แสดงค่าที่columK ขอบคุณครับ

[snasui]

เท่าที่อ่านในกล่องคำอธิบายไมพบว่าเป็นการบวกแบบสะสมที่กล่าวถึง ช่วยยกตัวอย่างให้สอดคล้องกับคำว่า "สะสม" ด้วยครับ

[sooksun2009]

เท่าที่อ่านในกล่องคำอธิบายไมพบว่าเป็นการบวกแบบสะสมที่กล่าวถึง ช่วยยกตัวอย่างให้สอดคล้องกับคำว่า "สะสม" ด้วยครับ

คือใน colum j บวกแล้วกันถ้าไม่เกิน 460 ให้แสดงค่า cell ที่colum k อันนี้และที่ต้องการ แต่ยังทำไม่ได้ครับ ขอบคุณครับ รบกวน อาจารย์ด้วยครับ

[snasui]

ไม่เข้าใจคำว่าในคอลัมน์ J บวกกัน บวกอะไรกับอะไร เท่าที่ดูเหมือนเป็นการเอาค่าในเซลล์มาคูณด้วย 2 หรือที่เรียกว่าบวกด้วยค่าเดิม เช่นนั้นหรือไม่ แล้วคำว่า "สะสม" มาจากไหน กรุณาอธิบายมาให้เข้าใจครับ

[sooksun2009]

ไม่เข้าใจคำว่าในคอลัมน์ J บวกกัน บวกอะไรกับอะไร เท่าที่ดูเหมือนเป็นการเอาค่าในเซลล์มาคูณด้วย 2 หรือที่เรียกว่าบวกด้วยค่าเดิม เช่นนั้นหรือไม่ แล้วคำว่า "สะสม" มาจากไหน กรุณาอธิบายมาให้เข้าใจครับ

ความต้องการตามสูตรคำนวณไฟล์แนบครับ แต่อยากได้เป็น vba เพราะข้อมูลเยอะครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub CalJobTime1()
    Dim l As Long, x As Double
    With Worksheets("Sheet1")
        For l = 6 To .Range("b" & .Rows.Count).End(xlUp).Row
            If .Range("d" & l).Value = "D1" Then
                x = Application.SumIfs(.Range("j6:j" & l), .Range("b6:b" & l), _
                    .Range("b" & l), .Range("c6:c" & l), .Range("c" & l), _
                    .Range("d6:d" & l), .Range("d" & l))
                If x > 460 Then
                    .Range("k" & l).Value = ""
                Else
                    .Range("k" & l).Value = .Range("j" & l).Value
                End If
            Else
                .Range("k" & l).Value = 0
            End If
        Next l
    End With
End Sub

[sooksun2009]

ตัวอย่าง Code ครับ

Code: Select all

Sub CalJobTime1()
    Dim l As Long, x As Double
    With Worksheets("Sheet1")
        For l = 6 To .Range("b" & .Rows.Count).End(xlUp).Row
            If .Range("d" & l).Value = "D1" Then
                x = Application.SumIfs(.Range("j6:j" & l), .Range("b6:b" & l), _
                    .Range("b" & l), .Range("c6:c" & l), .Range("c" & l), _
                    .Range("d6:d" & l), .Range("d" & l))
                If x > 460 Then
                    .Range("k" & l).Value = ""
                Else
                    .Range("k" & l).Value = .Range("j" & l).Value
                End If
            Else
                .Range("k" & l).Value = 0
            End If
        Next l
    End With
End Sub

ได้แล้วครับ ขอบคุณครับ