返回列表 上一主題 發帖

[發問] 偷懶的差異??

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1517 
主題
40 
精華
0 
積分
1541 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-10-27 08:09 | 只看該作者

[發問] 偷懶的差異??

本帖最後由 Andy2483 於 2022-10-27 08:13 編輯

各位前輩早安
昨天在論壇學習字典發現差異!
先講目前認知的結論,請各位前輩指正並指導!謝謝
任何非 Exists() 方法查詢字典的步驟程序可能會變動字典的數量??
1.標準的 Dictionary 物件中搜尋的索引 鍵 值
For i = 1 To 20
   If Y.Exists(i) Then

2.偷懶的 Dictionary 物件中搜尋的索引 鍵 值
For i = 1 To 20
   If Y(i) = "" Then

心得差異說明如下:
偷懶的方式
Sub TEST_Count_1()
Dim Y, i, x, j
Set Y = CreateObject("Scripting.Dictionary")
Y(1) = 1
MsgBox Y.Count
For i = 1 To 20
   If Y(i) = "" Then

   End If
Next
MsgBox Y.Count
For Each x In Y.KEYS
   j = j + 1
Next
MsgBox j
End Sub

視窗會顯示 1  →  20  →  20
--------------------------------------------------
標準的方式
Sub TEST_Count_2()
Dim Y, i, x, j
Set Y = CreateObject("Scripting.Dictionary")
Y(1) = 1
MsgBox Y.Count
For i = 1 To 20
   If Y.Exists(i) Then

   End If
Next
MsgBox Y.Count
For Each x In Y.KEYS
   j = j + 1
Next
MsgBox j
End Sub

視窗會顯示 1  →  1  →  1
收藏 分享

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1517 
主題
40 
精華
0 
積分
1541 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-31 
2#
發表於 2022-10-27 08:33 | 只看該作者
圖片可以上傳了!謝謝 小誌前輩
補充圖片
偷懶的查詢方式:






標準的查詢方式:

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1517 
主題
40 
精華
0 
積分
1541 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-31 
3#
發表於 2022-10-27 12:58 | 只看該作者
把key與item 轉置出來做驗證


Option Explicit
Sub TEST_Count_3()
Dim Y, i, x, j
Set Y = CreateObject("Scripting.Dictionary")
Y(1) = 1
For i = 1 To 20
   If Y(i) = i Then

   End If
Next
Workbooks.Add
[A1].Resize(Y.Count, 1) = Application.Transpose(Y.KEYS)
[B1].Resize(Y.Count, 1) = Application.Transpose(Y.ITEMS)
End Sub

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題