VBA高级教程之字典篇，使用类模块实现字典一对多应用

lee1892

不知道什么情况下要这么麻烦，需要用类来存取静态数据，下面这样不行吗？
[code=vb]Private Type INFO
    ID As String * 6
    Name As String * 10
    TelNumber As String * 11
End Type

Sub Test()
    Dim arrGuys() As INFO, dicInd As Object, i As Long, nInd
    Set dicInd = CreateObject(Scripting.Dictionary)
    ReDim arrGuys(2)
    For i = 0 To UBound(arrGuys)
        With arrGuys(i)
            .ID = ...
            .Name = ...
            .TelNumber = ...
            dicInd(.Name) = i
        End With
    Next
    For Each nInd In dicInd.Keys
        With arrGuys(nInd)
            Debug.Print .ID; .Name; .TelNumber
        End
    Next
End Sub[/code]

liucqa

lee1892 发表于 2013-11-4 17:34
不知道什么情况下要这么麻烦，需要用类来存取静态数据，下面这样不行吗？

这个就是我在一楼说的字典+数组方式的一种嘛，从完成任务来说，无论采用自定义数据类型+一维数组，还是直接采用二维数组，都可以达成一对多的目的。

但是，从代码的可维护性来看，这样的代码会造成应用层和数据层的耦合度过高，无法复用数据结构，更影响项目升级和后期维护。
想象一下，如果我有40个模块需要用到这个数据结构以及关联的若干功能，如果不用类模块，唯一的办法是写公共自定义数据类型，并在同一个模块写出该数据结构用到的全部函数，然后在其他模块或文件中进行调用，这是典型的面向过程的思路。容易造成代码冗余甚至混乱。而通过一维数组来引用这个数据结构，其结果更是造成数据处理与应用功能耦合到了一起，无法拆分。代码模块之间或者数据结构与代码功能之间耦合度过高，是项目开发不成熟的表现。

面向对象的编程理念，就是解决代码复用、功能耦合之类的问题，给项目维护创造方便。这也是类模块被发明的原因。对面向过程的编程来说，有没有类模块都无所谓的。而面向对象的编程，就完全依赖类模块了。从面向过程到面向对象，我们需要思想上的转变和艰苦的学习过程。一楼代码只不过是一个小例子而已，还很粗糙，仅供参考。


实际上，对初学者来说，采用字典+数组就完全可以达成目的了，没必要搞复杂的类模块来实现目标。
而这也是为什么我在一楼写的短短十几行代码被归属到高级教程的原因。

因为这是编程思路的转变，而不仅仅是编程代码的技巧问题呀。

深刻的理解这句话吧，俺也是最近几年才明白的。

lee1892

liucqa 发表于 2013-11-4 19:46
这个就是我在一楼说的字典+数组方式的一种嘛，从完成任务来说，无论采用自定义数据类型+一维数组，还是直 ...

哦，这对VBA基本没啥太大帮助。没人会拿螺丝刀干冲击钻的活吧～

liucqa

lee1892 发表于 2013-11-4 20:17
哦，这对VBA基本没啥太大帮助。没人会拿螺丝刀干冲击钻的活吧～

其实，我以前也不理解，为啥人类要发明这么复杂的面向对象的理论，什么“类、对象、 继承、属性、方法、静态、抽象、重载、隐藏、重构、声明、定义、初始化、赋值、接口、封装、多态“等等等等，分明是自己给自己找事嘛

后来，写了个2W行的程序，终于理解了

等学了C#之后，更加理解了。

VBA其实提供了简单的面向对象的手段，只是大家水平有限，平时不用而已
但这也是vba的技术呀，不能因为无知而不用，就不去学习和理解，

就好比给你一支枪，有的人上山打鸟下酒喝，一辈子过去了；有的人去奥运会打靶，一辈子也过去了

意义不同，追求不同，能力也不同嘛

牛牛崽崽

liucqa 发表于 2013-11-4 20:40
其实，我以前也不理解，为啥人类要发明这么复杂的面向对象的理论，什么“类、对象、 继承、属性、方法、静 ...

确实要接触过一段时间的C#,特别是SqlHelper类才能更明白类的思想。

yiyiyicz

一个实用的类模块学习教材
谢谢

xuzong

方向大于方法，方向大于技巧，这句话在管理学上有效，今天看到楼主的述说，突然意识到这句话在程序界照样适用

最近做查体查询，等返回主界面是，主界面窗体没有激活，需要单击两下鼠标才能输入，正准备查找复杂的API函数，后来看到SendKeys "~"一句简单的代码就可以实现了，就不需要调用API了

yiyiyicz

一个应用实例
附件
Book1.rar (9.29 KB, 下载次数: 590)

2014-1-10 19:32 上传

点击文件名下载附件

说明见附件

1. 
   
2. Sub tt02()
   
3. '===================
   
4. '====BOM展开实例====
   
5. '===================
   
6. Dim Arr, Brr
   
7. Dim D1 As Object, D2 As Object, Scol As String, Srow As String, i&, j&
   
8. Dim Item As CItem
   
9.     Arr = Sheet1.Range("a3:e14")     '取源数据
   
10.     Set D1 = CreateObject("Scripting.Dictionary")    '后期绑定引用字典对象
    
11.     Set D2 = CreateObject("scripting.dictionary")
    
12.     For i = 1 To UBound(Arr)  '建立对象
    
13.         Set Item = New CItem
    
14.         Item.Name = i & "|" & Arr(i, 2)
    
15.         Item.Icol = i
    
16.         Item.Quantity = Arr(i, 4)
    
17.         D1.Add i & "|" & Arr(i, 2), Item
    
18.         D2(Arr(i, 2)) = D2(Arr(i, 2))
    
19.         Arr(i, 5) = 1
    
20.         Set Item = Nothing
    
21.     Next i
    
22.     '====建立邻接矩阵Brr====
    
23.     ReDim Brr(1 To UBound(Arr), 1 To UBound(Arr))
    
24.     For i = 1 To UBound(Arr)
    
25.         For j = i To UBound(Arr)
    
26.             If i = j Or Arr(i, 1) < Arr(j, 1) Then
    
27.                 Brr(i, j) = 1
    
28.             Else
    
29.                 Exit For
    
30.             End If
    
31.         Next
    
32.     Next
    
33.     '====利用邻接矩阵Brr，展开BOM====
    
34.     '注意，此邻接矩阵是方阵，列标就是行标的转置
    
35.     For i = 1 To D1.Count
    
36.         Scol = CStr(i & "|" & Arr(i, 2))  '列标
    
37.         For j = 1 To D1.Count
    
38.             Srow = CStr(j & "|" & Arr(j, 2))   '行标
    
39.             'Debug.Print D1(Srow).Icol & "  " & Srow & "  " & Brr(D1(Srow).Icol, i)
    
40.             If Not IsEmpty(Brr(D1(Srow).Icol, i)) Then
    
41.                 'D2(Arr(i, 2)) = D2(Arr(i, 2)) * D1(Srow).Quantity
    
42.                 Arr(i, 5) = Arr(i, 5) * D1(Srow).Quantity
    
43.             End If
    
44.             If j = i + 1 Then Exit For
    
45.         Next j
    
46.     Next i
    
47.     For i = 1 To UBound(Arr)
    
48.         D2(Arr(i, 2)) = D2(Arr(i, 2)) + Arr(i, 5)
    
49.     Next i
    
50.     '====结果复制到sheet1中====
    
51.     Sheet1.Range("b16").Resize(D2.Count, 1) = Application.Transpose(D2.keys)
    
52.     Sheet1.Range("d16").Resize(D2.Count, 1) = Application.Transpose(D2.items)
    
53.     Sheet1.Range("a24").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    
54. End Sub

复制代码

yiyiyicz

18楼，仅仅是应用实例
如果简单的展开BOM，在明白了邻接矩阵在其中的作用。只用数组也行

flf19720321@163

学习学习，谢了！！！！