十个硬骨头，挑战高手，解决一个是一个

aman1516 · 发表于 2010-5-19 11:10

测试出现错误，不知原因，EXCEL2003，见图：

aman1516 · 发表于 2010-5-19 11:14

执行右键菜单，出现找不到工程或库（多处代码提示），是否需要引用哪些工程或库，还是需定义变量参数？

aman1516 · 发表于 2010-5-19 11:22

若在“On Error Resume Next”下测试，则栏宽未能按页面设置进行调整。

ningyuanchao · 发表于 2010-5-19 13:07

帮楼主解决一个吧。

aman1516 · 发表于 2010-5-19 14:32

蓝桥玄霜大师，您好，代码在采购模板中测试，出现下标越界错误：
如在容错代码下执行，则到“if j=14 then stop”的“stop”处终止，未得结果。
恳请修改。

aman1516 · 发表于 2010-5-19 14:56

谢谢小蜜蜂，代码太漂亮了，完美解决！
起码几个同事的“表格自动化”有重大突破了，我代表她们谢谢您！

来生缘 · 发表于 2010-5-19 15:08

原帖由 aman1516 于 2010-5-19 14:32 发表
蓝桥玄霜大师，您好，代码在采购模板中测试，出现下标越界错误：
如在容错代码下执行，则到“if j=14 then stop”的“stop”处终止，未得结果。
恳请修改。

你自己没看清楚,redim preserve后面是arr1

看了一下，称不上非常难，只是你自己把问题描述得很烦锁，让人不愿意看下去，如果一个问题一个问题的问，应该很快可以解决。

aman1516 · 发表于 2010-5-19 17:35

俗话说：会者不难！谢谢来生缘的批评，是自己打代码时太粗心大意了！对蓝桥玄霜大师说声Sorry！

仔细的核对了一次，同时将“If j = 14 Then Stop”改了为：
If j = 22 Then Exit Sub  '数据动态更新，最多到第21行
   If Arr(j, 1) <> "" Then
      m = m + 1
      Cells(j, 11) = Cells(2, 7).Value '在辅助列标记订单号，以便分表中的数据能按订单号区分
      Cells(j, 1).Resize(1, 11).Copy sht.Cells(m, 1)
      Cells(j, 11).ClearContents '复制后清除辅助列数据
      End If
......
这样就能按模板分表了。按汇总表分表还希望能一并解决。

因工作困扰，在求助时思维有点乱，已在一楼更新了附件，重新整理了一下各个文件的目的与说明，烦请大家重新下载。希望大师们像能教小学生一样，“小学生”呵！给一点耐心指点一下吧。

还是那句：
您的一滴水，对于一个干渴的人无疑是一捧甘甜的泉水。
予人玫瑰，手留余香。

meimei206 · 发表于 2010-5-19 21:27

水平太低，现在还无法学习，只能远远膜拜下大侠们

rligong · 发表于 2010-5-19 23:02

这个比较简单了，不知道是不是你需要的。
008 如何通过VBA对A列赋以VLOOKUP公式

		自动登录	找回密码
密码			免费注册

[求助] 十个硬骨头，挑战高手，解决一个是一个

回复 8楼 KCFONG 的帖子

回复 9楼 KCFONG 的帖子

回复 8楼 KCFONG 的帖子

回复 10楼蓝桥玄霜的帖子

回复 14楼 ningyuanchao 的帖子

[求助] 十个硬骨头，挑战高手，解决一个是一个

回复 8楼 KCFONG 的帖子

回复 9楼 KCFONG 的帖子

回复 8楼 KCFONG 的帖子

回复 10楼 蓝桥玄霜 的帖子

回复 14楼 ningyuanchao 的帖子

回复 10楼蓝桥玄霜的帖子