VBA数组与字典知识与实例---数组.xlsVIP

下载本文档

117
0
约104.63万字
约 7页
2015-07-20 发布于云南
举报
版权申诉

VBA数组与字典知识与实例---数组.xls

1、本文档共7页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

多条件汇总数量和金额新表字典+数组实例--多条件汇总数量和金额数组分部门统计 DATASOURCE 用VBA取得不重复项数组优化数组统计数字数组-1万行填充颜色字典+数组--挑出客户和帐号重复的字典实例代码解释字典实例退料明细表生产用料明细表生产领用明细表根据日期提取相应的数据(兰) VBA数组教程原料 arrResult(6, UBound(arrRank), 3) = arrResult(6, UBound(arrRank), 3) + arrResult(j, i, 3) ReDim arrEnd(1 To UBound(arrResult, 2), 1 To UBound(arrResult, 1) * 2 + 1) For i = 1 To 5 第一列赋值 arrEnd(i, 1) = arrRank(i) arrEnd(i, 1) = 合计 For i = 1 To UBound(arrEnd, 1) 将三维数组的数组转化为二维数组 For j = 2 To UBound(arrEnd, 2) Step 2 arrEnd(i, j) = arrResult(j / 2, i, 2) arrEnd(i, j + 1) = arrResult(j / 2, i, 3) Range(O12) = 职称 Range(o12).Offset(-1, 0) = 统计表 For i = 1 To 6 Range(O12).Offset(0, 2 * i - 1) = i Range(O12).Offset(1, 2 * i - 1) = 人数 Range(O12).Offset(1, 2 * i) = 金额 Range(o12).Offset(0, 11) = 合计 Range(O12).Resize(2, 1).Merge Range(O12).Offset(2, 0).Resize(UBound(arrEnd, 1), UBound(arrEnd, 2)) = arrEnd 定单日期下一状态运至定单号客户采购单说明单位价格总金额客户回单号 01/22/2010 600 9298002 翅根(40g以上) 9298006 10/11/2010 283126 H原膘一级白条肋排 10/12/2010 284021 冻储备肋排冻小卷板油 10/13/2010 285156 10/14/2010 580 286100 284095 裁膘二级白条 285124 286012 286058 287017 283078 预冷肉二级 285007 带皮羊肉冻无根舌 285078 287028 鲜心 10/10/2010 282086 283011 预冷肉一级原膘三级白条原膘二级白条 284140 285014 原膘三级白条A 285127 286027 286125 287019 10/15/2010 287188 原膘一级白条 284081 284053 冻腰 286059 284157 285026 285101 286110 287036 10/08/2010 280112 281049 10/09/2010 281065 282029 282105 冻一级爪去前腿预冷肉 283055 284028 283122 285085 282085 284074 284088 286096 16.282039 0283065 16.284060 0285121 16.283076 冻大排 0285126 17.284037 冻精肚原膘四级白条 G原膘一级白条 17.285141 17.286067 冻一级尾巴 17.287073 280030 284057 285020 286029 284067 285066 286121 283121 285016 284162 286036 285129 287011 280057 282025 0282047 283021 0283035 284012 283041 0285028 284066 0286042 285019 0287067 284149 285091 286131 282049 0285012 283063 0285011 284042 0286022 285049 0287018 284165 285056 285123 冻板油 286117 287057 281039 282006 冻2#肉 283012 283036 285008 285041 286004 286116 287007 287042