Macro : Insert Row ตาม Data ของ Package

[wisitsakbenz]

เรียน สอบถามอาจารย์ครับ

ใน Sheet "Input" ถ้ากำหนด Row ที่ต้องแสดงไว้ 10 บรรทัด (ก่อนที่จะทำการ Search Package) แต่บาง Package มี 35 หรือ 40 หรือมากกว่านั้น ใน Sheet "Data" (ไม่ต้องเสียเวลามา insert เอง)

หลังจากที่แสดงแล้ว บรรทัดล่างสุดมีการคำนวณ Sum ของ OPD และ IPD ด้วย ต้องปรับ Code อย่างไรครับ

ขอบคุณครับ

Code: Select all

Public Sub searchDataMode_mode()

    Dim lr As Long, r As Range
    Dim Data_search As String, i As Integer
    Range("C17:G285").ClearContents
    id_txtbox = ""
    Data_search = Worksheets("Input").id_txtbox.Value
            With Sheets("Data")
                    lr = .Range("A" & Rows.Count).End(xlUp).Row
                    i = 17
                    For Each r In .Range("A2:A" & lr)
                        If r.Value = Data_search Then
                           Sheets("Input").Range("C" & i).Resize(1, 5).Value = _
                                        r.Offset(0, 2).Resize(1, 5).Value
                                       i = i + 1
                        End If
                    Next r
            End With
End Sub

[snasui]

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

Code: Select all

Dim lr As Long, r As Range
Dim Data_search As String, i As Integer
With Sheets("Input")
    .Range("C17:G285").ClearContents
    .Range("c49").Value = "Total"
    .Range("f49:G49").Formula = "=Sum(R17C:R[-1]C)"
    .Range("c48").Resize(30, 1).EntireRow.Insert
    id_txtbox = ""
    Data_search = .id_txtbox.Value
End With
With Sheets("Data")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    i = 17
    For Each r In .Range("A2:A" & lr)
        If r.Value = Data_search Then
            Sheets("Input").Range("C" & i).Resize(1, 5).Value = _
                r.Offset(0, 2).Resize(1, 5).Value
            i = i + 1
        End If
    Next r
End With
With Sheets("Input")
    .Range("c" & i + 2, .Range("c" & i).End(xlDown).Offset(-1, 0)) _
        .EntireRow.Delete
End With

[wisitsakbenz]

อาจารย์ครับ ถ้าลอง Search Package อื่น

1.เส้น สี จะไม่มี
2. ส่วนที่เกินหลังจาก Total ไปแล้ว ถ้าต้องการลบ ต้องปรับ Code อย่างไรครับ

ขอบคุณครับ

[snasui]

บรรทัดที่ระบายสีเขียวเพื่อแสดงคำว่า Total ควรอยู่ที่เดิมครับ

Code ที่ให้ไปนั้นสามารถที่จะปรับให้แทรกเท่าไรก็ได้ ถ้าปรับถูกต้องจะไม่มีรายการใดที่เกินไปจากบรรทัด Total ได้เลย

การกำหนด Format หรืออื่น ๆ ให้ปรับปรุงมาเองก่อนเสมอ ติดตรงไหนค่อยนำมาถามกันต่อ ขอให้ปฏิบัติเช่นนี้ทุกครั้งไปครับ

[wisitsakbenz]

อาจารย์ครับ ผมลองทำการ Search Package
1. ถ้า Search ด้วย Package เดิม (JMC_2020 Promo Male 1 8,300 THB) แล้วคลิกปุ่ม Search บรรทัดหลัง Total จะไม่เพิ่ม เมื่อคลิก Search ด้วย Package เดิม บรรทัดหลัง Total จะไม่เพิ่ม
2. เมื่อทำการ Search ด้วย Package ใหม่ (JMC_2020 Promo Male 2 12,300 THB) แล้วคลิกปุ่ม Search บรรทัดหลัง Total จะไม่เพิ่ม
แต่เมื่อคลิก Search ด้วย Package เดิม (JMC_2020 Promo Male 2 12,300 THB) บรรทัดหลัง Total จะเพิ่มขึ้นเรื่อย ๆ

ไม่แน่ใจว่าผมทำอะไรผิดหรือไม่ครับ ขอบคุณครับ

[snasui]

ทดสอบแล้ว กรุณาปรับ Code มาเองก่อนด้วยจะได้ดูต่อไปจากนั้นครับ

บรรทัดที่เป็นยอดรวมเราสามารถเขียนสูตรรอไว้ได้ครับ

หลักการคือ

1. แทรกบรรทัดเผื่อไว้
2. Clear ค่าเดิม
3. รัน Code
4. ลบบรรทัดส่วนเกิน

ควรศึกษา Code ที่ผมเขียนไปให้ สงสัยส่วนไหนสามารถถามมาได้เสมอ นอกจากนี้ควร Debug เองให้เป็น เพื่อให้ทราบว่า Code ใดยังเป็นปัญหาและปรับปรุงได้ตรงตำแหน่ง ปรับปรุงได้เท่าไรก็เท่านั้น แต่ต้องปรับปรุงมาเองก่อนครับ

[wisitsakbenz]

ได้ครับอาจารย์ snasui ขอบคุณสำหรับข้อมูลนะครับ