VBA เปลี่ยนตาราง crosstab เป็น Listview

[060090]

สวัสดีครับ
ต้องการที่จะเปลี่ยนตารางจาก crosstab เป็น Listview โดยใช้ VBA ได้ลองศึกษาจาก wordpress/report-to-database/
ของอาจารย์แล้วมาปรับใช้ แต่ยังพบปัญหาอยู่ ซึ่งไม่สามารถปรับตารางต้นทางได้ โดยต้องการให้ผลลัพธ์เป็นไปตามไฟล์แนบครับ

Code: Select all

Sub CollectData()
Dim r As Range, s As Worksheet
With Sheets("DB")
.UsedRange.ClearContents
.Range("A1:G1").Value = Array("WS", "PN", "Desc", "Type", "No", "Y date", "Qty")
End With
For Each s In Worksheets
If s.Name <> "DB" Then
For Each r In s.UsedRange.SpecialCells(xlCellTypeConstants, 1)
With Sheets("DB").Range("a" & Rows.Count).End(xlUp) _
.Offset(1, 0)
.Offset(0, 0).Value = s.Name
.Offset(0, 1).Value = s.Cells(r.Row, 2).Value
.Offset(0, 2).Value = s.Cells(r.Row, 3).Value
.Offset(0, 3).Value = s.Cells(7, r.Column).Value
.Offset(0, 4).Value = s.Cells(6, r.Column).Value
.Offset(0, 5).Value = s.Cells(5, r.Column).Value
.Offset(0, 6).Value = r.Value
End With
Next r
End If
Next s
End Sub

รบกวนด้วยครับ

[snasui]

กรุณาอธิบายประกอบว่าต้องการคำค่าต้นทางคอลัมน์ใดมาวางที่ปลายทางคอลัมน์ใดและได้ปรับ Code เติมไปแล้วตรงไหน อย่างไร ติดปัญหาที่ใด จะได้ตอบต่อไปจากนั้นครับ

[060090]

ขออภัยที่อธิบายไม่ละเอียดครับ
เวิร์คชีตต้นทาง ชื่อ Test1 จะเป็นกลุ่มข้อมูลในรูปแบบ Crosstab ซึ่งประกอบไปด้วย ข้อมูลสามส่วนหลักๆคือ
กลุ่มข้อมูลแนวตั้ง = column B:C
กลุ่มข้อมูลแนวนอน =Row 5:7
และกลุ่มข้อมูลจำนวน = E8:H15
โดยที่จะมีการเพิ่ม ข้อมูลทั้ง Row และ Column เมื่อมีการอัพเดทข้อมูล
ส่วนของ เวิร์คชีตปลายทาง ชื่อ DB ซึ่งต้องการให้เปลี่ยนรูปแบบข้อมูลจากตารางต้นทางที่เป็น crosstab ไปเป็นแบบ Listview
โดยที่คอลั่มน์ A กำหนดให้เป็นชื่อ เวิร์คชีต
คอลั่มน์ B:C เป็นกลุ่มขอมูลแนวตั้งของชีตต้นทาง
คอลั่มน์ D:F เป็นกลุ่มขอมูลแนวนอนของชีตต้นทาง
และ คอลั่มน์ G เป็นกลุ่มข้อมูลจำนวน
โดยได้ลองปรับโค้ดจากตัวอย่างของอาจารย์ ตรง offset ตอนวางข้อมูล
ซึ่งพอลองรันโค้ดแล้วพบว่า มีข้อมูลที่ไม่ต้องการมาด้วย ตามไฟล์แนบครับ
รบกวนด้วยครับ

[snasui]

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

Code: Select all

'...Other code
For Each r In s.Cells(8, 5).Resize(10000, 4).SpecialCells(xlCellTypeConstants, 1)
    With Sheets("DB").Range("a" & Rows.Count).End(xlUp) _
    .Offset(1, 0)
        .Offset(0, 0).Value = s.Name
        .Offset(0, 1).Value = s.Cells(r.Row, 2).Value
        .Offset(0, 2).Value = s.Cells(r.Row, 3).Value
        .Offset(0, 3).Value = s.Cells(7, r.Column).Value
        .Offset(0, 4).Value = s.Cells(6, r.Column).Value
        .Offset(0, 5).Value = s.Cells(5, r.Column).Value
        .Offset(0, 6).Value = r.Value
    End With
Next r
'...Other code

[060090]

ทำได้แล้วครับ ขอบคุณมากครับ