VBA我不能使用字典的Exists方法
提问于 2017-01-17 02:13:16
Dim memberDic As Object: Set memberDic = CreateObject("Scripting.Dictionary")
Set memberDic("Team A") = CreateObject("Scripting.Dictionary")
memberDic("Team A")("Tanaka") = 1
memberDic("Team A")("Watanabe") = 2
memberDic("Team A")("Shimizu") = 3
For Each person In ActiveSheet.PivotTables(fy).PivotFields("name").PivotItems
If Not memberDic("Team A").Exists(person.Name) Then
'hidden person except Team A
End If
Next person我想用Exists方法来排除item。你能给我一些建议吗？
回答 1
Stack Overflow用户
发布于 2017-11-06 13:50:12
为问题发布的评论正式化：
修剪数据透视表中的值，以使Exists正常工作：
For Each person In ActiveSheet.PivotTables(fy).PivotFields("name").PivotItems
If Not memberDic("Team A").Exists(Trim(person.Name)) Then
'hidden person except Team A
End If
Next person页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/41688046
复制相关文章
点击加载更多
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
