求教vba怎麽往字典裏加自定義類的對象

字典可以保留對象，自定義類也可以，下面的語句保留WorkSheet、Range的例子：

Dim d as Object, w as WorkSheet, r as Range

Set d=CreateObject("Scripting.Dictionary")

set w=ActiveSheet

set r=Range("a1")

d.Add 'sheet', w

d.add 'range', r