Page 1 of 1

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

Posted: Mon Dec 12, 2016 9:07 pm
by yodpao.b
สอบถามเกียวกับการ ใช้ Pivot Table excel 2010
เมื่อเราสร้าง Pivot Table แล้ว
อยากทราบว่า การย้อนกลัยไปดูแหล่งข้อมูล ต้องทำอย่างไรครับ (excel 2010)

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

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

Posted: Mon Dec 12, 2016 9:22 pm
by snasui
:D คลิกขวาในตาราง PivotTable > Show Field List จะแสดง PivotTable Field List ด้านขวามือมาให้ใช้เปลี่ยนมุมมองของ PivotTable ครับ

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

Posted: Mon Dec 12, 2016 11:42 pm
by yodpao.b
ขอบคุณครับ

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

Posted: Tue Dec 13, 2016 12:33 am
by 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

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

Posted: Tue Dec 13, 2016 12:55 am
by yodpao.b
ขอโทษครับอาจารย์ คิดได้แล้วครับ ใช้ Selection.AutoFilter 2 ครั้งครับสามารเอาตัวกรองออกได้โดยไม่ดีบัคครับ
ทั้งตืนครับอาจารย์ผมคิดไม่ออก มาคิดได้ตอนถามอาจารย์

ขอบคุณครับ

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

Posted: Fri Dec 16, 2016 12:59 am
by yodpao.b
สงสัยครับ
เรื่องตัวกรองใน PivotTable
จากรูปที่ 1
1.PNG
ข้อมูลหลายบรรทัดลบแล้วเหลือ 1-4

จากรูปที่ 2
2.PNG
ฟื้นฟูข้อมูลแล้วโชว์ 1-4

จากรูปที่ 3
3.PNG
เมื่อดูในตัวกรองของ PivotTable กลับพบว่าข้อมูลเดิมยังอยู่ครับ

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

Posted: Fri Dec 16, 2016 1:00 am
by yodpao.b
ตำถาม
เราสามารถที่จะ Update ข้ออมูลให้ตัวกรองโชว์ให้เห็นข้อมูลที่เหลืออยู่จริงได้ไหมครับดังรูปที่ 4
4.PNG

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

Posted: Fri Dec 16, 2016 5:45 am
by snasui
:D คลิกขวาในตาราง PivotTable > PivotTable Options > กำหนดค่าตามภาพด้านล่าง > คลิกขวาในตาราง PivotTable > Refresh ครับ

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

Posted: Sat Dec 17, 2016 8:15 pm
by yodpao.b
ขอบคุณมากครับ