Page 1 of 1
ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
Posted: Wed Oct 22, 2014 4:33 pm
by joyziie
ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
รบกวนขอคำแนะนำคะ ต้องการ ลบแถวอัตโนมัติตามเงื่อนไขที่ต้องการ โดย
ถ้าช่อง Stock + BO + Forecast = 0 ให้ลบบรรทัดนั้นทิ้ง
ขอบคุณมากคะ
Re: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
Posted: Wed Oct 22, 2014 5:14 pm
by songsug
ถ้าคอล้มน์ว่างๆสักช่อง เอา Stock + BO + Forecast แล้วก็ใช้ autofilter กรองค่าบรรทัดที่เป็น 0 แล้วลบออกก็ได้นี่ครับ
Re: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
Posted: Wed Oct 22, 2014 5:19 pm
by joyziie
songsug wrote:ถ้าคอล้มน์ว่างๆสักช่อง เอา Stock + BO + Forecast แล้วก็ใช้ autofilter กรองค่าบรรทัดที่เป็น 0 แล้วลบออกก็ได้นี่ครับ
คือ ขออธิบายเพิ่มเติมคะ รายงานนี้มาจากการประมลผลผ่าน jet report ทำให้ไม่สามารถกำหนดการ filter ได้คะ เนื่องจากจำนวนข้อมูลจะเปลี่ยนแปลงไปตามช่วงเวลาที่เราเรียกข้อมูลคะ
ขอบคุณสำหรับคำแนะนำนะคะ
Re: ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ
Posted: Wed Oct 22, 2014 5:36 pm
by songsug
แบบนี้ได้หรือป่าวครับ ใช้ Code เข้ามาช่วย
Code: Select all
Sub Test()
Dim intRow As Integer
intRow = 19
Do While Range("G" & intRow).Value <> ""
If (Range("R" & intRow).Value + Range("S" & intRow).Value + Range("T" & intRow).Value) = 0 Then
Rows(intRow).Delete Shift:=xlUp
End If
intRow = intRow + 1
Loop
MsgBox "Complete."
End Sub
จะเอาไปไว้ใน Module แล้ว Run ผ่าน ShortKey หรือใส่ปุ่มกดก็ได้ น่าจะช่วยได้ครับ