Page 1 of 1
VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Mon Jan 11, 2021 11:48 am
by 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
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Mon Jan 11, 2021 11:53 am
by sooksun2009
ไฟล์แนบ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Mon Jan 11, 2021 2:23 pm
by 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
อันแรกผิด ใช้อันนี้ครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 9:05 am
by sooksun2009
ไม่มีใครช่วยได้หรอ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 8:58 pm
by snasui
อ่านคำอธิบายแล้วไม่เข้าใจครับ
ช่วยยกตัวอย่างคำตอบที่ถูกต้องมาสัก 2-3 เซลล์แล้วอธิบายว่าค่านั้น ๆ ได้มาด้วยวิธีการใด เผื่อพอจะช่วยได้ครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 9:23 pm
by sooksun2009
snasui wrote: Thu Jan 14, 2021 8:58 pm
อ่านคำอธิบายแล้วไม่เข้าใจครับ
ช่วยยกตัวอย่างคำตอบที่ถูกต้องมาสัก 2-3 เซลล์แล้วอธิบายว่าค่านั้น ๆ ได้มาด้วยวิธีการใด เผื่อพอจะช่วยได้ครับ
ตามcode บวกได้แล้วครับแต่เกิน460ไม่แสดงค่าที่columK
![Image]()
ขอบคุณครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 9:41 pm
by snasui
เท่าที่อ่านในกล่องคำอธิบายไมพบว่าเป็นการบวกแบบสะสมที่กล่าวถึง ช่วยยกตัวอย่างให้สอดคล้องกับคำว่า "สะสม" ด้วยครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 9:55 pm
by sooksun2009
snasui wrote: Thu Jan 14, 2021 9:41 pm
เท่าที่อ่านในกล่องคำอธิบายไมพบว่าเป็นการบวกแบบสะสมที่กล่าวถึง ช่วยยกตัวอย่างให้สอดคล้องกับคำว่า "สะสม" ด้วยครับ
คือใน colum j บวกแล้วกันถ้าไม่เกิน 460 ให้แสดงค่า cell ที่colum k อันนี้และที่ต้องการ แต่ยังทำไม่ได้ครับ ขอบคุณครับ รบกวน อาจารย์ด้วยครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 10:08 pm
by snasui
ไม่เข้าใจคำว่าในคอลัมน์ J บวกกัน บวกอะไรกับอะไร เท่าที่ดูเหมือนเป็นการเอาค่าในเซลล์มาคูณด้วย 2 หรือที่เรียกว่าบวกด้วยค่าเดิม เช่นนั้นหรือไม่ แล้วคำว่า "สะสม" มาจากไหน กรุณาอธิบายมาให้เข้าใจครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 10:38 pm
by sooksun2009
snasui wrote: Thu Jan 14, 2021 10:08 pm
ไม่เข้าใจคำว่าในคอลัมน์ J บวกกัน บวกอะไรกับอะไร เท่าที่ดูเหมือนเป็นการเอาค่าในเซลล์มาคูณด้วย 2 หรือที่เรียกว่าบวกด้วยค่าเดิม เช่นนั้นหรือไม่ แล้วคำว่า "สะสม" มาจากไหน กรุณาอธิบายมาให้เข้าใจครับ
ความต้องการตามสูตรคำนวณไฟล์แนบครับ แต่อยากได้เป็น vba เพราะข้อมูลเยอะครับ
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 14, 2021 11:37 pm
by 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
Re: VBA การ sum สะสมแต่ค่าsumต้องไม่เกินค่าที่กำหนด แบบมีเงื่อนไข
Posted: Thu Jan 21, 2021 9:17 am
by sooksun2009
snasui wrote: Thu Jan 14, 2021 11:37 pm
ตัวอย่าง 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
ได้แล้วครับ ขอบคุณครับ