Snasui Excel Forum

Posted: **Mon Apr 28, 2014 4:09 pm**

เรียนสอบถามท่านผู้รู้ครับ

ผมต้องการแสดงกราฟ โดยการใช้ ปุ่ม (Button3) เพื่อแสดงข้อมูล Oder Mount ออกมาเป็นกราฟ

Code***

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim myPT As PivotTable
Set myPT = ActiveSheet.PivotTables(8)
myPT.PivotSelect ("")
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=myPT.Parent.Name
ActiveChart.Parent.Left = Range("I1").Left
ActiveChart.Parent.Top = Range("I1").Top
Range("A2").Select
Application.ScreenUpdating = True

End Sub

Posted: **Mon Apr 28, 2014 10:06 pm**

กราฟที่ต้องการหน้าตาเป็นอย่างไรครับ Code ที่เขียนมาเองแล้วนั้น ติดขัดที่บรรทัดใดครับ

สำหรับการโพสต์ Code ให้แสดงเป็น Code ในฟอรัมเพื่อสะดวกในการอ่านดูวิธีการที่ Link นี้ครับ viewtopic.php?f=3&t=1187

Posted: **Tue Apr 29, 2014 9:01 am**

football location.xlsm: (43.61 KiB) Downloaded 3 times

Code: Select all

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim myPT As PivotTable
Set myPT = ActiveSheet.PivotTables(8)
myPT.PivotSelect ("")
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=myPT.Parent.Name
ActiveChart.Parent.Left = Range("I1").Left
ActiveChart.Parent.Top = Range("I1").Top
Range("A2").Select
Application.ScreenUpdating = True

End Sub

ปัญหาของโค้ด
Set myPT = ActiveSheet.PivotTables(8)

Posted: **Wed Apr 30, 2014 2:10 pm**

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Private Sub CommandButton3_Click()
    Application.ScreenUpdating = False
    Dim myPT As PivotTable
    Set myPT = ActiveSheet.PivotTables("PivotTable8")
    myPT.PivotSelect ("")
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:=myPT.Parent.Name
    ActiveChart.Parent.Left = Range("I1").Left
    ActiveChart.Parent.Top = Range("I1").Top
    Range("A2").Select
    Application.ScreenUpdating = True
End Sub

Posted: **Wed Apr 30, 2014 2:28 pm**

ขอบคุณมากครับอาจารย์

Snasui Excel Forum

ต้องการแสดงกกราฟโดยใช้ปุ่ม

ต้องการแสดงกกราฟโดยใช้ปุ่ม

Re: ต้องการแสดงกกราฟโดยใช้ปุ่ม

Re: ต้องการแสดงกกราฟโดยใช้ปุ่ม

Re: ต้องการแสดงกกราฟโดยใช้ปุ่ม

Re: ต้องการแสดงกกราฟโดยใช้ปุ่ม