如何解决如果存在VBA词典对象不起作用
我正在将列中的元素与Excel VBA中的字典对象(ProjectList
)进行比较。我正在打印调试窗口的键:
For Each X In ProjectList.Keys
Debug.Print X,ProjectList(X)
Next X
它会打印一个密钥“ A123”。
我正在使用Exists函数查看词典中是否存在“ A123”:
X = "A123"
If ProjectList.exists(X) = False Then
do something
end if
该过程不断进入“做某事”行,好像它在字典中找不到X一样,尽管它显然在其中,因为调试循环会将其打印出来。我在这里做错了什么?任何帮助表示赞赏!
解决方法
我在填充字典的部分中添加了一个修整语句。
For ThisRow = 2 To LastRow
ProjectList.Add Key:=Trim(FSht.Cells(ThisRow,1)),Item:=ThisRow
Next ThisRow
我不知道为什么这样做有帮助,因为电子表格中的值没有空格,locals窗口没有空格...我完全困惑为什么这样做有效,但是确实有用。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。