Не работает Exists для объекта Dictionary - VB
Формулировка задачи:
при этом iCell это дата типа 20.12.2004
использую excel 2007
Решение задачи: «Не работает Exists для объекта Dictionary»
textual
Листинг программы
<font color="blue">Dim</font> dic <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> dic = CreateObject(<font color="teal">"Scripting.Dictionary"</font>)
<font color="blue">If</font> <font color="blue">Not</font> dic.Exists(CStr(iCell)) <font color="blue">Then</font>
dic.Add CStr(iCell), Cells(i, <font color="darkblue"><b>2</b></font>).Value
<font color="blue">End</font> <font color="blue">If</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д