สอบถามเกียวกับการ ใช้ Pivot Table excel 2010

[yodpao.b]

สอบถามเกียวกับการ ใช้ Pivot Table excel 2010
เมื่อเราสร้าง Pivot Table แล้ว
อยากทราบว่า การย้อนกลัยไปดูแหล่งข้อมูล ต้องทำอย่างไรครับ (excel 2010)

ใน 2003 นั้นเลือก Pivot Table แล้วเลือกเค้าโครงประมาณนี้ครับ

[snasui]

คลิกขวาในตาราง PivotTable > Show Field List จะแสดง PivotTable Field List ด้านขวามือมาให้ใช้เปลี่ยนมุมมองของ PivotTable ครับ

[yodpao.b]

ขอบคุณครับ

[yodpao.b]

ช้อโทษครับส่งไฟลไม่ได้ครับ PivotTable มันใช้แหล่งข้อมูลหลายน่ครับ
เรียนอาจารย์ครับ
[img]

Capture.PNG

[/img]
จากโคดด้านบน
จุดประสวค์คือ เมื่อเรากรองข้อมูลค้างไว้
- เราจึงเขียน code ActiveSheet.ShowAllData ล้างตัวกรอง
ทำงานปกติเมื่อมีกรองข้อมูลค้างไว้ แต่ถ้าตัวกรองไม่ค้างก็จะดีบัคครับ
จะทำอย่างไรให้มันมองข้ามครับ แต่พอมใช้ On Error Resume Next ช่วยมันสามารถเมื่อข้ามจุดที่ผิดได้ครับ

และเมื่อใช้ code นั้อีก 2 ครั้ง เกิดปัญหาขึ้นกับโคดด้านล่างครับ(ตามรูปที่ 2 ครับ
[img]

Capture1.PNG

[/img]

Code: Select all

Private Sub CommandButton1_Click()
    Sheets("สรุป2ล่าง").Select
        Call Unprotect
            On Error Resume Next
                ActiveSheet.ShowAllData
            Range("B9").Select
            ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
        Call Protect1
End Sub


Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    If Range("C9") <> "" Then
            Call Unprotect
                On Error Resume Next
                    ActiveSheet.ShowAllData
            Call CopyAll1
            Call SUM1
            Call Protect1
                Else
                    Call Unprotect
                    On Error Resume Next
                        ActiveSheet.ShowAllData
                        Range("E9:I65536").Select
                        Range(Selection, Selection.End(xlDown)).Select
                        Selection.Delete Shift:=xlUp
                        Range("G4") = 0
                        Range("I4") = 0
                    Call Protect1
    End If

End Sub

[yodpao.b]

ขอโทษครับอาจารย์ คิดได้แล้วครับ ใช้ Selection.AutoFilter 2 ครั้งครับสามารเอาตัวกรองออกได้โดยไม่ดีบัคครับ
ทั้งตืนครับอาจารย์ผมคิดไม่ออก มาคิดได้ตอนถามอาจารย์

ขอบคุณครับ

[yodpao.b]

สงสัยครับ
เรื่องตัวกรองใน PivotTable
จากรูปที่ 1

1.PNG

ข้อมูลหลายบรรทัดลบแล้วเหลือ 1-4

จากรูปที่ 2

2.PNG

ฟื้นฟูข้อมูลแล้วโชว์ 1-4

จากรูปที่ 3

3.PNG

เมื่อดูในตัวกรองของ PivotTable กลับพบว่าข้อมูลเดิมยังอยู่ครับ

[yodpao.b]

ตำถาม
เราสามารถที่จะ Update ข้ออมูลให้ตัวกรองโชว์ให้เห็นข้อมูลที่เหลืออยู่จริงได้ไหมครับดังรูปที่ 4

4.PNG

[snasui]

คลิกขวาในตาราง PivotTable > PivotTable Options > กำหนดค่าตามภาพด้านล่าง > คลิกขวาในตาราง PivotTable > Refresh ครับ

[yodpao.b]

ขอบคุณมากครับ