二維碼
微世推網(wǎng)

掃一掃關(guān)注

當(dāng)前位置: 首頁 » 快聞頭條 » 供應(yīng)資訊 » 正文

「Excel_VBA」專項_字典_01_定義字典_今

放大字體  縮小字體 發(fā)布日期:2022-04-17 19:12:36    作者:李文恒    瀏覽次數(shù):210
導(dǎo)讀

系統(tǒng)環(huán)境:Windows 10Excel:2016版本本系列講講字典功能今天說說如何創(chuàng)建一個字典,已經(jīng)進行鍵判斷Part 1:應(yīng)用場景存在一些信息,是通過鍵:值對這種形式存儲得,就像我們查詢一本新華字典,先看目錄,確定文字位置

  • 系統(tǒng)環(huán)境:Windows 10
  • Excel:2016版本

    本系列講講字典功能

    今天說說如何創(chuàng)建一個字典,已經(jīng)進行鍵判斷

    Part 1:應(yīng)用場景
    1. 存在一些信息,是通過鍵:值對這種形式存儲得,就像我們查詢一本新華字典,先看目錄,確定文字位置,然后打開對應(yīng)得目錄
    2. VBA或者其它語言中,普遍存在這樣一種數(shù)據(jù)結(jié)構(gòu),稱為字典
    3. VBA中字典在使用前需要先引用

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

    圖1 示例

    當(dāng)前工作簿是否存在工作表“示例”

    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 "當(dāng)前工作簿存在工作表:" & tbl End IfEnd Sub

    圖2 代碼截圖

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

    上面代碼有沒有讓你想寫fso,Set fso = CreateObject(“scripting.FileSystemObject”)

  • 可以這么理解,字典也是VBA得一個工具包,需要先裝載才能使用
  • 字典是由一系列鍵-值構(gòu)成,要求鍵不能重復(fù)
  • 字典包含多種屬性及方法,感謝中d.Exists(tbl)檢索字典得鍵中是否含有 “示例”,返回布爾值

    以上,為本次得介紹內(nèi)容,下回見。

    感謝首次于感謝對創(chuàng)作者的支持:Excel高效辦公之VBA。排版和細節(jié)略作修改,發(fā)于頭條

  •  
    (文/李文恒)
    免責(zé)聲明
    本文為李文恒原創(chuàng)作品?作者: 李文恒。歡迎轉(zhuǎn)載,轉(zhuǎn)載請注明原文出處:http://www.jib360.com/news/show-340490.html 。本文僅代表作者個人觀點,本站未對其內(nèi)容進行核實,請讀者僅做參考,如若文中涉及有違公德、觸犯法律的內(nèi)容,一經(jīng)發(fā)現(xiàn),立即刪除,作者需自行承擔(dān)相應(yīng)責(zé)任。涉及到版權(quán)或其他問題,請及時聯(lián)系我們郵件:weilaitui@qq.com。
     

    Copyright?2015-2023 粵公網(wǎng)安備 44030702000869號

    粵ICP備16078936號

    微信

    關(guān)注
    微信

    微信二維碼

    WAP二維碼

    客服

    聯(lián)系
    客服

    聯(lián)系客服:

    24在線QQ: 770665880

    客服電話: 020-82301567

    E_mail郵箱: weilaitui@qq.com

    微信公眾號: weishitui

    韓瑞 小英 張澤

    工作時間:

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

    反饋

    用戶
    反饋