เขียน Macros เพื่อสร้าง PivotTable แล้วผู้ใช้งานใช้ไม่ได้
Posted: Thu Apr 22, 2021 12:23 pm
สวัสดีครับ ผมได้ทำการบันทึก Macros เพื่อสร้าง PivotTable ตาม code ด้านล่าง และเมื่อลง test ดูก็สามารถทำงานได้ปกติ
แต่พอนำไปให้ user ใช้งาน กลายเป็นว่าผู้ใช้งานใช้ไม่ได้ และ code ขึ้น Run time error 5 - Invalid procedure call or argument รบกวนขอคำแนะนำในการแก้ไขปัญหาครับ ขอบคุณครับ
แต่พอนำไปให้ user ใช้งาน กลายเป็นว่าผู้ใช้งานใช้ไม่ได้ และ code ขึ้น Run time error 5 - Invalid procedure call or argument รบกวนขอคำแนะนำในการแก้ไขปัญหาครับ ขอบคุณครับ
Code: Select all
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Sheets.Add(After:= _
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws1.Name = "P1"
Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Sheets.Add(After:= _
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws2.Name = "P2"
Sheets("Database").Select
Columns("A:X").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Database!R1C1:R1048576C24", Version:=6).CreatePivotTable TableDestination:= _
"P1!R3C1", TableName:="PIV9200", DefaultVersion:=6