字典能记载Range的数据特性。

ning84

aman1516 发表于 2022-12-14 15:28
只是好奇楼主知道 "字典能记载Range的数据特性" 后有什么好的、特殊的应用？

VBA中字典数据的排序-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1102706-2-1.html

学习这个贴子后，扩展学习到Dictionary能记载Range数据特性。

1. Sub del()
   
2.     Dim Rng As Range, ii, jj
   
3.     Dim Tmp, Str, Arr, Arr1
   
4.     Dim Dict As Dictionary
   
5.         Set Dict = New Dictionary
   
6.     For Each Rng In Sheet1.Range("A1:A10")
   
7.         Set Dict(Rng.Value) = Rng
   
8.     Next Rng
   
9.     With Dict
   
10.          Arr1 = .Items
    
11.          Arr = .Keys
    
12.          For ii = 0 To .Count - 1
    
13.              Set Rng = .Items(ii)
    
14.              'Debug.Print Rng.Address, Rng
    
15.          Next ii
    
16.          ''
    
17.     End With
    
18.     Set Dict = DictionarySortOfRange(Dict)
    
19.     Stop
    
20.     With Dict
    
21.          For ii = 0 To .Count - 1
    
22.               Set Rng = .Items(ii)
    
23.               Debug.Print Rng.Address, Rng.Value, .Keys(ii)
    
24.          Next ii
    
25.     End With
    
26. End Sub
    
27. Function DictionarySortOfRange(Dict As Dictionary)
    
28.     ''
    
29.     Dim Arr, ii, jj, Tmp
    
30.     Dim Rng As Range
    
31.     With Dict
    
32.          Arr = .Keys
    
33.          For ii = 0 To .Count - 1
    
34.              Set Rng = .Items(ii)
    
35.              'Debug.Print Rng.Address, Rng
    
36.          Next ii
    
37.          ''
    
38.          For ii = 1 To .Count '- 1
    
39.              For jj = 1 To .Count - 1
    
40.                  'Debug.Print Dict(Arr(ii)), Dict(Arr(jj))
    
41.                  If Dict(Arr(ii - 1)) > Dict(Arr(jj - 1)) Then
    
42.                       Set Tmp = Dict(Arr(ii - 1))
    
43.                       Set Dict(Arr(ii - 1)) = Dict(Arr(jj - 1))
    
44.                       Set Dict(Arr(jj - 1)) = Tmp
    
45.                  End If
    
46.              Next jj
    
47.          Next ii
    
48.     End With
    
49.     Set DictionarySortOfRange = Dict
    
50. End Function

复制代码

ning84

进一步理解Dictionary，深入体会Items和keys的用法。

Dictionary 对象 | Microsoft Learn  https://learn.microsoft.com/zh-c ... p/dictionary-object

方法
方法        说明
Add        将新的键/项对添加到 Dictionary 对象。
Exists        返回一个布尔值，该值指示 字典 对象中是否存在指定的键。
Items        返回 Dictionary 对象中所有项的数组。
Keys        返回 Dictionary 对象中所有键的数组。
Remove        从 Dictionary 对象中删除一个指定的键/项对。
RemoveAll        删除 Dictionary 对象中的所有键/项对。
属性
属性        说明
CompareMode        设置或返回比较模式，以比较 Dictionary 对象中的键。
Count        返回 Dictionary 对象中的键/项对数。
项目        设置或返回 Dictionary 对象中项的值。
注册表项        为 Dictionary 对象中的现有键值设置新的键值。
**************************
项目很好理解应该是dictionary.items
注册表项应该是dictionar.keys