วิธีตรวจสอบว่ามีตาราง Pivot อยู่ในสมุดงานหรือไม่?
หากมีตาราง Pivot หลายตารางในสมุดงานของคุณและตอนนี้คุณต้องการทราบอย่างรวดเร็วว่ามีตาราง Pivot เฉพาะในสมุดงานนี้หรือไม่ โดยปกติคุณอาจไปที่กล่องโต้ตอบตัวเลือก PivotTable เพื่อตรวจสอบชื่อตาราง Pivot ทีละรายการ แต่จะใช้เวลานานและน่าเบื่อมากเมื่อมีตาราง Pivot หลายสิบหรือหลายร้อยตาราง ฉันสามารถพูดคุยเกี่ยวกับเคล็ดลับในการแก้ปัญหานี้ได้
ตรวจสอบว่ามีตาราง Pivot อยู่ในสมุดงานด้วยฟังก์ชันที่กำหนดโดยผู้ใช้หรือไม่
ตรวจสอบว่ามีตาราง Pivot อยู่ในสมุดงานด้วยฟังก์ชันที่กำหนดโดยผู้ใช้หรือไม่
หากต้องการทราบอย่างรวดเร็วว่ามีตาราง Pivot อยู่ในสมุดงานปัจจุบันหรือไม่คุณสามารถสร้างฟังก์ชันที่กำหนดโดยผู้ใช้เพื่อแก้ปัญหาได้
1. เปิดสมุดงานที่คุณต้องการตรวจสอบว่ามีตาราง Pivot อยู่หรือไม่
2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ตรวจสอบว่ามีตาราง Pivot อยู่ในสมุดงานหรือไม่
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานของคุณป้อนสูตรนี้ = pivotexist ("salereport") ลงในเซลล์ว่างดูภาพหน้าจอ:
หมายเหตุ : : (1. ) ในสูตรข้างต้น“รายงานการขาย” คือชื่อของตาราง Pivot ที่คุณต้องการตรวจสอบ
(2. ) คุณต้องป้อนชื่อตาราง Pivot ภายในอัญประกาศคู่และชื่อต้องตรงตามตัวพิมพ์เล็กและใหญ่
5. หลังจากป้อนสูตรแล้วกด Enter หากคุณได้รับ TRUE ในเซลล์ของคุณมีตาราง Pivot อยู่ถ้าคุณได้รับ FALSEไม่มีตาราง Pivot
บทความที่เกี่ยวข้อง:
จะแสดงรายการตาราง Pivot ทั้งหมดในสมุดงานได้อย่างไร?
จะเพิ่มหลายช่องลงในตาราง Pivot ได้อย่างไร?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!