การเรียกข้อมูลจาก Sheet ที่ตั้งเป็น Database ไว้

[somchaiii]

พอดีผมเริ่มหัดลองใช้ VBA ในการทำงานกับ Excel ครับ(มือใหม่) ลองใช้โค้ดที่มีคนเขียนไว้มาประยุกต์ใช้ในการเรียกข้อมูลจาก Sheet ที่ตั้งไว้เป็นฐานข้อมูลเพื่อให้แสดงผลในอีก Sheet หนึ่ง แต่ติดปัญหาคือมัน Copy ข้อมูลมาไม่หมดครับไม่ทราบว่ามันเกิดจากแถวไหนของ Code ที่ไม่ตรงกับเงื่อนไขที่กำหนดไว้ ผมได้แนบตัวอย่างไฟล์มาด้วยครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" And Target <> "" Then
        ShowEmp
    ElseIf Target.Address = "$E$2" And Target = "" Then
        MsgBox "Please select House Code."
    End If
End Sub

Sub ShowEmp()
    Dim a() As Variant, lng As Long
    Dim r As Range, rAll As Range
    Dim rt As Range, rl As Long
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    rl = Rows.Count
    With Worksheets("Database")
        Set rAll = .Range("G3", .Range("G" & rl).End(xlUp))
    End With
    For Each r In rAll
        If r = Worksheets("Report").Range("E2") Then
            lng = lng + 1
            ReDim Preserve a(5, lng)
            a(1, lng) = lng
            a(2, lng) = r.Offset(0, -5)
            a(3, lng) = r.Offset(0, -4)
            a(4, lng) = r.Offset(0, -3)
            a(5, lng) = r.Offset(0, -2)
        End If
    Next r
    If lng > 0 Then
        With Worksheets("Report")
            Set rt = .Range("A5", .Range("E" & lng - 1 + 5))
            .Range("A5", .Range("A" & rl).End(xlUp).Offset(0, 4)).ClearContents
            .Range("A5:E5").Copy
            rt.PasteSpecial xlPasteFormats
            rt = Application.Transpose(a)
            .Range("B5", .Range("B" & rl).End(xlUp)).NumberFormat = "000000"
            .Range(.Range("A4").End(xlDown).Offset(1, 0), .Range("E" & rl)).Clear
            .Range("E2").Activate
        End With
    Else
        MsgBox "Data not found."
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[snasui]

เข้าใจว่า Copy มาโดยยังไม่ได้ทำการปรับเปลียนใด ๆ

สำหรับ Code ต้องปรับปรุงจากต้นฉบับมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดแล้วค่อยถามกันต่อครับ

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

[somchaiii]

ขอบคุณครับ มันยากผมเลยใช้วิธีการอื่นได้เรียบร้อยแล้วครับ