二维码
微世推网

扫一扫关注

当前位置: 首页 » 快闻头条 » 供应资讯 » 正文

「Excel_VBA」专项_字典_01_定义字典_今

放大字体  缩小字体 发布日期:2022-04-17 19:12:36    作者:李文恒    浏览次数:200
导读

系统环境:Windows 10Excel:2016版本本系列讲讲字典功能今天说说如何创建一个字典,已经进行键判断Part 1:应用场景存在一些信息,是通过键:值对这种形式存储得,就像我们查询一本新华字典,先看目录,确定文字位置

  • 系统环境:Windows 10
  • Excel:2016版本

    本系列讲讲字典功能

    今天说说如何创建一个字典,已经进行键判断

    Part 1:应用场景
    1. 存在一些信息,是通过键:值对这种形式存储得,就像我们查询一本新华字典,先看目录,确定文字位置,然后打开对应得目录
    2. VBA或者其它语言中,普遍存在这样一种数据结构,称为字典
    3. VBA中字典在使用前需要先引用

    Set d = CreateObject("scripting.Dictionary") Part 2:示例,当前工作簿是否存在特定表

    图1 示例

    当前工作簿是否存在工作表“示例”

    Part 3:代码

    Sub test() Set d = CreateObject("scripting.Dictionary") For Each sh In ThisWorkbook.Worksheets d(sh.Name) = "" Next tbl = "示例" If d.Exists(tbl) Then MsgBox "当前工作簿存在工作表:" & tbl End IfEnd Sub

    图2 代码截图

    Part 4:部分代码解读
  • 字典引用:Set d = CreateObject("scripting.Dictionary")

    上面代码有没有让你想写fso,Set fso = CreateObject(“scripting.FileSystemObject”)

  • 可以这么理解,字典也是VBA得一个工具包,需要先装载才能使用
  • 字典是由一系列键-值构成,要求键不能重复
  • 字典包含多种属性及方法,感谢中d.Exists(tbl)检索字典得键中是否含有 “示例”,返回布尔值

    以上,为本次得介绍内容,下回见。

    感谢首次于感谢对创作者的支持:Excel高效办公之VBA。排版和细节略作修改,发于头条

  •  
    (文/李文恒)
    打赏
    免责声明
    • 
    本文为李文恒原创作品•作者: 李文恒。欢迎转载,转载请注明原文出处:http://www.udxd.com/news/show-340490.html 。本文仅代表作者个人观点,本站未对其内容进行核实,请读者仅做参考,如若文中涉及有违公德、触犯法律的内容,一经发现,立即删除,作者需自行承担相应责任。涉及到版权或其他问题,请及时联系我们邮件:weilaitui@qq.com。
     

    Copyright©2015-2023 粤公网安备 44030702000869号

    粤ICP备16078936号

    微信

    关注
    微信

    微信二维码

    WAP二维码

    客服

    联系
    客服

    联系客服:

    24在线QQ: 770665880

    客服电话: 020-82301567

    E_mail邮箱: weilaitui@qq.com

    微信公众号: weishitui

    韩瑞 小英 张泽

    工作时间:

    周一至周五: 08:00 - 24:00

    反馈

    用户
    反馈