常见字典用法集锦及代码详解

tcl6303

首先谢谢老师的指导，附件已上传。
myb.items应该是一个二维数组呀？

[ 本帖最后由 tcl6303 于 2010-10-27 14:51 编辑 ]

蓝桥玄霜

原帖由 tcl6303 于 2010-10-27 14:45 发表
首先谢谢老师的指导，附件已上传。
myb.items应该是一个二维数组呀？

你可以把myb.items赋给变量t，t=myb.items
然后在本地窗口中可看到t是一个(0 to 8)的一维数组，而每一个t(i)是由另一个(0 to 3)的一维数组组成的。

tcl6303

谢谢老师的指导，我要慢慢学习体会。谢谢！谢谢了！
程序中数组myb.items是一维的。
不过1.用了两次转置和不用不是一样吗？
    2.两次转置后怎样变成二维的呢？区域Sheet2.[a1].Resize(myb.Count, 4) 是二维的呀。

[ 本帖最后由 tcl6303 于 2010-10-28 11:16 编辑 ]

蓝桥玄霜

原帖由 tcl6303 于 2010-10-28 10:59 发表
谢谢老师的指导，我要慢慢学习体会。谢谢！谢谢了！
程序中数组myb.items是一维的。
不过1.用了两次转置和不用不是一样吗？
    2.两次转置后怎样变成二维的呢？区域Sheet2.[a1].Resize(myb.Count, 4) 是二维的呀 ...

1，“两次转置和不用”的效果如何？你可以增加相应的语句，用F8逐句执行看看效果；
Sheet2.[a1].Resize(1,Ubound(myb)+1)=myb.items
Sheet2.[a1].Resize(myb.Count, 4)=Application.Transpose(myb.items)
2，转置一次就是二维的了。

tcl6303

原帖由 蓝桥玄霜 于 2010-10-28 11:30 发表

1，“两次转置和不用”的效果如何？你可以增加相应的语句，用F8逐句执行看看效果；
Sheet2.[a1].Resize(1,Ubound(myb)+1)=myb.items
Sheet2.[a1].Resize(myb.Count, 4)=Application.Transpose(myb.items)
2，转 ...

谢谢老师的热心指导，老师说的很对，一次转置就变成二维的了，只是不知道它的工作原理。
另外Sheet2.[a1].Resize(1,Ubound(myb)+1)=myb.items
这句代码执行时显示错误，无法执行。

蓝桥玄霜

原帖由 tcl6303 于 2010-10-28 14:14 发表

谢谢老师的热心指导，老师说的很对，一次转置就变成二维的了，只是不知道它的工作原理。
另外Sheet2.[a1].Resize(1,Ubound(myb)+1)=myb.items
这句代码执行时显示错误，无法执行。
  

Sheet2.[a1].Resize(1,Ubound(myb)+1)=myb.items
这句代码在本例里面是不能显示，这是因为这里的myb.items不是常规的一维数组，如（0，1，2，3，。。。），而是每一个都是另一个一维数组。
我没有测试就写上了，误导了。对不起。

tcl6303

谢谢老师，谢谢！

klkl

跟贴备学！

a8737461

学习一下字典

jifuxue

跟贴备学！谢谢