如何檢查工作簿中是否存在數(shù)據(jù)透視表?
如果您的工作簿中有多個數(shù)據(jù)透視表,現(xiàn)在,您很快就會想知道此工作簿中是否存在特定的數(shù)據(jù)透視表。 通常,您可以轉(zhuǎn)到“數(shù)據(jù)透視表選項”對話框來逐一檢查數(shù)據(jù)透視表的名稱,但是當(dāng)有數(shù)十個或數(shù)百個數(shù)據(jù)透視表時,這非常耗時且乏味。 在這里,我可以為您介紹解決此任務(wù)的技巧。
使用用戶定義功能檢查工作簿中是否存在數(shù)據(jù)透視表
使用用戶定義功能檢查工作簿中是否存在數(shù)據(jù)透視表驚人的! 在 Excel 中使用高效的選項卡,如 Chrome、Firefox 和 Safari!每天節(jié)省50%的時間,并減少數(shù)千次鼠標(biāo)單擊!若要快速了解當(dāng)前工作簿中是否存在數(shù)據(jù)透視表,可以創(chuàng)建一個用戶定義函數(shù)來解決它。
1。 打開您要檢查數(shù)據(jù)透視表是否存在的工作簿。
2。 按住 ALT + F11 鍵,然后打開 Microsoft Visual Basic for Applications窗口.
3。 點擊 插頁 > 模塊,然后將以下代碼粘貼到 模塊窗口.
VBA代碼:檢查工作簿中是否存在數(shù)據(jù)透視表
Function PivotExist(Name As String) As BooleanUpdate 20141112Dim sh As WorksheetDim pt As PivotTablePivotExist = FalseFor Each sh In ActiveWorkbook.WorksheetsFor Each pt In sh.PivotTablesIf pt.Name = Name ThenPivotExist = TrueExit ForEnd IfNextNextEnd FunctionCopy4。 然后保存并關(guān)閉此代碼,返回工作表,輸入此公式 = pivotexist(“ salereport”) 放入空白單元格,請參見屏幕截圖:
:(1.)在上式中,“銷售報告”是您要檢查的數(shù)據(jù)透視表的名稱。
(2.)必須在雙引號中輸入數(shù)據(jù)透視表名稱,并且該名稱必須區(qū)分大小寫。
5。 輸入公式后,按Enter鍵(如果得到) TRUE 在您的單元格中,數(shù)據(jù)透視表存在,如果您得到 FALSE,數(shù)據(jù)透視表不存在。
相關(guān)文章:
如何列出工作表中的所有數(shù)據(jù)透視表?
如何將多個字段添加到數(shù)據(jù)透視表?
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!準(zhǔn)備好增強您的 Excel 任務(wù)了嗎? 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel!
為什么需要 Kutools for Excel