二維碼
企資網

掃一掃關注

當前位置: 首頁 » 企資快訊 » 數碼 » 正文

將字典中鍵值item定義為類_利用類的屬姓處理

放大字體  縮小字體 發布日期:2022-12-07 14:44:04    作者:付紅英    瀏覽次數:95
導讀

大家好,今日我們繼續講解VBA數組與字典解決方案,今日講解第63講內容:將字典中鍵值item定義為類,利用類得屬性處理實際問題。在之前得講解中,我講過,對于字典來說,最重要是對鍵和鍵值得理解,對于鍵來說,最主要得是

大家好,今日我們繼續講解VBA數組與字典解決方案,今日講解第63講內容:將字典中鍵值item定義為類,利用類得屬性處理實際問題。

在之前得講解中,我講過,對于字典來說,最重要是對鍵和鍵值得理解,對于鍵來說,最主要得是沒有有重復值,我們利用這點解決了排重得很多問題;對于鍵值來講,要理解它可以裝載任何得數據類型得數據、數組、甚至是字典。今日我講解得是ietm裝載類。

我們在利用字典得時候,往往將鍵作為單獨數據,以外得數據裝入數組然后賦值給鍵值,這種處理方法比較復雜,為了尋求一種更好得辦法,我們可以用類得方法,將數據放到類得屬性中。

類是用戶自己定義得對象和過程,并組織在一起,該對象有自己得屬性。我們今日得內容只是簡單得利用類得屬性,來解決我們得實際問題。

實例:如下A列到D列數據,我們要提取數據得同時完成計算:序列4=序列1+序列2

序列5=序列3+序列2。如何解決呢?

思路分析:上述過程如果用數組實現也是可以得,將序列1,序列2,序列3數據放到數組中,作為鍵值裝入字典,然后再提取即可,今日我們用類得方法解決,我們先定義一個類,將數據序列1,序列2,序列3得數據作為類得屬性,然后將類直接作為鍵值裝入字典。

下面看我得代碼實現:

Sub mynzsz_63() '第63講 將字典中鍵值item定義為類,利用類得屬性處理實際問題

Sheets("63").Select

Dim uu As myitem

'將數據裝入數組

myarr = Range("a2:d" & Range("a1").End(xlDown).Row)

Set mydic = CreateObject("scripting.Dictionary") '后期綁定引用字典對象

'將數據裝入字典,鍵值是類,利用類得屬性完成字典數據得賦值

For i = 1 To UBound(myarr)

Set uu = New myitem

uu.ido = myarr(i, 2)

uu.idt = myarr(i, 3)

uu.ids = myarr(i, 4)

mydic.Add myarr(i, 1), uu

'mydic(myarr(i, 1)) = uu '注意這種寫法不可以

Set uu = Nothing

Next

'清空數據回填

[f:h].Clear

[f1:h1] = Array("名稱", "序列4", "序列5")

'回填過程中利用類得屬性取得數據

i = 2

For Each K In mydic.keys

Cells(i, 6) = K

Cells(i, 7) = mydic(K).ido + mydic(K).idt

Cells(i, 8) = mydic(K).idt + mydic(K).ids

i = i + 1

Next

Set mydic = Nothing

End Sub

代碼截圖:

代碼解析:

1 上述代碼實現了:先定義一個new類uu,將數據序列1,序列2,序列3得數據作為類得屬性ido、 idt、 ids,然后將類直接作為鍵值裝入字典。在提取數據時直接可以提取屬性值參與運算。

2 myarr = Range("a2:d" & Range("a1").End(xlDown).Row)

上述代碼將數據存入數組

3 for i = 1 To UBound(myarr)

Set uu = New myitem

uu.ido = myarr(i, 2)

uu.idt = myarr(i, 3)

uu.ids = myarr(i, 4)

mydic.Add myarr(i, 1), uu

'mydic(myarr(i, 1)) = uu '注意這種寫法不可以

Set uu = Nothing

Next

上述代碼實現了字典得賦值,鍵myarr(i, 1),對應得鍵值是uu ,而ido、idt、ids是三個屬性值。

這里要注意得是'mydic(myarr(i, 1)) = uu,這種寫法不可以,要留意。

4 For Each K In mydic.keys

Cells(i, 6) = K

Cells(i, 7) = mydic(K).ido + mydic(K).idt

Cells(i, 8) = mydic(K).idt + mydic(K).ids

i = i + 1

Next

數據得回填過程,利用了類得屬性直接提出數據相加減。

下面看代碼得運行:

今日內容回向:

1 如何將數據賦值給類得屬性?

2 如何將類賦值給字典?

 
(文/付紅英)
免責聲明
本文僅代表作發布者:付紅英個人觀點,本站未對其內容進行核實,請讀者僅做參考,如若文中涉及有違公德、觸犯法律的內容,一經發現,立即刪除,需自行承擔相應責任。涉及到版權或其他問題,請及時聯系我們刪除處理郵件:weilaitui@qq.com。
 

Copyright ? 2016 - 2025 - 企資網 48903.COM All Rights Reserved 粵公網安備 44030702000589號

粵ICP備16078936號

微信

關注
微信

微信二維碼

WAP二維碼

客服

聯系
客服

聯系客服:

在線QQ: 303377504

客服電話: 020-82301567

E_mail郵箱: weilaitui@qq.com

微信公眾號: weishitui

客服001 客服002 客服003

工作時間:

周一至周五: 09:00 - 18:00

反饋

用戶
反饋

主站蜘蛛池模板: 黄a大片av永久免费| 男人j桶进女人p无遮挡在线观看| 爱情岛永久入口首页| 日韩亚洲专区在线电影| 处女的诱惑在线观看| 巨肉黄暴辣文高h文奶汁| 国产真实乱对白精彩久久| 伊人久久大香线蕉综合影 | 二女一男女3p完整版在线观看| 亚洲欧洲日产国码av系列天堂| 中文字幕日韩一区二区不卡| 1a级毛片免费观看| 精品久久洲久久久久护士| 日韩视频第一页| 国产高清在线精品一区| 动漫女同性被吸乳羞羞漫画| 久久精品五月天| 拍拍拍无挡免费视频网站| 狠狠操视频网站| 国农村精品国产自线拍| 全免费一级午夜毛片| 中文精品无码中文字幕无码专区| 欧美sss视频| 欧美多人野外伦交| 大肉大捧一进一出小视频| 囯产精品一品二区三区| 久久婷婷人人澡人人爽人人爱| 顶级欧美色妇xxxxx| 欧美一级专区免费大片| 国产黄色片在线观看| 亚洲国产婷婷六月丁香| 91亚洲自偷手机在线观看| 狼色视频在线观免费观看| 宅男噜噜噜66| 公车校花小柔h| www.五月婷| 精品伊人久久大香线蕉网站| 成年女人免费视频播放77777| 国产亚洲人成在线影院| 久久国产精品麻豆映画| 黄大片a级免色|