如题所述
æ¹æ³/æ¥éª¤
1
æ°å»ºä¸ä¸ªç©ºç½å·¥ä½ç°¿ï¼å¨å·¥ä½è¡¨çé¢æä¸ç»åå¿«æ·é®Alt+F11æè å³é®åå»ä»»æä¸ä¸ªå·¥ä½è¡¨æ ç¾ï¼å¨å¼¹åºçå³é®å¿«æ·èååå»âæ¥ç代ç âè¿å ¥VBAç¼è¾ç¯å¢ï¼å¦ä¸å¾æ示ï¼
2
å¨â代ç çªå£âä¸å¤å¶ç²è´´ä»¥ä¸ä»£ç ï¼
Sub Dic()
'å®ä¹åå ¸å¯¹è±¡åé
Dim oDic As Object
'å建åå ¸å¯¹è±¡
Set oDic = CreateObject("Scripting.Dictionary")
Dim arrKey
Dim arrItem
With oDic
'æ·»å é®å项ç®(key,item),å ¶ä¸é®ä¸è½éå¤
.Add 1, "a"
.Add 2, "b"
' å¤ææ¯å¦åå¨æ个é®
MsgBox .Exists(2)
'æé®2ç项ç®ä¿®æ¹ä¸º"d"
.Item(2) = "d"
'è¿åé®çæ°ç»
arrKey = .keys
'è¿å项ç®çæ°ç»
arrItem = .items
'æ¸ ç©ºåå ¸
.RemoveAll
End With
'éæ¾åå ¸å¯¹è±¡ï¼æ¸ 空å å
Set oDic = Nothing
End Sub
3
以ä¸ä»£ç æ¯å¨VBAä¸ä½¿ç¨åå ¸å¯¹è±¡çéç¨ä»£ç ï¼ä»»ä½å ·ä½çæ¡ä¾é½å¯ä»¥å¨è¿ä¸ªä»£ç çåºç¡ä¸è¿è¡ä¿®æ¹ï¼å»ºè®®æ¶èä¿åï¼é¿å æ¯æ¬¡ä½¿ç¨åå ¸å¯¹è±¡æ¶éè¦éå¤è¾å ¥ä»¥ä¸ä»£ç ãå ·ä½çåå ¸å¯¹è±¡çææå±æ§ãæ¹æ³å¯ä»¥åèMSDNä¸çå¨çº¿å¸®å©ã