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

qiuyanliang

上面的程序很难一次性导出数据。如[a1].resize(dic.count,1)=application.transpose((dic.items).name), 就会运行错误。

liucqa

qiuyanliang 发表于 2015-5-23 14:43
上面的程序很难一次性导出数据。如[a1].resize(dic.count,1)=application.transpose((dic.items).name), 就 ...

你得先弄清楚类模块的编程

qiuyanliang

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

hello, 大师，自定义数据类型+集合，不知道怎么定义，求指教。

qiuyanliang

字典加入改成dic("key" & i) = item，结果运行错误。必须得用dic.Add "key" & i, item，哎，要求太严了吧！这样就没办法读入时统计数据了。谢谢

qiuyanliang

字典加入改成dic("key" & i) = item，结果运行错误。必须得用dic.Add "key" & i, item，哎，要求太严了吧！这样就没办法读入时统计数据了。谢谢

qiuyanliang

qiuyanliang 发表于 2015-5-24 10:05
字典加入改成dic("key" & i) = item，结果运行错误。必须得用dic.Add "key" & i, item，哎，要求太严了吧！ ...

不好意思，误导大家了。这是对象，加个set dic("key" & i) = item, 就OK了。

qiuyanliang

liucqa 发表于 2015-5-23 18:55
你得先弄清楚类模块的编程

OK, 谢谢，赞一个。{:soso_e100:}在类模块中设置 Public Property Get即可一次性输出。类模块真复杂啊！

鄂龙蒙

liucqa 发表于 2015-5-23 18:55
你得先弄清楚类模块的编程

Private Sub texb_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  '双击显示数据录入窗口
Dim i%, bb
bb = Array("11", "19", "27", "35", "43", "51", "59", "67", "75", "83", "91", "99", "107", "115", "123", "131", "139", "147", "155", "163")
For i = 1 To 20
    录入.Controls("Textbox" & bb(i - 1)) = i
    录入.Label22 = i
Next i
    材料.Show
End Sub

请教：这个类模块中代码，红色代码怎么改成--双击--那个控件就在那个控件执行，而不是全部执行。如点Textbox11就执行，i=1
谢谢！

五音

收藏了，我就经常用字典+数组的方式来实现一对多，代码很乱啊
但一直没用过类模块，趁这个机会好好学一下
感谢分享！

hbpaopao

用过C#再回过头来写VBA，结果，习惯性的想定义类来描述数据，想当然的以为Type就是定义类，结果，悲剧了，嵌套字典，集合的功能均无法实现。
看楼主帖子才知道，类模块才是类啊。。。