當前位置:成語大全網 - 書法字典 - Vba詞典檢查

Vba詞典檢查

這需要壹本字典。妳寫了嗎?示例代碼:

暗淡?db(0?去哪?2),x,I,arr,id,nm

掃描數據

設置?db(0)= createobject(" scripting . dictionary ")

為了什麽?每個?x?在?數組(1,2)

設置?db(x)= createobject(" scripting . dictionary ")

arr =張數(x)。使用範圍

為了什麽?i=1?去哪?欠奉

id=trim(arr(i,1))

nm=trim(arr(i,2)

db(x)(id)=nm

Db(0)(id)=true '總字典

下壹個?我

下壹個?x

產生差異

aorkbooks.add

活動工作表。單元格(1,1)。Resize (1,4) = array ("ID "," Name 1 "," Name 2 "," Comparison ")。

i=2

為了什麽?每個?id?在?db(0)。鍵

單元格(I,1)=id

如果?db(1)。存在(id)?然後呢?cells(i,2)=db(1)(id)

如果?db(2)。存在(id)?然後呢?單元格(I,3)=db(2)(id)

細胞(I,4) = IIF(細胞(I,2) =細胞(I,3),“相同”,“不同”)

i=i+1

下壹個?身份證明(identification)