การเขียนตัวกรองด้วย VBA 2

[yodpao.b]

อาจารย์ครับไฟล์ใกล้เสร็จแล้ว อาจาร์ยช่วย เอาข้อมูลด้านท้ายตารางของSheet a"aaaaa" มาต่อกับข้อมูล
บรรทัดสุดท้ายของSheet"Report" ได้ไหมครับ ผมลองทำดูแล้วมันไม่สำเหร็จ ไม่รู้ว่าสั่งให้ต่อท้ายอย่างไรดังรูป
รูปที่ 1 คือรูปตารางข้อมูลจากการกรอง

78.GIF

รูปที่ 2 คืออยากให้ตอนท้ายรูปที่1เหมือนกับรูปตอนท้ายที่2

79.GIF

ขอโทษครับที่เขียนมาสั้น ตอนแรกยาวกว้านี้อีก มันหลุดให้กรอกรหัสใหม่

[snasui]

แนบ Code ที่ลองทำเองแล้วมาด้วยครับ เผื่อว่าจะได้ปรับปรุงต่อจากนั้นไม่ต้องเขียนใหม่

[yodpao.b]

แนบ Code ที่ลองทำเองแล้วมาด้วยครับ เผื่อว่าจะได้ปรับปรุงต่อจากนั้นไม่ต้องเขียนใหม่

เขียนโคดมาให้แล้วครับด้านล่าง

Code: Select all

Sub MacroCopyFooter()
    Sheets("aaaaaa").Select
            Rows("19:29").Select
            Range("C19").Activate
            Selection.Copy
    Sheets("Report").Select
            Range("C10").Select
            Selection.End(xlDown).Select
            ActiveCell.Offset(1, -2).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
End Sub

ผมนำโคดนี้ไว้ใน Modole ได้ไหมครับ อาจารย์ช่วยลองดูหน่อยครับ
และขอถามอีกอย่างครับ ในช่องเซล K23 ในSheets("Report") ต้องใส่สูตรคำนวณ Sum แถว K ทั้งแถว ไม่ทราบว่าเขียนอย่างไรครับ

[snasui]

ขอถามอีกอย่างครับ ในช่องเซล K23 ในSheets("Report") ต้องใส่สูตรคำนวณ Sum แถว K ทั้งแถว ไม่ทราบว่าเขียนอย่างไรครับ

ลองทดสอบ Code นี้รวมกับ Macro ที่เขียนไว้ครับ

Code: Select all

range("K23")= "=Sum(R11C:R[-1]C)"
range("K23").Resize(1,4).FillRight

[yodpao.b]

คือตำแหน่งแถวมันไม่แน่นอนบางที่ก็มาก บางที่ก็ข้อมูลน้อย แต่คอลัมไม่เลื่อนไปไหนแน่นอนครับ

245.GIF

[snasui]

ตัวอย่างการปรับให้เป็นแบบ Dynamic

Code: Select all

With Range("K11").End(xlDown).Offset(4, 0)
    .Formula = "=Sum(R11C:R[-1]C)"
    .Resize(1, 4).FillRight
End With

ส่วนที่เข้าใจว่าให้ Sum เพียง 10 แถวนั้นยังเข้าใจไม่ถูกต้อง ลองทดสอบ Code ด้านบน แล้วปรับให้ตรงกับที่ต้องการใช้งานจริงดูครับ

จาก Code นี้

Code: Select all

Offset(4, 0)

จะเป็นตัวบอกว่าให้ลงไปจากด้านล่างจำนวนกี่เซลล์

[yodpao.b]

เข้าใจแล้วครับขอบคุณมากครับ