是我对字典的应用有偏差么，请大佬们助攻啊

奚振

本地窗口中对字典的item的返回值怎么会是字典的关键字呢？
dict(Trim(Brr(i, 4))) = Trim(Brr(i, 22))
Trim(Brr(i, 22))这部分在表格是日期的显示啊，这个脚本的主要作用是跨工作簿对应取值后，赋给单元格的，结果执行后单元格都是空值。是我代码的编写有问题么？
-------------------------------------------------------------------------------------------------------------------------------
代码我有整理一遍，也用debug验证了，代码应该是没有问题的。两个工作簿的密码和只读都取消了，可在单元格内还是显示不出来。现在附上内容删减后的原件，还望大神们再帮我看看吧，跪求了。
附件内有窗体和模块，可以直接打开excel文件，代码应该都在

micch

本地窗口看到的是key

micch

至于为什么返回空，你可以检查一下字典中的key是不是和结果表中字符完全一致，不一致，那么dict.exists的结果是false，则赋值语句不会被执行，结果都是空。

wp231957

还是上附件 吧

奚振

micch 发表于 2020-5-29 10:17
至于为什么返回空，你可以检查一下字典中的key是不是和结果表中字符完全一致，不一致，那么dict.exists的结 ...

老师 您能在看一下我的代码在表达上有没啥问题比如将cells（j,16）= dict(trim(Crr(j,5)))这样的表达，直接赋给单元格，这样的赋值是表示将关键字的项赋给单元格么

micch

可以这样用啊，你可以设置断点，看看这一句是否执行过，也可以d.items看看存的内容是啥

奚振

micch 发表于 2020-5-29 11:32
可以这样用啊，你可以设置断点，看看这一句是否执行过，也可以d.items看看存的内容是啥

嗯嗯 我刚才用debug试过了，单独赋给变量是可以的，但是到单元格就没有显示了。我在想是不是跟被应用数据的工作簿为只读模式有关呢，请老师指点啊

奚振

micch 发表于 2020-5-29 11:32
可以这样用啊，你可以设置断点，看看这一句是否执行过，也可以d.items看看存的内容是啥

被引用的工作簿是只读模式

micch

既然字典有数据，并且可以赋值给变量，那就是输出的问题了，所以是单元格选择的错误，cell这里需要加前缀限制输出到哪个工作簿的哪个工作表

奚振

micch 发表于 2020-5-29 12:10
既然字典有数据，并且可以赋值给变量，那就是输出的问题了，所以是单元格选择的错误，cell这里需要加前缀限 ...

With ThisWorkbook.Worksheets("镜头记分表")
    Crr = .[A1].CurrentRegion
    For j = 2 To UBound(Crr)
        If Len(Crr(j, 5)) > 0 Then
            If dict.exists(Trim(Crr(j, 5))) Then
                tempp = dict(Trim(Crr(j, 5)))
                    If Len(tempp) > 0 Then
                        .Cells(j, 16) = tempp
                    End If
            End If
        End If
    Next
    End With
这里我是又改了一下，但是还是单元格输出为空白的，没显示