[已解决]判断字典里是否有要的内容

fengdavid

如果日报表A列里的内容有字典里没有的，把没有的那个单元格填充红色，并弹出消息“字段溢出”

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-10 12:37

If d.exists(wbk.Sheets(1).Cells(i, 1).Value) Then
                    .Cells(d(wbk.Sheets(1).Cells(i, 1).Value), j + 3) = wbk.Sheets(1).Cells(i, 3)
                Else
                    MsgBox wbk.Name & "的单元格" & wbk.Sheets(1).Cells(i, 1).Address & "，字段" & wbk.Sheets(1).Cells(i, 1) & "溢出"
                End If

跳转到最佳答案楼层

1032446692

把
.Cells(d(wbk.Sheets(1).Cells(i, 1).Value), j + 3) = wbk.Sheets(1).Cells(i, 3)

改成

1. If d.exists(wbk.Sheets(1).Cells(i, 1).Value) Then
   
2.             .Cells(d(wbk.Sheets(1).Cells(i, 1).Value), j + 3) = wbk.Sheets(1).Cells(i, 3)
   
3. Else
   
4.             MsgBox "字段溢出"
   
5. End If

复制代码

fengdavid

1032446692 发表于 2013-6-10 12:00
把
.Cells(d(wbk.Sheets(1).Cells(i, 1).Value), j + 3) = wbk.Sheets(1).Cells(i, 3)

如果内容多的话找起来会很麻烦，能不能在消息框里把那个字典里没有的内容也一起显示出来

1032446692

If d.exists(wbk.Sheets(1).Cells(i, 1).Value) Then
                    .Cells(d(wbk.Sheets(1).Cells(i, 1).Value), j + 3) = wbk.Sheets(1).Cells(i, 3)
                Else
                    MsgBox wbk.Name & "的单元格" & wbk.Sheets(1).Cells(i, 1).Address & "，字段" & wbk.Sheets(1).Cells(i, 1) & "溢出"
                End If

fengdavid

问题已解决，得到了蓝桥玄霜版主的帮助。

1032446692

fengdavid 发表于 2013-6-10 12:37
问题已解决，得到了蓝桥玄霜版主的帮助。

？