office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請(qǐng)用微信掃碼)

        

VBA穫?cè)‘?dāng)前活動(dòng)單元格所在的數(shù)據(jù)透視錶

2020-12-26 08:00:00
zstmtony
原創(chuàng)
4264
VBA穫?cè)‘?dāng)前活動(dòng)單元格所在的數(shù)據(jù)透視錶

Dim strPvName As String
on error Resume next
strPvName = Selection.PivotCell.Parent
If err.number=0 then
  msgbox "數(shù)據(jù)透視錶名:" & strPvName 
Else
  msgbox "沒(méi)有數(shù)據(jù)透視錶"

End If


這樣就可以解決問(wèn)題瞭。

分享
文章分類
聯(lián)繫我們
聯(lián)繫人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問(wèn)