不区分大小写的字典

Question

我已将 Dictionary 设置为一个对象，并向该字典添加了几个项目，但它似乎区分大小写。无论如何我可以设置字典来识别不同的版本吗？

我的代码：

Sub Test()

Dim sheet1 As String
Dim Dict As Object
Dim c As Range

Sheet1= "TEST"
Set Dict = CreateObject("Scripting.Dictionary")

Dict.Add "MIKE", 0
Dict.Add "PHIL", 0
Dict.Add "Joe", 0

For Each c In ActiveWorkbook.Worksheets(Sheet1).UsedRange
If Dict.Exists(ActiveWorkbook.Worksheets(Sheet1).Cells(c.Row, c.Column).Value) Then
        Dict(ActiveWorkbook.Worksheets(Sheet1).Cells(c.Row, c.Column).Value) = Dict(ActiveWorkbook.Worksheets(Sheet1).Cells(c.Row, c.Column).Value) + 1
End If
Next

Sheet1.Cells(25, 3) = Dict("MIKE")
Sheet1.Cells(25, 3) = Dict("PHIL")
Sheet1.Cells(25, 3) = Dict("Joe")

Set Dict = Nothing

End Sub

所以我想识别 MIKE 的“mike”和 PHIL 的“Phil”等。

提前致谢！

Answer 1

我总是喜欢为我的所有编码设置正确的东西。因此，我的工作表或表单中的所有模块和代码都以以下三行开头，然后再编写任何其他代码。

Option Base 0
Option Explicit
Option Compare Text

如果出于某种原因我想在特定的Sub 中以不同的方式处理某些事情，那么我只在这个特定的sub 中这样做，并按照上面评论中的建议进行操作（示例）：

dict.CompareMode = BinaryCompare 'if I need a case-sensitive compare in this sub

由于 VBE 知道 dict 是一个字典，它可以提供自动完成的命题。这只有在早期绑定中才有可能。后期绑定 VBE 将不提供任何自动完成命题。

Answer 2

添加到@Ralph

dict.CompareMode = TextCompare

是我将文件更改为的内容。

---

关于 cmets 的一些说明：

TextCompare 仅适用于早期绑定，它是 Scripting 的成员。
vbTextCompare 在 VBA 中始终可用。
两者都是 = 1。

? Scripting.CompareMethod.TextCompare
 1 
? VBA.VbCompareMethod.vbTextCompare
 1 

注意：你只能设置dict.CompareMode如果dict为空，即你还没有添加任何成员。否则你会得到一个"Illegal procedure call" 错误。