zoukankan      html  css  js  c++  java
  • VBA中Dictionary对象使用(Key,Value)

    Dim dict
    
    ' 创建Dictionary
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 增加项目
    dict.Add "A", 300
    dict.Add "B", 400
    dict.Add "C", 500
    
    ' 统计项目数
    n = dict.Count
    
    ' 删除项目
    dict.Remove ("A")
    
    ' 判断字典中是否包含关键字
    dict.exists ("B")
    
    ' 取关键字对应的值,注意在使用前需要判断是否存在key,否则dict中会多出一条记录
    Value = dict.Item("B")
    
    ' 修改关键字对应的值,如不存在则创建新的项目
    dict.Item("B") = 1000
    dict.Item("D") = 800
    
    ' 对字典进行循环
    k = dict.keys
    v = dict.Items
    For i = 0 To dict.Count - 1
    key = k(i)
    Value = v(i)
    MsgBox key & Value
    Next
    
    ' 删除所有项目
    
    dict.Removeall
    
    实例:
    
    Sub 宏1()
    
    Set dic = CreateObject("Scripting.Dictionary") '字典
    For i = 1 To 10000
    If Not i Like "*4*" Then
    dic.Add i, "" '如果不包含“1”
    End If
    Next
    Range("a2").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys) '从A2单元开始向下放置
    End Sub
    View Code
  • 相关阅读:
    HanTTS简单文档
    一张包含所有颜色的图片
    shiro整合SpringMVC基于xml
    设计模式-享元模式
    关于volatile关键字实现的个人理解
    重量级锁
    轻量级锁
    偏向锁
    Seata概念的总结
    苹果手机怎么把资源库的APP放到桌面
  • 原文地址:https://www.cnblogs.com/smart9595/p/5179328.html
Copyright © 2011-2022 走看看