前言:
当前朋友们对“keys方法”可能比较珍视,姐妹们都需要剖析一些“keys方法”的相关文章。那么小编在网上搜集了一些有关“keys方法””的相关内容,希望看官们能喜欢,各位老铁们快快来学习一下吧!在学到字典中的keys方法的时候,光看文字的解释,可能脑子里会有点乱,这个时候结合图形就可以很好的理解。
keys方法可以返回一个数组,包含了一个Dictionary对象中的全部现有的关键字。
Sub test()
Dim d, k '1
Set d = CreateObject("Scripting.Dictionary") '2
d.Add "a", "Apple" '3
d.Add "b", "Banana" '4
d.Add "C", "Cherry" '5
k = d.keys '6
[B1].Resize(d.Count, 1) = Application.Transpose(k) '7
End Sub
1:声明变量d,k,默认为可变型数据类型(Viriant)。
2:创建字典对象,并把字典对象赋给变量d。
3:添加一关键字“a”和对应于它的项“Apple”。
4:添加一关键字“b”和对应于它的项“Banana”。
5:添加一关键字“c”和对应于它的项“Cherry”。
6:把字典中存在的所有的关键字赋给变量k。得到的是一个一位数组,下限为0,上限为d.count-1。
7:把k这个横向排列的一维数组换成竖向排列,存到以B1开始的单元格,到Bd.count结束。
这个知识点用文字这样讲解的时候理解起来会稍微有点困难,下面我用图形来表示下,以下仅根据我个人的理解,针对整个代码的运行做的流程图:
PS:如果你也有更好的理解方法也可以@我欧^_^~